<: # First the menu definition # @menu = ('Infodrom','Linux','Debian','linx','text','service','zeitungen','News','projects'); %menu_name = ( 'Infodrom' => 'Infodrom', 'Linux' => 'Linux', 'Debian' => 'Debian', 'linx' => 'Linx', 'text' => 'Texte', 'service' => 'Service', 'zeitungen' => 'Zeitungen', 'News' => 'News', 'projects' => 'Projekte', ); :> <: # The second menu for ($index=0; $index <= $#menu; $index++) { if ("" =~ /src\/$menu[$index](\/|$)/) { $second = $index; last; } } if (defined ($second)) { if (open (MENU, "$root_prefix$menu[$second]/menu.def")) { print "
\n
    \n"; while () { chomp(); next if /^\s*#/; next if /^\s*$/; ($name,$link) = split (/:/); $current = ''; if ($link =~ /(.*)\/$/) { $dir = $1; "" =~ /.*\/(src\/.*)$/; $wdir = $1; $current = 'id="current" ' if (($wdir eq "src/$menu[$index]/$dir") && ("" eq "index")); $current = 'id="current" ' if (substr($wdir,0,5+length($menu[$index].$dir)) eq "src/$menu[$index]/$dir"); # ACHTUNG: Ist etwas unsauber, wegen foo/bar.html != bar.php3 } elsif ($link =~ /(.*)\.(html|php)$/) { $current = 'id="current" ' if ("" eq "$1"); } printf '
  • %s
  • '."\n", $menu[$second], $current, $root_prefix, $menu[$second], $link, $name; } print "
\n
\n"; close (MENU); } } :>
# The color of the current 2nd menu (regardless if there is any) <: print $menucolor; :> # # The sidemenu/submenu #
\" title=\"\""> >
""> > "">
# Used for menus in submenu.inc, link=foo.html is optional, only required for .php > > "" ""> ".de" ""> ".en" "">
  • href="">
  • %body

    # Local variables: # mode: indented-text # mode: auto-fill # end: