# © = ©
#
© Joey, <:
<:
$cvsurl = "http://cvs.infodrom.org/oldenburg.linux.de/%s%s?cvsroot=lugo";
@months =
("Dummy", "Januar","Februar","März","April","Mai","Juni",
"Juli","August","September","Oktober","November","Dezember");
"" =~ /^(\d+)-(\d+)-(\d+)\s/;
$date = sprintf ("%d. %s %d", $3, $months[$2], $1);
if (length ("")) {
if ("" ne ".") {
$url = "";
} else {
$url = '';
}
} else {
"/" =~ /.*\/(src\/.*)$/;
$url = sprintf ($cvsurl, $1, "");
}
if (length ($url)) {
$url = sprintf ('Quellcode', $url);
} else {
$url = 'Quellcode';
}
:>