Return to ServerTorrents.pl CVS log | Up to [local] / openbsd / OpenBSDTorrents |
version 1.4, 2005/03/24 20:59:07 | version 1.6, 2005/03/29 00:28:50 | ||
---|---|---|---|
|
|
||
%ENV = (); | %ENV = (); | ||
#use YAML; | |||
use YAML; | justme(); | ||
my $url_torrents = 'http://openbsd.somedomain.net/dumptorrents.php'; | my $url_torrents = 'http://openbsd.somedomain.net/dumptorrents.php'; | ||
my $url_upload = 'http://openbsd.somedomain.net/newtorrents.php'; | my $url_upload = 'http://openbsd.somedomain.net/newtorrents.php'; | ||
|
|
||
}, Content_Type => 'form-data'); | }, Content_Type => 'form-data'); | ||
if ($response->is_success) { | if ($response->is_success) { | ||
print "Uploaded $file\n"; | print STDERR "Uploaded $file\n"; | ||
#print $response->content; | #print $response->content; | ||
} else { | } else { | ||
die $response->status_line; | die $response->status_line; |