db/prgsrc/dbchgk.pm - diff

Return to dbchgk.pm CVS log

Up to [Local Repository] / db / prgsrc

version 1.8, 2001/12/05 01:29:09	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 148 sub packword	Line 149 sub packword
{	{
my ($fieldnumber,$id,$wordnumber)=@_;	my ($fieldnumber,$id,$wordnumber)=@_;
die "packword: fieldnumber is $fieldnumber! -- id=$id, word=$wordnumber\n" if $fieldnumber>6;	die "packword: fieldnumber is $fieldnumber! -- id=$id, word=$wordnumber\n" if $fieldnumber>6;
pack("CSC",$fieldnumber,$id,$wordnumber%256)	$r=pack("CSC",$fieldnumber\|(($id >> 16) << 4),$id%65536,$wordnumber%256);
}	}

sub updateword2question	sub updateword2question
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