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

Diff for /db/prgsrc/updatedb.pl between versions 1.25 and 1.34

version 1.25, 2002/11/09 01:47:23 version 1.34, 2003/02/07 23:20:15
Line 35  Dmitry Rubinstein Line 35  Dmitry Rubinstein
 use vars qw($opt_i);  use vars qw($opt_i);
   
 use Getopt::Std;  use Getopt::Std;
   my $unsortedname="../dump/unsorted";
 getopts('i');  getopts('i');
   #open STDERR, ">errors";
 my $Interactive=$opt_i || 0;  my $Interactive=$opt_i || 0;
   my $DUMPDIR = $ENV{DUMPDIR} || "../dump";
   
 my (%RevMonths) =   my (%RevMonths) = 
     ('Jan', '1', 'Feb', '2', 'Mar', '3', 'Apr', '4', 'May', '5', 'Jun', '6',      ('Jan', '1', 'Feb', '2', 'Mar', '3', 'Apr', '4', 'May', '5', 'Jun', '6',
Line 58  my ($sth); Line 59  my ($sth);
   
 use DBI;  use DBI;
 use strict;  use strict;
   my $isunsorted=0;
 sub UpdateParents {  sub UpdateParents {
     my ($dbh, $ParentId, $all_qnum) = @_;      my ($dbh, $ParentId, $all_qnum) = @_;
     if ($ParentId) {      if ($ParentId) {
Line 143  sub SelectGroup { Line 144  sub SelectGroup {
     } else {      } else {
 # Теперь, если файла нет в дереве турниров, никаких вопросов не   # Теперь, если файла нет в дереве турниров, никаких вопросов не 
 # задаётся, а вместо этого он добавляется в группу 9999  # задаётся, а вместо этого он добавляется в группу 9999
         $ParentId = 9999;                  $ParentId = 9999;
 print STDERR "INSERT INTO Tournaments                  my $tempsource=$source;
                               (Title, Type, ParentId, FileName)                   my $temptname=$TourName;
                                VALUES ($TourName, 'Ч', $ParentId,                   $tempsource=~s/^\'(.*)\'$/$1/;
                                        $source)";                  $temptname=~s/^\'(.*)\'$/$1/;
                   print UNSORTED "$tempsource".((12 -length($source))x' ')."\t$temptname\n";
                   $isunsorted=1;
                 $sth = $dbh->prepare("INSERT INTO Tournaments                  $sth = $dbh->prepare("INSERT INTO Tournaments
                               (Title, Type, ParentId, FileName)                                 (Title, Type, ParentId, FileName) 
                                VALUES ($TourName, 'Ч', $ParentId,                                  VALUES ($TourName, 'Ч', $ParentId, 
Line 271  MAIN: Line 274  MAIN:
     my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")      my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")
         or die "Can't connect to DB chgk\n";          or die "Can't connect to DB chgk\n";
     my @sources;              my @sources;        
       open UNSORTED, ">$unsortedname";
     while ($source = shift) {      while ($source = shift) {
        push @sources,glob($source);         push @sources,glob($source);
     }      }
Line 406  MAIN: Line 410  MAIN:
         &UpdateParents($dbh, $ParentId, $all_qnum);                       &UpdateParents($dbh, $ParentId, $all_qnum);             
         print STDERR "Всего вопросов: $all_qnum \n";          print STDERR "Всего вопросов: $all_qnum \n";
     }      }
       close UNSORTED;
       unlink $unsortedname unless $isunsorted;
     $dbh->disconnect;      $dbh->disconnect;
 }  }
Removed from v.1.25  
changed lines
  Added in v.1.34

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