db/prgsrc/eq/findequal.pl - diff

Return to findequal.pl CVS log

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

version 1.3, 2001/05/18 03:12:49	version 1.8, 2001/05/18 22:53:03
Line 32 use POSIX qw (locale_h);	Line 32 use POSIX qw (locale_h);

do "common.pl";	do "common.pl";

	my ($thislocale);
	if ($^O ~= /win/i) {
	$thislocale = "Russian_Russia.20866";
	} else {
	$thislocale = "ru_RU.KOI8-R";
	}
	POSIX::setlocale( &POSIX::LC_ALL, $thislocale );
	if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};
	}


	if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};

	print "before checktable";


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 65 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)
{	{