public/nixpkgs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allow uploading multiple files

Browse Source
This commit is contained in:
Eelco Dolstra 2015-12-15 10:10:59 +00:00
parent 46905425cf
commit 903803a1f3
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
maintainers/scripts/copy-tarballs.pl
View File

@ -69,15 +69,24 @@ sub uploadFile {
redirect "sha512/$sha512_32", $mainKey; redirect "sha512/$sha512_32", $mainKey;
} }
my $op = $ARGV[0] // ""; my $op = shift @ARGV;
if ($op eq "--file") { if ($op eq "--file") {
my $fn = $ARGV[1] // die "$0: --file requires a file name\n"; my $res = 0;
if (alreadyMirrored("sha512", hashFile("sha512", 0, $fn))) { foreach my $fn (@ARGV) {
print STDERR "$fn is already mirrored\n"; eval {
} else { if (alreadyMirrored("sha512", hashFile("sha512", 0, $fn))) {
uploadFile($fn, basename $fn); print STDERR "$fn is already mirrored\n";
} else {
uploadFile($fn, basename $fn);
}
};
if ($@) {
warn "$@\n";
$res = 1;
}
} }
exit $res;
} }
elsif ($op eq "--expr") { elsif ($op eq "--expr") {
@ -138,5 +147,5 @@ elsif ($op eq "--expr") {
} }
else { else {
die "Syntax: $0 --file FILENAME | --expr EXPR\n"; die "Syntax: $0 --file FILENAMES... | --expr EXPR\n";
} }