From d26fa8c1e0886c813de5364ee6570c860c6ce12c Mon Sep 17 00:00:00 2001
From: Othmar Gsenger <otti@wirdorange.org>
Date: Thu, 31 Mar 2011 19:05:23 +0000
Subject: hopfully repaired this after backup loss

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

(limited to 'nzbget/log.pm')

diff --git a/nzbget/log.pm b/nzbget/log.pm
new file mode 100644
index 0000000..05670ec
--- /dev/null
+++ b/nzbget/log.pm
@@ -0,0 +1,29 @@
+package nzbget::log;
+use strict;
+use Apache2::Const -compile => qw(OK);
+use local::nzbget;
+use CGI qw(:standard);
+use CGI::Carp 'fatalsToBrowser';
+use URI::Escape;
+
+
+sub handler {
+	print header;
+	use local::menu;
+	my $menu=new local::menu(%ENV);
+	print $menu->start_html('log');
+
+	my $cli = new local::nzbget;
+	print CGI::start_table();
+	my $resp = $cli->send_request('log',0,10) or die "Can't connect to nubget";
+	die $resp if not ref $resp;
+	foreach my $row (@$resp)
+	{
+		print Tr(td[$row->{Text}]);	
+	}	
+	print CGI::end_table();
+	print $menu->end_html;
+	return Apache2::Const::OK;
+}
+
+1;
-- 
cgit v1.2.3