166 |
|
|
167 |
my $sql = "CREATE TABLE $table (\n" . join(",\n", map(" $_", @r)) . "\n);\n"; |
my $sql = "CREATE TABLE $table (\n" . join(",\n", map(" $_", @r)) . "\n);\n"; |
168 |
|
|
169 |
print $sql; |
print $sql if $db_conf ne 'stdout'; |
170 |
$db->do( $sql ); |
$db->do( $sql ); |
171 |
$config{$db_conf}{'delay'}->(); |
$config{$db_conf}{'delay'}->(); |
172 |
} |
} |
187 |
{ |
{ |
188 |
$sql = $config{$db_conf}{'relational'}->($table, $rel, $structure{$table}{REL}{$rel}); |
$sql = $config{$db_conf}{'relational'}->($table, $rel, $structure{$table}{REL}{$rel}); |
189 |
} |
} |
190 |
print $sql; |
print $sql if $db_conf ne 'stdout'; |
191 |
$db->do($sql); |
$db->do($sql); |
192 |
$config{$db_conf}{'delay'}->(); |
$config{$db_conf}{'delay'}->(); |
193 |
} |
} |