Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 22 lines (20 sloc) 0.495 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
#!/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";
        }
    }
}
Something went wrong with that request. Please try again.