X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=xmlrtorrent.pm;h=b1c41b90de7f3feb03cc3fad100b55bc5d80d133;hb=4d8e5ac854cbc36a64b37630fe24d01f3f34a70e;hp=92cd1aa7138f0f1de83ffc797ead6e6f8df2d56d;hpb=65a4e435c4cc6e72c0f852b4abc4374747fb1a55;p=xmlrtorrent.git

diff --git a/xmlrtorrent.pm b/xmlrtorrent.pm
index 92cd1aa..b1c41b9 100644
--- a/xmlrtorrent.pm
+++ b/xmlrtorrent.pm
@@ -9,11 +9,15 @@ sub new {
     my $class = shift;
     my $self = {@_};
 
-    unless(exists($self->{'XMLURL'}) && defined($self->{'XMLURL'})) {
+    unless(exists($self->{'XMLURL'}) and defined($self->{'XMLURL'})) {
         return undef;
     }
 
     $self->{'__RPCClient'} = RPC::XML::Client->new($self->{'XMLURL'});
+    if ((exists($self->{'USERNAME'}) and exists($self->{'PASSWORD'})) and
+        ($self->{'USERNAME'} ne '')) {
+        $self->{'__RPCClient'}->credentials('', $self->{'USERNAME'}, $self->{'PASSWORD'});
+    }
 
     return bless($self, $class);
 }