Merge branch 'attr'

[cloudstore.git] / torrent / rtorrent-dump.pl

diff --git a/torrent/rtorrent-dump.pl b/torrent/rtorrent-dump.pl
index f8207f4..f530454 100755 (executable)
--- a/torrent/rtorrent-dump.pl
+++ b/torrent/rtorrent-dump.pl
@@ -5,7 +5,14 @@ use strict;
 use RTPG;
 use Data::Dump qw(dump);
 
-my $h = new RTPG(url=> $ENV{SOCKET} || '/srv/cloudstore/var/torrent/socket');
+my $h = new RTPG(url=> $ENV{SOCKET} || '/rsync1/s1/torrent/socket');
+
+if ( @ARGV ) {
+       print "# ",dump(@ARGV), " -> ";
+       my $out = $h->rpc_command(@ARGV);
+       print dump($out),$/;
+       exit;
+}
 
 my $sfmt;
 my @keys;
@@ -13,14 +20,14 @@ while (<DATA>) {
        chomp;
        next if /^#/;
        my ($name,$fmt) = split(/\t+/,$_,2);
-       $sfmt .= $fmt . '|';
+       $sfmt .= $fmt . ' ';
        push @keys, $name;
 }
-$sfmt =~ s/\|$/\n/;
+$sfmt =~ s/\s+$/\n/;
 
 # arrayref and error (standard version)
 my ($tlist, $error)=$h->torrents_list;
-warn dump( $tlist, $error );
+warn dump( $tlist, $error ) if $ENV{DEBUG};
 
 printf $sfmt, @keys;
 foreach my $t ( @$tlist ) {
@@ -31,4 +38,6 @@ __DATA__
 #hash                  %-40s
 percent                        %5s
 status                 %-11s
-base_filename  %s
+size_bytes             %12d
+#base_filename %s
+loaded_file            %s