torrent/rtorrent-dump.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 use RTPG;
   6 use Data::Dump qw(dump);
   7
   8 my $h = new RTPG(url=> $ENV{SOCKET} || '/srv/cloudstore/var/torrent/socket');
   9
  10 my $sfmt;
  11 my @keys;
  12 while (<DATA>) {
  13         chomp;
  14         next if /^#/;
  15         my ($name,$fmt) = split(/\t+/,$_,2);
  16         $sfmt .= $fmt . '|';
  17         push @keys, $name;
  18 }
  19 $sfmt =~ s/\|$/\n/;
  20
  21 # arrayref and error (standard version)
  22 my ($tlist, $error)=$h->torrents_list;
  23 warn dump( $tlist, $error );
  24
  25 printf $sfmt, @keys;
  26 foreach my $t ( @$tlist ) {
  27         printf $sfmt, map { $t->{$_} } @keys;
  28 }
  29
  30 __DATA__
  31 #hash                   %-40s
  32 percent                 %5s
  33 status                  %-11s
  34 base_filename   %s