version 1.2, 2001/05/18 02:52:59
|
version 1.6, 2001/05/18 22:48:49
|
Line 34 do "common.pl";
|
Line 34 do "common.pl";
|
|
|
if (checktable('equalto')) {die "The table equalto exists. You must delete it first!\n"}; |
if (checktable('equalto')) {die "The table equalto exists. You must delete it first!\n"}; |
|
|
|
if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; |
|
|
|
print "before mydo"; |
|
|
|
|
print "Creating equalto table...\n"; |
print "Creating equalto table...\n"; |
|
|
mydo("CREATE TABLE equalto ( |
mydo("CREATE TABLE equalto ( |
Line 44 print "Creating equalto table...\n";
|
Line 49 print "Creating equalto table...\n";
|
or die "Can't create equalto table: $!\n"; |
or die "Can't create equalto table: $!\n"; |
|
|
|
|
|
if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; |
|
print "before getbase"; |
|
|
getbase(QuestionId,Question); |
getbase(QuestionId,Question); |
|
|
|
|
|
print "after getbase"; |
|
|
print "Loading questions...\n"; |
print "Loading questions...\n"; |
|
|
#if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; |
if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; |
|
|
while ((($id, $a) = getrow), $id) |
while ((($id, $a) = getrow), $id) |
{ |
{ |
Line 60 while ((($id, $a) = getrow), $id)
|
Line 68 while ((($id, $a) = getrow), $id)
|
$a=~s/³£pPHXxAaBEe3KMoOT/åÅÒòîèÈáÁ÷åÅúëíÏïô/; |
$a=~s/³£pPHXxAaBEe3KMoOT/åÅÒòîèÈáÁ÷åÅúëíÏïô/; |
$a=uc $a; |
$a=uc $a; |
|
|
$a=~s/[^êãõëåîçûýúèÿüöäìïòðá÷ùæñþóíéôøâà]//g; |
$a=~s/[^êãõëåîçûýúèÿüöäìïòðá÷ùæñþóíéôøâàÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀ]//g; |
$ar[$id]=$a; |
$ar[$id]=$a; |
$last=$id; |
$last=$id; |
} |
} |