philipp/nixpkgs
1
0
Fork 0
Code Issues Pull requests Projects Releases Activity

copy-tarballs.pl: Create redirects before uploading file

Browse source 
This makes the script more robust to interruption.
This commit is contained in:
Eelco Dolstra 2015-12-16 14:28:22 +01:00
parent d5371eb029
commit 5eb2804cdb
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
maintainers/scripts/copy-tarballs.pl
View file

@ -63,12 +63,6 @@ sub uploadFile {
my $mainKey = "sha512/$sha512_16"; my $mainKey = "sha512/$sha512_16";
# Upload the file as sha512/<hash-in-base-16>.
print STDERR "uploading $fn to $mainKey...\n";
$bucket->add_key_filename($mainKey, $fn, { 'x-amz-meta-original-name' => $name })
or die "failed to upload $fn to $mainKey\n";
$cache{$mainKey} = 1;
# Create redirects from the other hash types. # Create redirects from the other hash types.
sub redirect { sub redirect {
my ($name, $dest) = @_; my ($name, $dest) = @_;
@ -82,6 +76,12 @@ sub uploadFile {
redirect "sha256/$sha256_32", $mainKey; redirect "sha256/$sha256_32", $mainKey;
redirect "sha256/$sha256_16", $mainKey; redirect "sha256/$sha256_16", $mainKey;
redirect "sha512/$sha512_32", $mainKey; redirect "sha512/$sha512_32", $mainKey;
# Upload the file as sha512/<hash-in-base-16>.
print STDERR "uploading $fn to $mainKey...\n";
$bucket->add_key_filename($mainKey, $fn, { 'x-amz-meta-original-name' => $name })
or die "failed to upload $fn to $mainKey\n";
$cache{$mainKey} = 1;
} }
my $op = shift @ARGV; my $op = shift @ARGV;