Return to delt.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: 	my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")
   13: 		or die "Can't connect to DB chgk\n";
   14: 
   15: 	while ($source = shift) {
   16: 		print "$source\n";
   17: 		
   18: 		my ($sth) = $dbh->query("SELECT Id FROM Tournaments 
   19: 			WHERE ParentId = $source");
   20: 		while ($TourId = ($sth->fetchrow)[0]) {
   21: 			my ($sth) = $dbh->query("SELECT QuestionId FROM Questions
   22: 				WHERE ParentId = $TourId");
   23: 			while ($QId = ($sth->fetchrow)[0]) {
   24: 				$dbh->query("DELETE FROM Lines WHERE Id = $QId");
   25: 				$dbh->query("DELETE FROM Questions WHERE QuestionId = $QId");
   26: 			}
   27: 			$dbh->query("DELETE FROM Tournaments WHERE Id = $TourId");
   28: 		}
   29: 		$dbh->query("DELETE FROM Tournaments WHERE Id = $source");
   30: 	}
   31: }