6 use Data::Dump qw(dump);
8 my $h = new RTPG(url=> $ENV{SOCKET} || '/rsync1/s1/torrent/socket');
11 print "# ",dump(@ARGV), " -> ";
12 my $out = $h->rpc_command(@ARGV);
22 my ($name,$fmt) = split(/\t+/,$_,2);
28 # arrayref and error (standard version)
29 my ($tlist, $error)=$h->torrents_list;
30 warn dump( $tlist, $error ) if $ENV{DEBUG};
33 foreach my $t ( @$tlist ) {
34 printf $sfmt, map { $t->{$_} } @keys;