# ========== Abstand berechnen ========== # in ePerl: $root_prefix # in WML: <: $root_prefix = ""; $root_prefix =~ s/^.*src\/?(.*)$/$1/; @foo = split (/\//, $root_prefix); $root_prefix = "../"x($#foo+1); :> > <: print "$root_prefix"; :> "<: $root_var = \"\"; :>" > # ========== Page footer ========== # # Sollte eigentlich in
eingefaßt sein, kursiv sieht's aber nicht aus. # # © = © © InfoCon, <: @months = # ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"); ("Dummy", "Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember"); #($date_sec,$date_min,$date_hour,$date_mday,$date_mon,$date_year,$date_wday,$date_isdst) # = localtime(); $date_year += 1900; #printf "%d %s %d", $date_mday, $months[$date_mon], $date_year; "" =~ /^(\d+)-(\d+)-(\d+)\s/; printf "Last modified: %d. %s %d", $1, $months[$2], $3; :> # ========== Page ========== # 10 > > > > <get-var title>
[InfoCon] >

Information & Consulting

# Anfang der Menü-Tabelle # Untere Zeile, nur die Ecken
<: @menu = ('Infos','Dienstleistungen','Shop'); %menu_dir = ('Infos' => 'infos', 'Dienstleistungen' => 'service', 'Shop' => 'shop', ); %menu_width = ('Infos' => 50, 'Dienstleistungen' => 120, 'Shop' => 50, ); $menu_default = 'hspace="4" vspace="7" height="18" align="middle" border="0"'; foreach $rubrik (@menu) { $dir = $menu_dir{$rubrik}; if ("" =~ /src\/$dir/) { if ("" eq "index") { # No link printf '[%s]', $root_prefix, $dir, $menu_width{$rubrik}, $rubrik, $menu_default; } else { # We're in but link required printf '[%s]', $root_prefix, $dir, $root_prefix, $dir, $menu_width{$rubrik}, $rubrik, $menu_default; } } else { # Link required printf '[%s]', $root_prefix, $dir, $root_prefix, $dir, $menu_width{$rubrik}, $rubrik, $menu_default; } } :>
# Ende der Menü-Tabelle
#include "submenu.inc" > %body
>