version 1.1, 2004/11/08 02:14:57
|
version 1.3, 2004/11/10 03:31:39
|
Line 7 use DBI;
|
Line 7 use DBI;
|
use CGI ':all'; |
use CGI ':all'; |
use strict; |
use strict; |
|
|
require "dbdefs.pl"; |
eval {require "dbdefs.pl";}; |
my $dbuser||="piataev"; |
my $dbuser||="piataev"; |
my $dbname||="chgk"; |
my $dbname||="chgk"; |
my $dbpass||=""; |
my $dbpass||=""; |
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]; |
|
|