From a60811a6efa731d8229b713fbb16cd9770ec143d Mon Sep 17 00:00:00 2001
From: Othmar Gsenger <otti@wirdorange.org>
Date: Fri, 14 Jan 2011 00:17:57 +0000
Subject: added modules

---
 local/nzbget.pm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 local/nzbget.pm

(limited to 'local/nzbget.pm')

diff --git a/local/nzbget.pm b/local/nzbget.pm
new file mode 100644
index 0000000..ea3b47a
--- /dev/null
+++ b/local/nzbget.pm
@@ -0,0 +1,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"; 
+}
-- 
cgit v1.2.3