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

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

version 1.29, 2003/01/08 21:54:49 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";  #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 143  sub SelectGroup { Line 144  sub SelectGroup {
     } else {      } else {
 # Теперь, если файла нет в дереве турниров, никаких вопросов не   # Теперь, если файла нет в дереве турниров, никаких вопросов не 
 # задаётся, а вместо этого он добавляется в группу 9999  # задаётся, а вместо этого он добавляется в группу 9999
         $ParentId = 9999;                  $ParentId = 9999;
                 print UNSORTED "$source\n";                       my $tempsource=$source;
                   my $temptname=$TourName;
                   $tempsource=~s/^\'(.*)\'$/$1/;
                   $temptname=~s/^\'(.*)\'$/$1/;
                   print UNSORTED "$tempsource".((12 -length($source))x' ')."\t$temptname\n";
                 $isunsorted=1;                  $isunsorted=1;
                 $sth = $dbh->prepare("INSERT INTO Tournaments                  $sth = $dbh->prepare("INSERT INTO Tournaments
                               (Title, Type, ParentId, FileName)                                 (Title, Type, ParentId, FileName) 
Line 269  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, ">unsorted";      open UNSORTED, ">$unsortedname";
     while ($source = shift) {      while ($source = shift) {
        push @sources,glob($source);         push @sources,glob($source);
     }      }
Line 406  MAIN: Line 411  MAIN:
         print STDERR "Всего вопросов: $all_qnum \n";          print STDERR "Всего вопросов: $all_qnum \n";
     }      }
     close UNSORTED;      close UNSORTED;
     unlink "unsorted" unless $isunsorted;      unlink $unsortedname unless $isunsorted;
     $dbh->disconnect;      $dbh->disconnect;
 }  }
Removed from v.1.29  
changed lines
  Added in v.1.34

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