8 |
use zot; |
use zot; |
9 |
|
|
10 |
our %config = (); |
our %config = (); |
11 |
|
our $v; |
12 |
|
|
13 |
sub usage |
sub usage |
14 |
{ |
{ |
47 |
my $table = shift; |
my $table = shift; |
48 |
my $fkey = shift; |
my $fkey = shift; |
49 |
my $ref = shift; |
my $ref = shift; |
50 |
"ALTER TABLE $table ADD FOREIGN KEY ($fkey) REFERENCES $ref;\n"; |
"ALTER TABLE $table ADD CONSTRAINT ${fkey}_fk FOREIGN KEY ($fkey) REFERENCES $ref;\n"; |
51 |
} |
} |
52 |
}; |
}; |
53 |
|
|
175 |
push @r, "$rel $type"; |
push @r, "$rel $type"; |
176 |
} |
} |
177 |
|
|
178 |
my $sql = "CREATE TABLE $table (\n" . join(",\n", map(" $_", @r)) . "\n);\n"; |
my $sql = "CREATE TABLE $table (
" . join(",
", map(" $_", @r)) . "
);\n"; |
179 |
|
|
180 |
print STDERR $sql; |
$v and print STDERR $sql; |
181 |
$db->do( $sql ); |
$db->do( $sql ); |
182 |
$config{$db_conf}{'delay'}->(); |
$config{$db_conf}{'delay'}->(); |
183 |
} |
} |
198 |
{ |
{ |
199 |
$sql = $config{$db_conf}{'relational'}->($table, $rel, $structure{$table}{REL}{$rel}); |
$sql = $config{$db_conf}{'relational'}->($table, $rel, $structure{$table}{REL}{$rel}); |
200 |
} |
} |
201 |
print STDERR $sql; |
$v and print STDERR $sql; |
202 |
$db->do($sql); |
$db->do($sql); |
203 |
$config{$db_conf}{'delay'}->(); |
$config{$db_conf}{'delay'}->(); |
204 |
} |
} |