[BACK]Return to dbchgk.pm CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/dbchgk.pm between versions 1.8 and 1.12

version 1.8, 2001/12/05 01:29:09 version 1.12, 2008/02/08 22:49:12
Line 26  use vars qw(@ISA @EXPORT); Line 26  use vars qw(@ISA @EXPORT);
   
 @EXPORT = qw(&getbase &getquestions &closebase &getrow $z &in2out &getall &addnf &out2in &mydo  @EXPORT = qw(&getbase &getquestions &closebase &getrow $z &in2out &getall &addnf &out2in &mydo
              &getequalto &forbidden &getquestion &checktable &addword2task &addnest &getwordkeys &getflag &addword2task                &getequalto &forbidden &getquestion &checktable &addword2task &addnest &getwordkeys &getflag &addword2task 
              &updateword2question &knownword &incnf &searchmark &knownnf &getnests                &updateword2question &updatew2q &knownword &incnf &searchmark &knownnf &getnests 
              &packword &getnfnumbers &getword2question &addauthors) ;               &packword &getnfnumbers &getword2question &addauthors) ;
   
 my $z;  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 updatew2q {
     my ($n,$fieldnumber, $id,$wordnumber)=@_;
     my ($z,@a); 
     $query="replace into w2q (wordId,questionId,fieldNumber,wordNumber) values ($n,$id,$fieldnumber,$wordnumber)";
     print "$query\n" if $debug;
     $qbase->do($query);
 }  }
   
 sub updateword2question  sub updateword2question
Line 325  sub checktable # ΕΣΜΙ $param='delete' ΥΔ Line 335  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 360  sub checktable # ΕΣΜΙ $param='delete' ΥΔ
   
 sub tablelist  sub tablelist
 {  {
      $qbase->func( '_ListTables' );      return $qbase->func('_ListTables');
 }  }
   
 sub in2out  sub in2out
Removed from v.1.8  
changed lines
  Added in v.1.12

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