db/prgsrc/eq/dbchgk.pm - diff

Return to dbchgk.pm CVS log

Up to [Local Repository] / db / prgsrc / eq

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','');
};	};