1 files changed, 30 insertions, 0 deletions
diff --git a/enqueue.pl b/enqueue.pl
new file mode 100755
index 0000000..5d53a28
--- /dev/null
+++ b/enqueue.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+use strict;
+use CGI qw(:standard);
+use CGI::Carp 'fatalsToBrowser';
+
+
+require RPC::XML;
+require RPC::XML::Client;
+
+my $cli = RPC::XML::Client->new('http://nzbget:tegbzn6789@127.0.0.1:6789/xmlrpc');
+my $resp = $cli->send_request('version') or die "Can't connect to nubget";
+
+use LWP::Simple;
+my $nzb = get(param('url'));
+die "Couldn't get ".param('url') unless defined $nzb;
+use MIME::Base64;
+$nzb = encode_base64($nzb);
+my $category = param('cat') || 'test';
+$resp = $cli->send_request('append',RPC::XML::string->new(param('name')),RPC::XML::string->new($category),RPC::XML::boolean->new(0),RPC::XML::string->new($nzb));
+
+if ($resp->value)
+{
+       print CGI::redirect('/'); 
+} else {
+	print header;
+        print start_html('nzbget enqueue error');
+        print 'Error';
+        print end_html();
+}
+