delroth/hydra
0
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Merge pull request #103 from civodul/nar-uncompressed

Browse source 
Don't compress already-compressed files.
This commit is contained in:
Rob Vermaas 2013-07-01 08:16:51 -07:00
parent 9939ddf22c 190bffd846
commit 9d7c14b342
2 changed files with 17 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/lib/Hydra/View/NARInfo.pm
View file

@ -2,6 +2,7 @@ package Hydra::View::NARInfo;
use strict;
use base qw/Catalyst::View/;
use Hydra::View::NixNAR;
use File::Basename;
use Nix::Store;
@ -17,7 +18,7 @@ sub process {
my $info;
$info .= "StorePath: $storePath\n";
$info .= "URL: nar/" . basename $storePath. "\n";
$info .= "Compression: bzip2\n";
$info .= "Compression: " . file_compression $storePath . "\n";
$info .= "NarHash: $narHash\n";
$info .= "NarSize: $narSize\n";
$info .= "References: " . join(" ", map { basename $_ } @{$refs}) . "\n";

16
src/lib/Hydra/View/NixNAR.pm
View file

@ -3,16 +3,30 @@ package Hydra::View::NixNAR;
use strict;
use base qw/Catalyst::View/;
sub file_compression {
my ($file) = $@_;
if /\\.(gz|bz2|xz|lz|zip)/
return "none";
else
return "bzip2";
}
sub process {
my ($self, $c) = @_;
my $storePath = $c->stash->{storePath};
my $compression = file_compression($storePath);
$c->response->content_type('application/x-nix-archive'); # !!! check MIME type
$c->response->content_length(-s $storePath) if ($compression == "none");
my $fh = new IO::Handle;
open $fh, "nix-store --dump '$storePath' | bzip2 |";
if ($compression == "none")
open $fh, "nix-store --dump '$storePath' |";
else
open $fh, "nix-store --dump '$storePath' | bzip2 |";
$c->response->body($fh);