Connie: "2000" statt "19100" - die $year unter PERL anpassen

Beitrag lesen

Hallo!

Wer von Euch Scripte einsetzt, die in PERL geschrieben sind und das Datum in der inzwischen bekannten Form "19100" anzeigen statt "2000", der kann das leicht ändern.

Sucht in den Scripten nach einem String:

$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

danach ist die $year bekannt und hat zur Zeit den Wert "100"

wenn Ihr danach folgendes einbaut:

if ($year > 99) {$year = substr($year,1,2);}

ist sie auf "00" reduziert

anschließend sucht mal nach Strings wie:

$long_date = " $mday. $months[$mon] 19$year";

oder

$date = "$days[$wday], $mday. $months[$mon] 19$year um $hour:$min:$sec";

dann braucht Ihr nur noch die 19 durch die 20 ersetzen und habt eine besser Ausgabe der Jahreszahl.

Diese (inzwischen) falsche Ausgabe ist z.B. im GUESTBOOK.CGI von Selena Sol oder im WWWBOARD.CGI von Matt Wright, aber auch in Linklisten-SCripten etc. aufgetreten

wenn Ihr die geänderten Scripte anschließend im ASCII-Modus wieder hochlädt, sollte eigentlich alles stimmen!

(ich muß das jetzt tun....)

tschüß
Connie