Website META Language / News

Development

Timeline

ChangeLog

News

Mailing List

ChangeLog

[! use File::Basename; !]

[+
eval {
chdir(dirname($ENV{'PATH_TRANSLATED'}));
binmode STDOUT, ":utf8";
open(FP, "<../distrib/wml-SNAP/ChangeLog");
binmode FP, ":iso8859-1";
my $out = "";
while () {
    s|&|&\;|g; # escape with useless backslash
    s|<|<\;|g;
    s|>|>\;|g;
    s|(Changes between.+:)|$1|g;
    $out .= $_;
}
close(FP);
$out
}
+]