Return to ServerTorrents.pl CVS log | Up to [local] / openbsd / OpenBSDTorrents |
version 1.3, 2005/03/24 19:49:51 | 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'; | ||
my $url_delete = 'http://openbsd.somedomain.net/deltorrents.php'; | my $url_delete = 'http://openbsd.somedomain.net/deltorrents.php'; | ||
my $url_sanity = 'http://openbsd.somedomain.net/sanity.php'; | |||
my $user = 'torrentup'; | my $user = 'torrentup'; | ||
my $pass = 'ssapword'; | my $pass = 'ssapword'; | ||
|
|
||
} | } | ||
} | } | ||
$ua->get($url_sanity); | |||
sub Upload_Torrent | sub Upload_Torrent | ||
{ | { | ||
|
|
||
}, 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; |