mirror of https://github.com/perkeep/perkeep.git
22 lines
625 B
Perl
22 lines
625 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# Lame upload script for development testing only. Doesn't do the
|
||
|
|
# preupload step and hard-codes the Go server's upload path (not
|
||
|
|
# conformant to spec).
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
my $file = shift or die
|
||
|
|
"Usage: upload-file.pl: <file>";
|
||
|
|
-r $file or die "$file isn't readable.";
|
||
|
|
-f $file or die "$file isn't a file.";
|
||
|
|
|
||
|
|
die "bogus filename" if $file =~ /[ <>&\!]/;
|
||
|
|
|
||
|
|
my $sha1 = `sha1sum $file`;
|
||
|
|
chomp $sha1;
|
||
|
|
$sha1 =~ s/\s.+//;
|
||
|
|
|
||
|
|
system("curl", "-u", "foo:foo", "-F", "sha1-$sha1=\@$file",
|
||
|
|
"http://127.0.0.1:3179/camli/upload") and die "upload failed.";
|
||
|
|
print "Uploaded http://127.0.0.1:3179/camli/sha1-$sha1\n";
|