db/prgsrc/stats.pl - diff

Return to stats.pl CVS log

Up to [Local Repository] / db / prgsrc

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];