Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 23 lines (20 sloc) 495 Bytes
#!/usr/bin/perl -s
if ($mysql) {
$dbtype = "mysql";
$transactions = 0;
} elsif ($solid) {
$dbtype = "solid";
$transactions = 1;
} else {
die "unknown db type";
}
while (<>) {
if (/^\"?CREATE\s+(TABLE|SEQUENCE|INDEX|UNIQUE\s+INDEX|PROCEDURE|VIEW|EVENT|ROLE|USER)\s+([a-z0-9_]+)/i) {
($type, $name) = ($1, $2);
$type =~ s/UNIQUE\s+//;
print "DROP $type $name;\n";
if ($transactions) {
print "COMMIT WORK;\n";
}
}
}