#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 <: $giturl = "http://git.infodrom.org/?p=infodrom.org/service.infodrom.org;a=%s;f=%s%s"; @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 ("")) { $url_history = ''; } else { "/" =~ /.*\/(src\/.*)$/; $url_history = sprintf($giturl, "history", $1, ""); $url_source = sprintf($giturl, "blob_plain", $1, ""); } if (length ($url_history)) { $url = sprintf(', page source history', $url_source, $url_history); } :>