Return to delt.pl CVS log

Up to [Local Repository] / db / prgsrc

Annotation of db/prgsrc/delt.pl, revision 1.1

1.1     ! boris       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: }