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: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>