blob: df082d9cd1c3caac1061906e9df8e20d8379e87f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
package nzbget::menu;
use strict;
use Apache2::Const -compile => qw(OK REDIRECT);
use CGI qw(:standard);
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;
|