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

Diff for /db/prgsrc/updatedb.pl between versions 1.44 and 1.48

version 1.44, 2009/05/02 21:23:07 version 1.48, 2010/04/24 18:13:03
Line 32  Dmitry Rubinstein Line 32  Dmitry Rubinstein
   
 =cut  =cut
   
 use vars qw($opt_i);  use vars qw($opt_i, $opt_n);
   
 use Getopt::Std;  use Getopt::Std;
 my $unsortedname="../dump/unsorted";  my $unsortedname="../dump/unsorted";
 getopts('i');  getopts('in');
 #open STDERR, ">errors";  #open STDERR, ">errors";
 my $Interactive=$opt_i || 0;  my $Interactive=$opt_i || 0;
   my $newOnly = $opt_n ||0;
 my $DUMPDIR = $ENV{DUMPDIR} || "../dump";  my $DUMPDIR = $ENV{DUMPDIR} || "../dump";
   
 my (%RevMonths) =   my (%RevMonths) = 
Line 90  sub parseDate { Line 91  sub parseDate {
     $to =~ s/-(.*)-/-$month-/;      $to =~ s/-(.*)-/-$month-/;
     $to =~ s/-00*$/-01/;      $to =~ s/-00*$/-01/;
   }    }
   print Dumper($from, $to);  
   return ($from, $to);    return ($from, $to);
       
 }  }
Line 121  sub getField { Line 121  sub getField {
             next;              next;
         }          }
         if ($key) {          if ($key) {
             $value .= $_;              $value .= $_."\n";
             next;              next;
         }          }
     }      }
     if ($key && $value) {      if ($key && $value) {
         $value=~s/\s+$//;          $value=~s/\s+$//sm;
               return ($key, $value);                return ($key, $value);
     }      }
     return (0, 0);      return (0, 0);
Line 173  sub SelectGroup { Line 173  sub SelectGroup {
                 $sth = $dbh->prepare("INSERT INTO Tournaments                  $sth = $dbh->prepare("INSERT INTO Tournaments
                               (Title, Type, ParentId, FileName,CreatedAt)                                 (Title, Type, ParentId, FileName,CreatedAt) 
                                VALUES (".$dbh->quote($TourName).", 'Ч', $ParentId,                                  VALUES (".$dbh->quote($TourName).", 'Ч', $ParentId, 
                                        $source,NOW())");                                         ?,NOW())");
                 $sth->execute;                  $sth->execute($source);
                 my $TournamentId = $sth->{mysql_insertid};                  my $TournamentId = $sth->{mysql_insertid};
                 return ($TournamentId,$ParentId);                  return ($TournamentId,$ParentId);
         }          }
Line 221  sub CheckFile { Line 221  sub CheckFile {
     }      }
     my($Id,$ParentId,$QuestionsNum)=@arr;      my($Id,$ParentId,$QuestionsNum)=@arr;
     if($QuestionsNum) {       if($QuestionsNum) { 
           if ($newOnly) {
             return (0,0);
           }
         print "Файл $source с данными $title уже существует. ",          print "Файл $source с данными $title уже существует. ",
         "Заменить?[y/N]\n";          "Заменить?[y/N]\n";
         my $answer = <STDIN>;          my $answer = <STDIN>;
Removed from v.1.44  
changed lines
  Added in v.1.48

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