blob: ea3b47a32b92cea2a5ad4d701527fae793df19d2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
package local::nzbget;
require Exporter;
require RPC::XML;
require RPC::XML::Client;
use strict;
use base "Exporter";
sub new
{
my $invocant = shift;
my $class = ref($invocant) || $invocant;
# my $self = $class->SUPER::new(@_);
my $self=bless {@_}, $class;
$self->{cli} = RPC::XML::Client->new('http://nzbget:tegbzn6789@127.0.0.1:6789/xmlrpc');
return $self;
}
sub send_request
{
my $self = shift;
return $self->{cli}->send_request(@_) or die "Can't connect to nzbget";
}
|