\ my $path=$WML_SRC_DIRNAME."/".$WML_SRC_BASENAME; $path =~ s|.+?website/||s; print "$path.en.html"; \ # # an rrdworld entry # # # # RRRRumble # Peter Example # Makes rrdtool rumble when new data is added # http://somesite.blabla.plac # 2005 4 # GPL # # # # http://somesite.blabla.plac # max@example.com # # # # # Virus Graph # Max Beispiel # The five most common critters of the week. # 2005 4 # # # # http://somesite.blabla.plac # max@example.com # #

%body

%body

%body %body ... ">[home] %body /%body License: %body ">[demo] < @ "@XYZ-" />> %body
"/> />
| Date: |
%body use POSIX qw(strftime); use POSIX qw(locale_h); setlocale(LC_TIME,"de"); my $x_de = strftime "%e. %B %Y", localtime("$(WML_SRC_TIME)"); setlocale(LC_TIME,"en_US"); my $x_en = strftime "%B %e, %Y", localtime("$(WML_SRC_TIME)"); $x_de=~ s/\s/ /g; $x_en=~ s/\s/ /g; print $x_en; print $x_de;
# vi: ft=wml