use md5_get instead of TokyoCabinet::HDB

[cloudstore.git] / torrent / transmission-client.pl

diff --git a/torrent/transmission-client.pl b/torrent/transmission-client.pl
index e53eae2..8ddae2f 100755 (executable)
--- a/torrent/transmission-client.pl
+++ b/torrent/transmission-client.pl
@@ -23,6 +23,7 @@ use strict;
 use warnings;
 use lib qw(lib);
 use Transmission::Client;
+use Data::Dump qw(dump);
 
 my $action = shift @ARGV or _help();
 
@@ -35,6 +36,7 @@ if($action eq 'list') {
     printf "%3s %-34s %4s %4s %5s %5s\n", 'id', 'name', 'lcrs', 'sdrs', 'rate', 'eta';
     print "-" x 79, "\n";
     for my $torrent ($tc->read_torrents) {
+       warn dump($torrent) if $ENV{DEBUG};
         printf "%3i %-34s %4s %4s %5s %5s\n",
             $torrent->id,
             substr($torrent->name, 0, 34),