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;