[BACK]Return to findequal.pl CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc / eq

Diff for /db/prgsrc/eq/Attic/findequal.pl between versions 1.2 and 1.6

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;
 }  }
Removed from v.1.2  
changed lines
  Added in v.1.6

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>