summaryrefslogtreecommitdiff
path: root/log.pl
diff options
context:
space:
mode:
Diffstat (limited to 'log.pl')
-rwxr-xr-xlog.pl31
1 files changed, 0 insertions, 31 deletions
diff --git a/log.pl b/log.pl
deleted file mode 100755
index f4904c7..0000000
--- a/log.pl
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/usr/bin/perl
-use strict;
-use local::nzbget;
-use CGI qw(:standard);
-use CGI::Carp 'fatalsToBrowser';
-use URI::Escape;
-
-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->value})
-{
- print Tr(td[$row->{Text}]);
-# foreach my $key (keys %$row)
-# {
-# if (ref $row->{$key} eq 'ARRAY')
-# {
-# print Tr(td([$key,join(',',@{$row->{$key}})]));
-# } else {
-# print Tr(td([$key,$row->{$key}]));
-# }
-# }
-}
-print CGI::end_table();
-print $menu->end_html;