1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
package local::menu;
require Exporter;
use CGI qw(:standard);
use strict;
use base "Exporter";
use local::user;
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'],
);
sub new
{
my $invocant = shift;
my $class = ref($invocant) || $invocant;
# my $self = $class->SUPER::new(@_);
my $self=bless {@_}, $class;
return $self;
}
sub start_html
{
my $self=shift;
my ($title)=@_;
my $active = $self->{REQUEST_URI};
my $html= CGI::start_html(-style=>{'src'=>'/style.css'},-title=>$title);
my $user = new local::user($ENV{REMOTE_USER});
$html.= table({class=>'nohigh'},Tr({class=>'nohigh'},td({style=>'font-weight: bold'},[qw/ share.ffgraz.net / ]),td({class=>'login',align=>'right'},[nobr(b('Angemeldet als: ').$user->get_name)])));
$html.= CGI::start_div({class=>'bodydiv'});
my @elements;
foreach my $url (sort {$menus{$a}->[0] <=> $menus{$b}->[0] } keys %menus)
{
if ($url eq $active)
{
push @elements,th({class=>'active'},[$menus{$url}->[1]]);
} else {
push @elements,th([a({href=>$url},$menus{$url}->[1])]);
}
}
$html.= table({class=>'menu'},
Tr({class=>'menu'},join '',@elements
),
);
return $html;
}
sub end_html
{
my $self=shift;
my $html= CGI::end_div();
$html.= CGI::end_html;
return $html;
}
|