lix-project/lix
20
57
Fork 31
Code Issues 347 Code Review (Gerrit) Projects 3 Releases Wiki Activity

* Bug: Fix does not allow empty names, so don't generate them.

Browse source
This commit is contained in:
Eelco Dolstra 2003-07-29 17:56:39 +00:00
parent a01629894d
commit 1cb030736e
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
scripts/nix-pull.in
View file

@ -30,16 +30,16 @@ while (<CONFFILE>) {
next if $fn =~ /\//; next if $fn =~ /\//;
next unless $fn =~ /^([0-9a-z]{32})-([0-9a-z]{32})(.*)\.nar\.bz2$/; next unless $fn =~ /^([0-9a-z]{32})-([0-9a-z]{32})(.*)\.nar\.bz2$/;
my $hash = $1; my $hash = $1;
my $id = $2; my $id = $2;
my $outname = $3; my $outname = $3;
my $fsid; my $fsid;
if ($outname =~ /^-/) { if ($outname =~ /^-/) {
next unless $outname =~ /^-((s-([0-9a-z]{32}))?.*)$/; next unless $outname =~ /^-((s-([0-9a-z]{32}))?.*)$/;
$outname = $1; $outname = $1;
$fsid = $3; $fsid = $3;
} else { } else {
$outname = ""; $outname = "unnamed";
} }
print "registering $id -> $url/$fn\n"; print "registering $id -> $url/$fn\n";