Revision c2d72eda
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| bin/mozilla/menuv4.pl | ||
|---|---|---|
| 32 | 32 |
# |
| 33 | 33 |
####################################################################### |
| 34 | 34 |
|
| 35 |
$menufile = "menu.ini"; |
|
| 36 | 35 |
use SL::Menu; |
| 37 | 36 |
use URI; |
| 38 | 37 |
|
| 38 |
use strict; |
|
| 39 |
|
|
| 40 |
my $menufile = "menu.ini"; |
|
| 41 |
my $locale; |
|
| 42 |
|
|
| 39 | 43 |
1; |
| 40 | 44 |
|
| 41 | 45 |
# end of main |
| 42 | 46 |
|
| 43 | 47 |
sub display {
|
| 48 |
my $form = $main::form; |
|
| 49 |
|
|
| 44 | 50 |
$form->header(qq|<link rel="stylesheet" href="css/menuv4.css?id=" type="text/css">|); |
| 45 | 51 |
|
| 46 | 52 |
$form->{date} = clock_line();
|
| ... | ... | |
| 55 | 61 |
} |
| 56 | 62 |
|
| 57 | 63 |
sub clock_line {
|
| 64 |
my $form = $main::form; |
|
| 65 |
|
|
| 58 | 66 |
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, |
| 59 | 67 |
$Jahr, $Wochentag, $Jahrestag, $Sommerzeit) |
| 60 | 68 |
= localtime(time); |
| ... | ... | |
| 77 | 85 |
} |
| 78 | 86 |
|
| 79 | 87 |
sub acc_menu {
|
| 88 |
my $form = $main::form; |
|
| 89 |
my %myconfig = %main::myconfig; |
|
| 90 |
|
|
| 80 | 91 |
$locale = Locale->new($myconfig{countrycode}, "menu");
|
| 81 | 92 |
|
| 82 |
$mainlevel = $form->{level};
|
|
| 93 |
my $mainlevel = $form->{level};
|
|
| 83 | 94 |
$mainlevel =~ s/\Q$mainlevel\E--//g; |
| 84 | 95 |
my $menu = new Menu "$menufile"; |
| 85 | 96 |
|
| ... | ... | |
| 90 | 101 |
|
| 91 | 102 |
sub print_menu {
|
| 92 | 103 |
my ($menu, $parent, $depth) = @_; |
| 104 |
|
|
| 105 |
my $form = $main::form; |
|
| 106 |
my %myconfig = %main::myconfig; |
|
| 107 |
|
|
| 93 | 108 |
my $html; |
| 94 | 109 |
|
| 95 | 110 |
die if ($depth * 1 > 5); |
Auch abrufbar als: Unified diff
menuv4 strict