version 1.1, 2001/05/18 01:37:51
|
version 1.3, 2001/05/18 02:12:41
|
Line 1
|
Line 1
|
package dbchgk; |
package dbchgk; |
use DBI; |
use DBI; |
use Exporter; |
use Exporter; |
use VARS qw(@ISA @EXPORT); |
use vars qw(@ISA @EXPORT); |
@ISA=qw(Exporter); |
@ISA=qw(Exporter); |
|
|
@EXPORT = qw(&getbase &closebase &getrow $z &in2out &getall &out2in &mydo |
@EXPORT = qw(&getbase &closebase &getrow $z &in2out &getall &out2in &mydo |
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',''); |
}; |
}; |
|
|
|
|