--- db/prgsrc/stats.pl 2004/11/08 02:14:57 1.1 +++ db/prgsrc/stats.pl 2004/11/10 03:31:39 1.3 @@ -7,7 +7,7 @@ use DBI; use CGI ':all'; use strict; -require "dbdefs.pl"; +eval {require "dbdefs.pl";}; my $dbuser||="piataev"; my $dbname||="chgk"; my $dbpass||=""; @@ -17,6 +17,7 @@ my $dbhost||="localhost"; my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(time); $year += 1900; +$mon ++; my @names=('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'); $wday=$names[$wday];