Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 23 lines (20 sloc) 0.495 kB
#!/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";
}
}
}
Jump to Line
Something went wrong with that request. Please try again.