Return to stats.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.2, 2004/11/08 02:23:18 | version 1.3, 2004/11/10 03:31:39 |
---|---|
Line 17 my $dbhost||="localhost"; | Line 17 my $dbhost||="localhost"; |
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = | my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = |
gmtime(time); | gmtime(time); |
$year += 1900; | $year += 1900; |
$mon ++; | |
my @names=('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'); | my @names=('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'); |
$wday=$names[$wday]; | $wday=$names[$wday]; |