[EasyLinux-Ubuntu] Konsolen-Kalender When

[Hannibal]

Am 22.11.2010 22:07, schrieb Carsten Rüthel:
> Hallo Hannibal,
>
> ohne Impact-Analyse habe ich bei mir in /usr/bin/when mal Zeile 1999
> geändert von
>
>    if ($a[0] ne '*'&&  $a[0]<1900 || $a[0]>2100) {return
> [main::w('illegal_year',$a[0])]}
>
> in
>
>    if ($a[0] ne '*'&&  $a[0]<1800 || $a[0]>2100) {return
> [main::w('illegal_year',$a[0])]}
>
> und schon kann ich ein Datum vor 1900 eingeben.  Ich habe den Quelltext
> nach 1900 durchsucht ...  und dann in Zeile 2126 das hier gefunden:
>
> sub current_date {
>      my @tm = localtime;
>      my $y = $tm[5];
>      my $m = $tm[4]+1;
>      my $d = $tm[3];
>      if ($y<1900) {$y=$y+1900} # works in Perl 5 and 6
>      return When->new($y,$m,$d);
> }
>
> Ich würde annehmen, wenn man Jahreszahlen immer vollständig angibt (das
> macht ja seit dem Y2K-Problem sicher jeder ;-)), dann sollte diese
> Vervollständigung keine Probleme bereiten.
>
> Nutzung aber auf eigene Gefahr, ich habe das nicht ausführlich getestet!
>
> Viele Grüße
> Carsten

Ich habe es grad getestet, es läuft scheinbar problemlos.
Danke für den Tipp!

viele Grüße


-- 
Das Universum expandiert, aber ich finde keinen Parkplatz!