blob: e368d21f10eced944b03de0e5affea9755884b82 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
package nzbget::menu;
use strict;
use Apache2::Const -compile => qw(OK REDIRECT);
use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser';
use local::menu;
sub handler {
print header;
my $menu= new local::menu(%ENV);
print $menu->start_html('nzbget status');
print $menu->end_html;
return Apache2::Const::OK;
}
1;
|
