version 1.1, 2001/12/03 19:54:48
|
version 1.3, 2003/02/02 22:02:03
|
Line 1
|
Line 1
|
#!perl |
#!/usr/bin/perl -w |
|
|
#!/usr/local/bin/perl -w |
|
|
|
=head1 NAME |
=head1 NAME |
|
|
Line 47 if ((uc 'Á') ne 'á') {die "!Koi8-r local
|
Line 45 if ((uc 'Á') ne 'á') {die "!Koi8-r local
|
|
|
|
|
|
|
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"}; |
if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; |
|
|
|
|
|
|
print "Creating equalto table...\n"; |
print "Creating equalto table...\n"; |
|
mydo("DROP TABLE IF EXISTS equalto"); |
|
|
mydo("CREATE TABLE equalto ( |
mydo("CREATE TABLE equalto ( |
First INT UNSIGNED NOT NULL PRIMARY KEY, KEY FirstKey (First), |
First INT UNSIGNED NOT NULL PRIMARY KEY, KEY FirstKey (First), |