![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ServerTorrents.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / openbsd / OpenBSDTorrents|
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; |