# Some color definitions # 0000ff cdf7d3 9ef7ab d9fcdd 000000 # ========== 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 = \"\"; :>" > # Default: no title # # Reminder to self: "Joey's Infopool" is in the menu bar already # # > # > <get-var title> # Menu bar # >
Luonnotar
> #include "submenu.inc" gifs/imgdot-1x1-transp.gif width=3 height=0 alt="">

> %body
# © = ©

© Joey, <: @months = ("Dummy", "January","February","March","April","May","June","July","August","September","October","November","December"); "" =~ /^(\d+)-(\d+)-(\d+)\s/; printf "Last modified: %s %d, %d", $months[$2], $3, $1; :>