Return to delt-np.pl CVS log

Up to [Local Repository] / db / prgsrc

Initial revision

    1: #!/usr/local/bin/perl 
    2: 
    3: use DBI;
    4: use strict;
    5: 
    6: MAIN: 
    7: {
    8: 	my($key, $value, $addition);
    9: 
   10: 	my($source, $TourId, $QId);
   11: 
   12: 	print "Before connecting to the DB\n";
   13: 	
   14: 	my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")
   15: 		or die "Can't connect to DB chgk\n";
   16: 
   17: 	print "Connected successfully\n";
   18: 
   19: 	while ($source = shift) {
   20: 		print "$source\n";
   21: 		
   22: 		my ($sth) = $dbh->prepare("SELECT Id FROM Tournaments WHERE ParentId = $source");
   23: 		$sth->execute;
   24: 
   25: 		while ($TourId = ($sth->fetchrow)[0]) {
   26: 
   27: 			my ($sth) = $dbh->prepare("SELECT QuestionId FROM Questions 
   28:                                 WHERE ParentId = $TourId");
   29: 			$sth->execute;
   30: 
   31: 
   32: 			while ($QId = ($sth->fetchrow)[0]) {
   33: 
   34: 				#my ($sth) = $dbh->prepare("DELETE FROM Lines WHERE Id = $QId");
   35: 				#$sth->execute;
   36: 
   37: 				my ($sth) = $dbh->prepare("DELETE FROM Questions WHERE QuestionId = $QId");
   38: 				$sth->execute;
   39: 
   40: 
   41: 
   42: 			}
   43: 
   44: 			my ($sth) = $dbh->prepare("DELETE FROM Tournaments WHERE Id = $TourId");
   45: 			$sth->execute;
   46: 
   47: 		}
   48: 
   49: 		my ($sth) = $dbh->prepare("DELETE FROM Tournaments WHERE Id = $source");
   50: 		$sth->execute;
   51: 	}
   52: 	$dbh->disconnect;
   53: }