fix configuration variables

diff --git a/xmlrtorrent/HTTPTalker.pm b/xmlrtorrent/HTTPTalker.pm
index 4eb6a8d..9160f8f 100644 (file)
--- 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);