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

Diff for /db/prgsrc/updatedb.pl between versions 1.46 and 1.47

version 1.46, 2009/05/24 10:10:17 version 1.47, 2010/04/24 18:04:14
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 172  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 220  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>;
Line 304  MAIN: Line 308  MAIN:
                                               
     my($source);      my($source);
           
     my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")      my($dbh) = DBI->connect("DBI:mysql:db_drupal", "root", "")
         or die "Can't connect to DB chgk\n";          or die "Can't connect to DB chgk\n";
 if ($dbh->get_info( 18 )=~/^(5|(4.1))/)  {$dbh->do("SET NAMES 'koi8r'");}  if ($dbh->get_info( 18 )=~/^(5|(4.1))/)  {$dbh->do("SET NAMES 'koi8r'");}
     my @sources;              my @sources;        
Removed from v.1.46  
changed lines
  Added in v.1.47

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