From 2f5d76db7c94e21aa21ee611c2aa893c5e8b58dd Mon Sep 17 00:00:00 2001 From: Ralf Ertzinger Date: Mon, 12 Jan 2009 21:34:13 +0100 Subject: [PATCH] - Reindent --- xmlrtorrent/HTTPTalker.pm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/xmlrtorrent/HTTPTalker.pm b/xmlrtorrent/HTTPTalker.pm index d8b9340..1254b2d 100644 --- a/xmlrtorrent/HTTPTalker.pm +++ b/xmlrtorrent/HTTPTalker.pm @@ -4,8 +4,8 @@ # licensed under GNU GPL v2 package xmlrtorrent::HTTPTalker; -use xmlrtorrent::TalkerBase; -@ISA = qw(xmlrtorrent::TalkerBase); +use xmlrtorrent::RTorrentTalkerBase; +@ISA = qw(xmlrtorrent::RTorrentTalkerBase); use Data::Dumper; use RPC::XML::Client; @@ -18,9 +18,9 @@ sub new { $self->{'NAME'} = 'http'; $self->{'DESC'} = 'talker using RPC over HTTP'; $self->{'_PARAMS'} = { - 'XMLURL' => ['', 'URL of SCGI script'], - 'USERNAME' => ['', 'username for RPC credentials (optional)'], - 'PASSWORD' => ['', 'password for RPC credentials (optional)'], + 'XMLURL' => ['', 'URL of SCGI script'], + 'USERNAME' => ['', 'username for RPC credentials (optional)'], + 'PASSWORD' => ['', 'password for RPC credentials (optional)'], }; $self->{'_LASTXMLURL'} = undef; @@ -38,20 +38,20 @@ sub send_request { my $xmlurl = $self->_getval('XMLURL'); unless (defined($xmlurl) and $xmlurl ne '') { - return 'http talker: XMLURL not set'; + return 'http talker: XMLURL not set'; } if ($xmlurl ne $self->{'_LASTXMLURL'}) { - $self->{'_LASTXMLURL'} = $xmlurl; - $self->{'__RPCClient'} = RPC::XML::Client->new($xmlurl); + $self->{'_LASTXMLURL'} = $xmlurl; + $self->{'__RPCClient'} = RPC::XML::Client->new($xmlurl); } my $username = $self->_getval('USERNAME'); my $password = $self->_getval('PASSWORD'); if (defined $username and defined $password and $username ne '') { - # mitch: let me guess, the realm must be configurable, too! - $self->{'__RPCClient'}->credentials('', $username, $password); + # mitch: let me guess, the realm must be configurable, too! + $self->{'__RPCClient'}->credentials('', $username, $password); } return $self->{'__RPCClient'}->send_request(@params); -- 1.8.3.1