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 |