#
#######################################################################
-$menufile = "menu.ini";
use SL::Menu;
+use URI;
+
+use strict;
1;
# end of main
sub display {
- $form->header(qq|<link rel="stylesheet" href="css/menuv3.css?id=| .
- int(rand(100000)) . qq|" type="text/css">|);
-
- print(qq|<body>\n|);
-
- clock_line();
-
- print qq|
-
-<div id="menu">
+ my $form = $main::form;
-| . acc_menu() . qq|
+ $form->header(qq|<link rel="stylesheet" href="css/menuv3.css?id=" type="text/css">|);
-</div>
+ $form->{date} = clock_line();
+ $form->{menu} = acc_menu();
+ my $callback = $form->unescape($form->{callback});
+ $callback = URI->new($callback)->rel($callback) if $callback;
+ $callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/;
+ $form->{callback} = $callback;
-<div style="clear: both;"></div>
-
-<iframe id="win1" src="login.pl?login=$form->{login}&password=$form->{password}&action=company_logo&path=$form->{path}" width="100%" height="93%" name="main_window" style="position: absolute; border: 0px; z-index: 99; ">
-<p>Ihr Browser kann leider keine eingebetteten Frames anzeigen.
-</p>
-</iframe>
-</body>
-</html>
-
-|;
+ print $form->parse_html_template("menu/menuv3");
}
sub clock_line {
-
- $login = "["
- . $form->{login}
- . " - <a href=\"login.pl?path="
- . $form->{"path"}
- . "&password="
- . $form->{"password"}
- . "&action=logout\" target=\"_top\">"
- . $locale->text('Logout')
- . "</a>] ";
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
$Jahr, $Wochentag, $Jahrestag, $Sommerzeit)
= localtime(time);
- my $CTIME_String = localtime(time);
$Monat += 1;
$Jahrestag += 1;
$Monat = $Monat < 10 ? $Monat = "0" . $Monat : $Monat;
"April", "Mai", "Juni", "Juli",
"August", "September", "Oktober", "November",
"Dezember");
- $datum =
+ return
$Wochentage[$Wochentag] . ", der "
. $Monatstag . "."
. $Monat . "."
. $Jahr . " - ";
-
- #$zeit="<div id='Uhr'>".$Stunden.":".$Minuten.":".$Sekunden."</div>";
- $zeit = "<div id='Uhr'>" . $Stunden . ":" . $Minuten . "</div>";
- print qq|
-<script type="text/javascript">
-<!--
-var h=$Stunden; var m=$Minuten; var s=$Sekunden;
-function clockon() {
- s=++s%60;if(s==0){m=++m%60;if(m==0)h=++h%24;}
- document.getElementById('clock_id').innerHTML = (h<10?'0'+h:h)+":"+(m<10?'0'+m:m)+":"+(s<10?'0'+s:s);
- var timer=setTimeout("clockon()", 1000);
-}
-window.onload=clockon
-//-->
-</script>
-<table border="0" width="100%" background="image/bg_titel.gif" cellpadding="0" cellspacing="0">
- <tr>
- <td style="color:white; font-family:verdana,arial,sans-serif; font-size: 12px;"> [<a href="JavaScript:top.main_window.print()">drucken</a>]</td>
- <td align="right" style="vertical-align:middle; color:white; font-family:verdana,arial,sans-serif; font-size: 12px;" nowrap>
- $login $datum <span id='clock_id' style='position:relative'></span>
- </td>
- </tr>
-</table>
-|;
}
sub acc_menu {
- $locale = Locale->new($language, "menu");
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
- $mainlevel = $form->{level};
- $mainlevel =~ s/$mainlevel--//g;
- my $menu = new Menu "$menufile";
- $menu = new Menu "custom_$menufile" if (-f "custom_$menufile");
- $menu = new Menu "$form->{login}_$menufile"
- if (-f "$form->{login}_$menufile");
+ my $mainlevel = $form->{level};
+ $mainlevel =~ s/\Q$mainlevel\E--//g;
+ my $menu = Menu->new("menu.ini");
$| = 1;
return print_menu($menu);
}
-sub my_length {
- my ($s) = @_;
- my $len = 0;
- my $i;
- my $skip = 0;
-
- for ($i = 0; $i < length($s); $i++) {
- my $c = substr($s, $i, 1);
- if ($skip && ($c eq ";")) {
- $skip = 0;
- } elsif ($skip) {
- next;
- } elsif ($c eq "&") {
- $skip = 1;
- $len++;
- } else {
- $len++;
- }
- }
-
- return $len;
-}
-
sub print_menu {
my ($menu, $parent, $depth) = @_;
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+
my $html;
die if ($depth * 1 > 5);
next if (($item eq "") || ($item =~ /--/));
my $menu_item = $menu->{"${parent}${item}"};
- my $menu_title = $locale->text($item);
+ my $menu_title = $::locale->text($item);
my $menu_text = $menu_title;
- $menu_text =~ s/ /<br>/ if ($parent && (my_length($menu_text) >= 17));
-
my $target = "main_window";
$target = $menu_item->{"target"} if ($menu_item->{"target"});