use md5_get instead of TokyoCabinet::HDB

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

diff --git a/torrent/rtorrent-dump.pl b/torrent/rtorrent-dump.pl
index c8b7406..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;
@@ -20,7 +27,7 @@ $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 ) {
@@ -32,4 +39,5 @@ __DATA__
 percent                        %5s
 status                 %-11s
 size_bytes             %12d
-base_filename  %s
+#base_filename %s
+loaded_file            %s