4 <define-tag lightblue>#e2f6ff</define-tag>
6 #======= Farben fuer die Begriffsliste =======
7 <define-tag cold>#e2f6ff</define-tag>
8 <define-tag coln>#ffffff</define-tag>
10 <define-tag body_with_colors>
11 <body bgcolor="#ffffff" text="#000000" vlink="#000090" alink="#e709f7" link="#1717ef">
14 # ========== Abstand berechnen ==========
15 # in ePerl: $root_prefix
16 # in WML: <get-var root_prefix>
18 $root_prefix = "<get-var WML_SRC_DIRNAME>";
19 $root_prefix =~ s/^.*src\/?(.*)$/$1/;
20 @foo = split (/\//, $root_prefix);
21 $root_prefix = "../"x($#foo+1);
23 # Beware, the following does not work, dunno why, thus don't use
24 # <get-var root_prefix>
25 <if <not <get-var root_prefix>>
26 "<define-tag root_prefix><: print "$root_prefix"; :></define-tag>"
27 "<: $root_prefix = \"<get-var root_prefix>\"; :>"
30 <define-tag page endtag=required>
31 <preserve title-prefix name title>
34 <if <not <get-var title-prefix>>
35 <set-var title-prefix="LUGO: ">>
37 <if <not <get-var name>>
38 <set-var title="Linux User Group Oldenburg">>
40 <set-var title="<get-var title-prefix><get-var name>">>
43 <head><title><get-var title></title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
46 <table border=0 width=100%>
48 <td align=left><a href="<root_prefix>index.html"><img src="<root_prefix>images/lugo-noletter.gif" width=232 height=113 alt="Linux User Group Oldenburg" border=0></a></td>
49 <td align=right><img src="<: print $root_prefix :>images/lugo-banner.gif" width=268 height=78 alt="" border=0></td>
53 # ========== Das Menü. Achtung, dynamische Erzeugung ==========
55 <center><table border=0 cellpadding=2 cellspacing=10 width=90%>
58 @dirs = ('Termine','Infos','News','Service');
60 foreach $rubrik (@dirs) {
61 if ("<get-var WML_SRC_DIRNAME>" =~ /src\/$rubrik/) {
64 if ("<get-var WML_SRC_BASENAME>" eq "index") {
65 printf "<th align=\"center\" width=\"%%d%%%%\" bgcolor=\"#%%s\"><font face=\"Helvetica,Arial\">%%s</font></th>",
66 100/($#dirs+1), $color, $rubrik;
68 printf "<th align=\"center\" width=\"%%d%%%%\" bgcolor=\"#%%s\"><a href=\"%%s%%s/\">"
69 ."<font face=\"Helvetica,Arial\">%%s</font></a></th>",
70 100/($#dirs+1), $color, $root_prefix, $rubrik, $rubrik;
75 printf "<th align=\"center\" width=\"%%d%%%%\" bgcolor=\"#%%s\"><a href=\"%%s%%s/\">"
76 ."<font face=\"Helvetica,Arial\">%%s</font></a></th>",
77 100/($#dirs+1), $color, $root_prefix, $rubrik, $rubrik;
83 <font face="Helvetica,Arial">
89 <line color=008dfd height=1 align=center>
91 <address>© <a href="<: print $root_prefix :>impressum.html">LUGO</a>, <:
92 $cvsurl = "http://cvs.infodrom.org/oldenburg.linux.de/%s%s?cvsroot=LUGO";
94 # ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
95 ("Dummy", "Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
97 #($date_sec,$date_min,$date_hour,$date_mday,$date_mon,$date_year,$date_wday,$date_isdst)
98 # = localtime(); $date_year += 1900;
99 #printf "%d %s %d", $date_mday, $months[$date_mon], $date_year;
101 if (length ("<get-var source>")) {
102 if ("<get-var source>" ne ".") {
103 $url = "<get-var source>";
108 "<get-var WML_SRC_DIRNAME>/" =~ /.*\/(src\/.*)$/;
109 $url = sprintf ($cvsurl, $1, "<get-var WML_SRC_FILENAME>");
112 "<get-var WML_SRC_ISOTIME>" =~ /^(\d+)-(\d+)-(\d+)\s/;
114 printf "Letzte Änderung am <a href=\"%s\">Quellcode</a>: %d. %s %d", $url, $3, $months[$2], $1;
116 printf "Letzte Änderung: %d. %s %d", $3, $months[$2], $1;
123 <restore title-prefix name title>
126 <define-tag colorbg endtag=required>
128 <set-var %attributes>
129 <table width=100% cellpadding=2 cellspacing=0 border=0 bgcolor=<get-var bgcolor>>
130 <tr><td><font face="Helvetica,Arial">
132 </font></td></tr></table>
137 # mode: indented-text