![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dbchgk.pm CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc / eq|
Return to dbchgk.pm CVS log | Up to [Local Repository] / db / prgsrc / eq |
| version 1.2, 2001/05/18 02:10:15 | version 1.3, 2001/05/18 02:12:41 |
|---|---|
| Line 10 use vars qw(@ISA @EXPORT); | Line 10 use vars qw(@ISA @EXPORT); |
| my $z; | my $z; |
| my $qbase; | my $qbase; |
| BEGIN {do "chgk.cnf"; | BEGIN {do "chgk.cnf"; |
| $qbase = DBI -> connect ("DBI:mysql:$base",undef,undef); | $qbase = DBI -> connect ("DBI:mysql:$base",'piataev',''); |
| }; | }; |