openbsd/OpenBSDTorrents/ServerTorrents.pl - diff

Return to ServerTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

version 1.2, 2005/03/24 00:42:07

version 1.4, 2005/03/24 20:59:07

Line 13

%ENV = ();

use YAML;

my $user = 'torrentup';

my $pass = 'ssapword';

my @Sizes = ('', 'Ki', 'Mi', 'Gi', 'Ti');

my $ua = LWP::UserAgent->new;

my $response = $ua->get($url_torrents);

Line 106

Line 109

}

$ua->get($url_sanity);

sub Upload_Torrent

{

Line 121

Line 125

return undef;

}

my $size = $t->total_size;

my $i;

while ($size > 1024) {

$size /= 1024;

$i++;

}

$size = sprintf('%.2f', $size);

$size .= $Sizes[$i] . 'B';

my $comment = $t->{comment};

$comment =~ s/\n.*$//s;

my ($filename) = $comment =~ /Files from ([^<]+)/;

my ($filename) = $comment =~ /Files from (.+)/;

$filename =~ s#/# #g;

$filename .= ' (' . $time . ')';

$comment .= " [$size]";

$filename .= " [$time]";

my $response = $ua->post($url_upload, {

username => $user,