mirror of
https://github.com/php/web-pecl.git
synced 2026-03-24 23:32:12 +01:00
23 lines
495 B
Perl
Executable File
23 lines
495 B
Perl
Executable File
#!/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";
|
|
}
|
|
}
|
|
}
|