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 # arrayref and error (standard version)
  11 my ($tlist, $error)=$h->torrents_list;
  12 print dump( $tlist, $error );