Datum?

[PAT]

hi tom!

probier mal das hier:

&get_date;
print "Content-type: text/html\n\n";
print " $date ";

sub get_date {
    @days   = ('Sunday','Monday','Tuesday','Wednesday',
               'Thursday','Friday','Saturday');
    @months = ('January','February','March','April','May','June','July',
                 'August','September','October','November','December');

($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
    $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
    $year += 1900;  <-- bzw 2000 dann ab dem 1.1!
   $date = "$days[$wday], $months[$mon] $mday"
    $date = "$days[$wday], $months[$mon] $mday, $year";
}

pat