make TR_AUTH optional

diff --git a/torrent/transmission-client.pl b/torrent/transmission-client.pl
index d7f7647..c418622 100755 (executable)
--- a/torrent/transmission-client.pl
+++ b/torrent/transmission-client.pl
@@ -24,13 +24,11 @@ use Transmission::Client;
 
 my $action = shift @ARGV or _help();
 
-my ( $username, $password ) = split(/:/, $ENV{TR_AUTH} );
+my %a = ( autodie => 1 );
+@a{ qw(username password) } = split(/:/, $ENV{TR_AUTH}) if $ENV{TR_AUTH};
+print %a;
 
-my $tc = Transmission::Client->new(
-       autodie => 1,
-       username => $username,
-       password => $password,
-);
+my $tc = Transmission::Client->new( %a );
 
 if($action eq 'list') {
     printf "%3s %-34s %4s %4s %5s %5s\n", 'id', 'name', 'lcrs', 'sdrs', 'rate', 'eta';