Return to db.cgi CVS log | Up to [Local Repository] / db / prgsrc |
version 1.136, 2004/09/05 14:57:05 | version 1.137, 2004/11/08 02:23:18 |
---|---|
Line 11 use locale; | Line 11 use locale; |
use vars qw($opt_z); | use vars qw($opt_z); |
use Getopt::Std; | use Getopt::Std; |
#my ($dbuser,$dbname,$dbpass,$dbhost); | #my ($dbuser,$dbname,$dbpass,$dbhost); |
require "dbdefs.pl"; | eval {require "dbdefs.pl";} ; |
my $url=url||''; | my $url=url||''; |
$dbuser||="piataev"; | $dbuser||="piataev"; |
$dbname||="chgk"; | $dbname||="chgk"; |