OmniHTTPd

[Erwin]

hi,

(noch?) keine neuere Version gibt (entgegen der sonst üblichen Praxis).

Das war schon einmal so bei einem Jahreswechsel - habe Geduld.

Erwin

Bis dahin: dateswitch.pl

OS - WinXX

Datum in datei sichern, Datum zuruecksetzen

my $file = 'c:/tmp/date';
my $xdate = '12.12.2003';
###########################################################################
use strict;

if(-e $file){ # Datum wurde gesichert, Datei vorhanden, Systemdate ist $xdate
 open IN, $file or die $!;
 my $olddate = <IN>;
 close IN;
 qx(date $olddate);
 unlink $file;
 print "aktuelles datum: $olddate\n";
}
else{
 # aktuelles Datum ermitteln
 use POSIX qw(strftime);
 my $date = strftime("%d.%m.%Y", localtime);

# aktuelles Datum in die Datei schreiben
 open OUT, ">c:/tmp/date" or die $!;
 print OUT $date;
 close OUT;
 qx(date $xdate);
 print "aktuelles Datum: $xdate\n";
}

<STDIN>;
exit;

###########################################################################