--- db/prgsrc/db.cgi 2004/09/05 14:57:05 1.136 +++ db/prgsrc/db.cgi 2004/11/08 02:23:18 1.137 @@ -11,7 +11,7 @@ use locale; use vars qw($opt_z); use Getopt::Std; #my ($dbuser,$dbname,$dbpass,$dbhost); -require "dbdefs.pl"; +eval {require "dbdefs.pl";} ; my $url=url||''; $dbuser||="piataev"; $dbname||="chgk";