diff options
Diffstat (limited to 'local/menu.pm')
| -rw-r--r-- | local/menu.pm | 38 |
1 files changed, 33 insertions, 5 deletions
diff --git a/local/menu.pm b/local/menu.pm index d5078ff..714e06d 100644 --- a/local/menu.pm +++ b/local/menu.pm @@ -8,11 +8,11 @@ use config; my %menus = ( - '/cgi-bin/nzbget/groups.pl'=> [10 , 'Aktive Downloads'], - '/cgi-bin/nzbget/mydl.pl?only_me=1'=>[20 , 'Meine Downloads'], - '/cgi-bin/nzbget/mydl.pl'=> [30,'Alle Downloads'], - '/cgi-bin/nzbget/log.pl'=> [50,'Protokoll'], - '/cgi-bin/nzbget/search.pl'=> [5, 'Suche'], + 'download'=> [10 , 'Downloads','aktive','fertige','meine'], +# 'list?only_me=1'=>[20 , 'Meine Downloads'], +# 'list'=> [30,'Alle Downloads'], + 'log'=> [50,'Protokoll'], + 'search'=> [5, 'Suche', 'nzbindex.nl','NZB Datei hochladen'], ); @@ -30,6 +30,11 @@ sub start_html my $self=shift; my ($title)=@_; my $active = $self->{REQUEST_URI}; + $active =~ s'.*/''; + $active =~ s'\?.*''; + my $active_sub; + ($active,$active_sub)= split /_/,$active; + $active_sub+=2; my $html= CGI::start_html(-style=>{'src'=>'/style.css'},-title=>$title); my $user = new local::user(%ENV); $html.= table({class=>'nohigh'},Tr({class=>'nohigh'},td({style=>'font-weight: bold'},[$config::config{page_name} ]),td({class=>'login',align=>'right'},['<nobr>'.b('Angemeldet als: ').$user->get_name.'</nobr>']))); @@ -37,6 +42,7 @@ sub start_html my @elements; foreach my $url (sort {$menus{$a}->[0] <=> $menus{$b}->[0] } keys %menus) { + next if not $menus{$url}->[1]; if ($url eq $active) { push @elements,th({class=>'active'},[$menus{$url}->[1]]); @@ -48,6 +54,28 @@ sub start_html Tr({class=>'menu'},join '',@elements ), ); + my @submens; + if ($#{$menus{$active}}>1) + { + foreach my $i (2..$#{$menus{$active}}) + { + if ($i == $active_sub) + { + push @submens,th({class=>'active'},[$menus{$active}->[$i]]); + } else { + if ($i > 2) + { + push @submens,th([a({href=>"${active}_".($i-2)},$menus{$active}->[$i])]); + } else { + push @submens,th([a({href=>"${active}"},$menus{$active}->[$i])]); + } + } + } + } + $html.= table({class=>'submenu'}, + Tr({class=>'submenu'},join '',@submens + ), + ); return $html; } |