diff options
Diffstat (limited to 'log.pl')
-rwxr-xr-x | log.pl | 31 |
1 files changed, 0 insertions, 31 deletions
@@ -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; |