Forum Debian Users Gang

#!/usr/bin/perl

use strict;
use warnings;

use Frontier::Client;

#test if rtorrent is running
my($sessdir)='/home/adam/.session';

if (! -e "$sessdir/rtorrent.lock")
{
   printf("\${color FFFFFF}Rtorrent not running\n");
   exit;
}

# Configuration
use constant server => 'http://localhost/RPC2';

# Do not edit below this comment
my $server = Frontier::Client->new(url => server);

my $uprate = $server->call('get_up_rate');
my $downrate = $server->call('get_down_rate');

#use the "to_mb" conversions built into xmlrpc as other conversions are messy
#for large files, it returns an INT that is too large - wraps around and becomes negative.
my $torrents = $server->call('d.multicall', "main",
"d.get_base_filename=",
"to_mb=\$d.get_bytes_done=",
"to_mb=\$d.get_size_bytes=",
"d.get_down_rate=");

my @res;
foreach my $d (@$torrents) {
        my $dl_rate = $d->[3] / 1024;
        my $percent_done = 100 * ($d->[1] / $d->[2]);

if ($percent_done == 100) {
        push @res,
        sprintf("\${color 0033FF}%.28s \${alignr}%6.1f kB/s\n" .
        "" x 2 . "%3.1f%%" . " \${execbar echo %3.0f }\${color 33DD33}",
        $d->[0], $dl_rate, $percent_done, $percent_done);
} else {
        push @res,
        sprintf("\${font Arial:size=8}%.40s \${font}\n\${alignr}%6.1f kB/s\n" .
        "" x 2 . "%3.1f%%" . " \${execbar echo %3.0f }\n",
        $d->[0], $dl_rate, $percent_done, $percent_done);
}
}

printf("\${color FFFFFF}%6.1f kB/s up %6.1f kB/s down\n\n \${color ffffff}", $uprate / 1024, $downrate / 1024);
print join("\n", @res), "\n";