From e63ac0c1594a9c76f74f5647732bdbea85a0214e Mon Sep 17 00:00:00 2001 From: Christian Garbs Date: Sat, 27 Dec 2008 00:48:51 +0100 Subject: [PATCH] fix configuration variables --- xmlrtorrent/HTTPTalker.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/xmlrtorrent/HTTPTalker.pm b/xmlrtorrent/HTTPTalker.pm index 4eb6a8d..9160f8f 100644 --- a/xmlrtorrent/HTTPTalker.pm +++ b/xmlrtorrent/HTTPTalker.pm @@ -35,19 +35,19 @@ sub send_request { my $self = shift; my @params = @_; - unless (exists($self->{'XMLURL'}) and defined($self->{'XMLURL'})) { + unless (exists($self->{'_PARAMS'}->{'XMLURL'}) and defined($self->{'_PARAMS'}->{'XMLURL'})) { return 'http talker: XMLURL not set'; } - if ($self->{'XMLURL'} ne $self->{'_LASTXMLURL'}) { - $self->{'_LASTXMLURL'} = $self->{'XMLURL'}; - $self->{'__RPCClient'} = RPC::XML::Client->new($self->{'XMLURL'}); + if ($self->{'_PARAMS'}->{'XMLURL'} ne $self->{'_LASTXMLURL'}) { + $self->{'_LASTXMLURL'} = $self->{'_PARAMS'}->{'XMLURL'}; + $self->{'__RPCClient'} = RPC::XML::Client->new($self->{'_PARAMS'}->{'XMLURL'}); } - if ((exists($self->{'USERNAME'}) and exists($self->{'PASSWORD'})) and - ($self->{'USERNAME'} ne '')) { + if ((exists($self->{'_PARAMS'}->{'USERNAME'}) and exists($self->{'_PARAMS'}->{'PASSWORD'})) and + ($self->{'_PARAMS'}->{'USERNAME'} ne '')) { # mitch: let me guess, the realm must be configurable, too! - $self->{'__RPCClient'}->credentials('', $self->{'USERNAME'}, $self->{'PASSWORD'}); + $self->{'__RPCClient'}->credentials('', $self->{'_PARAMS'}->{'USERNAME'}, $self->{'_PARAMS'}->{'PASSWORD'}); } return $self->{'__RPCClient'}->send_request(@params); -- 1.8.3.1