![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to db.cgi CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc|
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"; |