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

Diff for /db/prgsrc/updatedb.pl between versions 1.41 and 1.43

version 1.41, 2005/12/10 00:03:55 version 1.43, 2008/11/14 11:23:03
Line 156  sub SelectGroup { Line 156  sub SelectGroup {
                 print UNSORTED "$tempsource".((12 -length($source))x' ')."\t$temptname\n";                  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,CreatedAt) 
                                VALUES ($TourName, 'þ', $ParentId,                                  VALUES ($TourName, 'þ', $ParentId, 
                                        $source)");                                         $source,NOW())");
                 $sth->execute;                  $sth->execute;
                 my $TournamentId = $sth->{mysql_insertid};                  my $TournamentId = $sth->{mysql_insertid};
                 return ($TournamentId,$ParentId);                  return ($TournamentId,$ParentId);
Line 246  sub GetTours { Line 246  sub GetTours {
 sub CreateTour {  sub CreateTour {
     my ($dbh,$title,$ParentId,$TourNum,$rh_defaults)=@_;      my ($dbh,$title,$ParentId,$TourNum,$rh_defaults)=@_;
     my $sth = $dbh->prepare("INSERT INTO Tournaments      my $sth = $dbh->prepare("INSERT INTO Tournaments
                              (Title, Type, ParentId, Number)                                (Title, Type, ParentId, Number,CreatedAt) 
                              VALUES ($title, 'ô', $ParentId, $TourNum)");                               VALUES ($title, 'ô', $ParentId, $TourNum,NOW())");
     $sth->execute;      $sth->execute;
     my $TourId = $sth->{mysql_insertid};      my $TourId = $sth->{mysql_insertid};
     while (my ($key,$value)=each %$rh_defaults) {      while (my ($key,$value)=each %$rh_defaults) {
Line 281  MAIN: Line 281  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";
         $dbh->do("SET NAMES 'koi8r'");  if ($dbh->get_info( 18 )=~/^(5|(4.1))/)  {$dbh->do("SET NAMES 'koi8r'");}
     my @sources;              my @sources;        
     open UNSORTED, ">$unsortedname";      open UNSORTED, ">$unsortedname";
     while ($source = shift) {      while ($source = shift) {
Removed from v.1.41  
changed lines
  Added in v.1.43

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