From 1127b5eecab640fd546f1e1c0624d2067359c63f Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rsync1.maxxo.com>
Date: Sun, 8 Jan 2012 15:23:29 +0100
Subject: [PATCH] make TR_AUTH optional

---
 torrent/transmission-client.pl | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/torrent/transmission-client.pl b/torrent/transmission-client.pl
index d7f7647..c418622 100755
--- 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';
-- 
2.20.1