#include # # Insert the filename for the imgdot file # # # Compute the page footer # ========== 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 = \"\"; :>" > pix/imgdot-1x1-transp.gif <: $cvsurl = "http://cvs.infodrom.org/service.infodrom.org/%s%s?cvsroot=infodrom.org"; @months = ("Dummy", "January","February","March","April","May","June", "July","August","September","October","November","December"); "" =~ /^(\d+)-(\d+)-(\d+)\s/; $date = sprintf ("%s %d, %d", $months[$2], $3, $1); if (length ("")) { if ("" ne ".") { $url = ""; } else { $url = ''; } } else { "/" =~ /.*\/(src\/.*)$/; $url = sprintf ($cvsurl, $1, ""); } if (length ($url)) { $url = sprintf (', page source', $url); } :>