1 # ========== Abstand berechnen ==========
2 # in ePerl: $root_prefix
3 # in WML: <get-var root_prefix>
5 $root_prefix = "<get-var WML_SRC_DIRNAME>";
6 $root_prefix =~ s/^.*src\/?(.*)$/$1/;
7 @foo = split (/\//, $root_prefix);
8 $root_prefix = "../"x($#foo+1);
10 <if <not <get-var root_prefix>>
11 <define-tag root_prefix><: print "$root_prefix"; :></define-tag>
12 "<: $root_prefix = \"<get-var root_prefix>\"; :>"
16 # ========== Page footer ==========
18 # Sollte eigentlich in <address></address> eingefaßt sein, kursiv sieht's aber nicht aus.
20 <define-tag page-footer>
21 <font face="Helvetica,Arial" size="-1">© <a href="<root_prefix>impressum.html">InfoCon</a>
22 <a href="<root_prefix>datenschutz.html">Datenschutz</a>
26 <define-tag old-page-footer>
28 <font face="Helvetica,Arial" size="-1">© <a href="<root_prefix>impressum.html">InfoCon</a>, <:
30 # ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
31 ("Dummy", "Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
33 #($date_sec,$date_min,$date_hour,$date_mday,$date_mon,$date_year,$date_wday,$date_isdst)
34 # = localtime(); $date_year += 1900;
35 #printf "%d %s %d", $date_mday, $months[$date_mon], $date_year;
37 "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
39 printf "Letzte Änderung: %d. %s %d", $3, $months[$2], $1;
44 # ========== Page ==========
46 <define-tag page-horiz-space>10</define-tag>
47 <define-tag page endtag=required>
50 <if <not <get-var title>>
51 <set-var title="InfoCon - Information & Consulting">>
52 <if <not <get-var keywords>>
53 <set-var keywords="Linux, Oldenburg, Support, Schulung, Service, Perl, Python, \
54 PHP, JavaScript, Programmierung, Anpassung, Datenbanken, MySQL, PostgreSQL, \
55 Internet-Dienstleistung, Monitoring, Server, Administration, Administrator">>
57 # Titel im linken Submenü
58 <if <not <get-var menu>>
59 <set-var menu="<div align=center> </div><br>">
60 <set-var menu="<div align=center><b>Infos</b></div><br>">
65 <title>InfoCon - <get-var title></title>
66 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
67 <link href="<root_prefix>infocon.css" rel="stylesheet" type="text/css">
68 <link rel="icon" href="<root_prefix>favicon.ico" type="image/x-icon">
69 <link rel="shortcut icon" href="<root_prefix>favicon.ico" type="image/x-icon">
70 <meta name="Language" content="de">
72 <meta name="Keywords" content="<get-var keywords>">
73 <meta name="Robots" content="index,follow">
79 <table cellspacing=0 cellpadding=0 border=0 width=100%>
82 <td width=90><a href="<:=length($root_prefix)?$root_prefix:'/':>"><img src="<root_prefix>Pics/infocon-90.png" align=center alt="[InfoCon]" border=0></a></td>
83 <td width=<page-horiz-space>></td>
85 <h1 align=center><font face=Helvetica>Information & Consulting</font></h1>
87 # Anfang der Menü-Tabelle
88 <table bgcolor=#5dbbf9 cellspacing=0 cellpadding=0 border=0 width=100%>
90 <td><img src="<root_prefix>Pics/corner-upperleft.png" align="left" border="0" hspace="0" vspace="0" alt="" width="16" height="16"></td>
91 <td rowspan=2 align=center>
94 # @menu = ('Infos','Dienstleistungen','Shop');
95 @menu = ('Infos','Dienstleistungen', 'Logbook');
96 %menu_dir = ('Infos' => 'infos',
97 'Dienstleistungen' => 'service',
98 'Logbook' => 'logbook',
101 %menu_width = ('Infos' => 50,
102 'Dienstleistungen' => 120,
106 $menu_default = 'hspace="4" vspace="7" height="18" align="middle" border="0"';
108 foreach $rubrik (@menu) {
109 $dir = $menu_dir{$rubrik};
110 if ("<get-var WML_SRC_DIRNAME>" =~ /src\/$dir/) {
111 if ("<get-var WML_SRC_BASENAME>" eq "index") {
113 printf '<img src="%sPics/menu-%s.press.png" width="%d" alt="[%s]" %s>',
114 $root_prefix, $dir, $menu_width{$rubrik}, $rubrik, $menu_default;
116 # We're in but link required
117 printf '<a href="%s%s/"><img src="%sPics/menu-%s.press.png" width="%d" alt="[%s]" %s></a>',
118 $root_prefix, $dir, $root_prefix, $dir, $menu_width{$rubrik}, $rubrik, $menu_default;
122 printf '<a href="%s%s/"><img src="%sPics/menu-%s.png" width="%d" alt="[%s]" %s></a>',
123 $root_prefix, $dir, $root_prefix, $dir, $menu_width{$rubrik}, $rubrik, $menu_default;
129 <td><img src="<root_prefix>Pics/corner-upperright.png" align="right" border="0" hspace="0" vspace="0" alt="" width="16" height="16"></td>
132 # Untere Zeile, nur die Ecken
134 <td><img src="<root_prefix>Pics/corner-lowerleft.png" align="left" border="0" hspace="0" vspace="0" alt="" width="16" height="16"></td>
135 <td><img src="<root_prefix>Pics/corner-lowerright.png" align="right" border="0" hspace="0" vspace="0" alt="" width="16" height="16"></td>
138 # Ende der Menü-Tabelle
143 <td width=90 valign=top bgcolor=#5dbbf9>
144 <img src="<root_prefix>Pics/corner-upperleft.png" align="left" border="0" hspace="0" vspace="0" alt="" width="16" height="16">
145 <img src="<root_prefix>Pics/corner-upperright.png" align="right" border="0" hspace="0" vspace="0" alt="" width="16" height="16">
150 #include "submenu.inc"
155 <td width=<page-horiz-space>></td>
156 <td width=100% valign=top>
157 <table width=100% border=0 cellspacing=2 cellpadding=0><tr><td width=100% align=left valign=top>
158 <font face=Helvetica>
160 # <td width=100% valign=top><font face=Helvetica>
163 <script type="text/javascript">
164 var today = new Date;
165 var year = today.getYear();
166 var mon = ['Januar','Februar','März','April','Mai','Juni','Juli','August','September','Oktober','November','Dezember'];
171 if (year > 2006 && year < 2100)
172 document.write("<small>" + today.getDate()
173 +". " + mon[today.getMonth()]
174 +" " + year + "</small>");
180 <h3 id=pagetitle><get-var title></h3>
194 <td width=90 valign=bottom bgcolor=#5dbbf9>
195 <img src="<root_prefix>Pics/corner-lowerleft.png" align="left" border="0" hspace="0" vspace="0" alt="" width="17" height="16">
196 <img src="<root_prefix>Pics/corner-lowerright.png" align="right" border="0" hspace="0" vspace="0" alt="" width="16" height="16">
198 <td width=<page-horiz-space>></td>
199 <td width=100% valign=bottom align=right><page-footer></td>
207 <define-tag menu-item>
208 <preserve base text href current>
209 <set-var %attributes>
211 <if <not <get-var href>>
212 <set-var href="<get-var base>.html">>
214 <ifeq <get-var WML_SRC_BASENAME> "<get-var base>" "<set-var current="id=\"current\"">">
216 <li><a <get-var current> href="<get-var href>"><get-var text></a></li>
218 <restore base text href current>
224 while (strlen($dir) > 1) {
225 if (file_exists($dir.'/config.php')) {
226 require_once($dir.'/config.php');
229 $dir = dirname($dir);
232 require_once('<root_prefix>/future.php');