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

Diff for /db/prgsrc/updateindex.pl between versions 1.2 and 1.3

version 1.2, 2000/10/18 21:50:48 version 1.3, 2000/10/19 01:06:18
Line 16  Upadets metainformation in the B<chgk> d Line 16  Upadets metainformation in the B<chgk> d
   
 An example of the index file follows:  An example of the index file follows:
   
                    Авторские вопросы
                            Виктор Байрак
    bayrak.txt                     Вопросы В.Байрака
                            Борис Бурда
    burda.txt                      Вопросы Бориса Бурды
    burda1.txt                     Тренировки Бориса Бурды 1
    burda10.txt                    Тренировки Бориса Бурды 10
    burda11.txt                    Тренировки Бориса Бурды 11
    burda12.txt                    Тренировки Бориса Бурды 12
   
   
 =head1 BUGS  =head1 BUGS
   
Line 42  use DBI; Line 52  use DBI;
 MAIN:   MAIN: 
 {  {
     my $USAGE="Usage: updateindex.pl -i indexfile\n";      my $USAGE="Usage: updateindex.pl -i indexfile\n";
     getopts('hm:') or die $USAGE;      getopts('hi:') or die $USAGE;
     if ($opt_h) {      if ($opt_h) {
         print $USAGE;          print $USAGE;
         exit 0;          exit 0;
Line 58  MAIN: Line 68  MAIN:
         chomp;          chomp;
         s/ //;          s/ //;
         next if (/^\s*$/);          next if (/^\s*$/);
         if (s/^(\w*)//) { # File found          if (s/^(\S+) *//) { # File found
             $filename = $1;              $filename = $1;
             $depth = -1;              $depth = -1;
         } else {  # Group found          } else {  # Group found
             undef $filename;              $filename = '';
             $depth = -2;              $depth = -2;
         }          }
         s/^(\t*)//;          s/^(\t*)//;
Line 76  MAIN: Line 86  MAIN:
         my $ParentId = ($depth) ? $depthId[$depth - 1] : 0;          my $ParentId = ($depth) ? $depthId[$depth - 1] : 0;
         my $sth;          my $sth;
         my $type;          my $type;
         if (defined $filename) {          if ($filename) {
             $type=$dbh->quote('Ч');              $type=$dbh->quote('Ч');
             $filename = $dbh->quote($filename);              $filename = $dbh->quote($filename);
             $sth = $dbh->prepare("SELECT Id FROM Tournaments               $sth = $dbh->prepare("SELECT Id FROM Tournaments 
Line 88  MAIN: Line 98  MAIN:
             }              }
             $sth = $dbh->prepare("INSERT INTO Tournaments              $sth = $dbh->prepare("INSERT INTO Tournaments
                         (Title, ParentId, FileName, Type)                           (Title, ParentId, FileName, Type) 
                         VALUES ($title, $ParentId, $filename, $type;)");                          VALUES ($title, $ParentId, $filename, $type)");
             $sth->execute;              $sth->execute;
         } else {          } else {
             $sth->execute;              $type=$dbh->quote('Г');
             $sth = $dbh->prepare("SELECT Id FROM Tournaments               $sth = $dbh->prepare("SELECT Id FROM Tournaments 
                                   WHERE Title=$title");                                    WHERE Title=$title");
             $type=$dbh->quote('Г');  
               $sth->execute;
             if ($sth->fetchrow) {              if ($sth->fetchrow) {
                 print "$title is already in the DB!\n";                  print "$title is already in the DB!\n";
                 next;                  next;
             }              }
             $sth = $dbh->prepare("INSERT INTO Tournaments              $sth = $dbh->prepare("INSERT INTO Tournaments
                         (Title, ParentId,  Type)                           (Title, ParentId,  Type) 
                         VALUES ($title, $ParentId, $type;)");                          VALUES ($title, $ParentId, $type)");
             $sth->execute;              $sth->execute;
             my $Id = $sth->{'mysql_insertid'};              my $Id = $sth->{'mysql_insertid'};
             $depthId[$depth] = $Id;              $depthId[$depth] = $Id;
Removed from v.1.2  
changed lines
  Added in v.1.3

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