mirror of https://github.com/perkeep/perkeep.git
Remove some old blobserver test stuff.
Change-Id: I9eebaf28aa1da14633e99be25e86ee2aba5b1e80
This commit is contained in:
parent
9a993218e5
commit
dde76aec90
|
@ -1,21 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
my $file = shift;
|
||||
die "Usage: test-put <file> [base_url]" unless -f $file;
|
||||
my $sha1 = `sha1sum $file`;
|
||||
$sha1 =~ s!\s.*!!s;
|
||||
|
||||
my $url = shift;
|
||||
$url ||= "http://127.0.0.1:3179";
|
||||
$url =~ s!/$!!;
|
||||
|
||||
# Bogus sha1:
|
||||
#$sha1 = "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";
|
||||
|
||||
$url .= "/camli/sha1-$sha1";
|
||||
|
||||
print "PUT'ing to $url ...\n";
|
||||
system("curl", "-u", "test:foo", "-T", $file, $url) and die "Curl failed.";
|
||||
|
||||
|
Binary file not shown.
Before Width: | Height: | Size: 37 KiB |
|
@ -1 +0,0 @@
|
|||
This is a Mac text file.
It uses Mac line endings.
And ends in newline.
|
|
@ -1,3 +0,0 @@
|
|||
This is a test text file.
|
||||
It uses Unix line endings.
|
||||
And ends in newline.
|
|
@ -1,3 +0,0 @@
|
|||
This is a test text file.
|
||||
It uses Windows line endings.
|
||||
And ends in newline.
|
Loading…
Reference in New Issue