db/prgsrc/dbchgk.pm - diff

Return to dbchgk.pm CVS log

Up to [Local Repository] / db / prgsrc

version 1.9, 2002/01/13 00:32:12	version 1.11, 2005/12/10 00:03:55
Line 33 my $z;	Line 33 my $z;
my $qbase;	my $qbase;
BEGIN {do "chgk.cnf";	BEGIN {do "chgk.cnf";
$qbase = DBI -> connect ("DBI:mysql:$base",'piataev',undef);	$qbase = DBI -> connect ("DBI:mysql:$base",'piataev',undef);
	$qbase->do("SET NAMES koi8r");
};	};


Line 325 sub checktable # если $param='delete' уд	Line 326 sub checktable # если $param='delete' уд
{	{
my ($TabName,$param) = @_;	my ($TabName,$param) = @_;
my ($ans);	my ($ans);
if (scalar(grep(/^$TabName$/i, &tablelist))) {	if (scalar(grep(/\`$TabName$\`/i, &tablelist))) {
return 1 unless $param;	return 1 unless $param;
if ($param =~ /delete/) {$ans='y';}	if ($param =~ /delete/) {$ans='y';}
else {	else {
Line 350 sub checktable # если $param='delete' уд	Line 351 sub checktable # если $param='delete' уд

sub tablelist	sub tablelist
{	{
$qbase->func( '_ListTables' );	return $qbase->func('_ListTables');
}	}

sub in2out	sub in2out