\
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