99 |
|
|
100 |
require_config; |
require_config; |
101 |
|
|
102 |
warn "# reading SQL queries from $sql_dir\n" if $debug; |
warn "SQL queries from $sql_dir\n"; |
103 |
|
|
104 |
opendir(DIR, $sql_dir) || die "can't opendir $sql_dir: $!"; |
opendir(DIR, $sql_dir) || die "can't opendir $sql_dir: $!"; |
105 |
my @sql_files = sort grep { /\.sql$/i && -f "$sql_dir/$_" } readdir(DIR); |
my @sql_files = sort grep { /\.sql$/i && -f "$sql_dir/$_" } readdir(DIR); |
195 |
|
|
196 |
foreach my $sql ( split(/;/, $full_sql ) ) { |
foreach my $sql ( split(/;/, $full_sql ) ) { |
197 |
|
|
198 |
warn "SQL: $sql\n" if $debug; |
warn "SQL: $sql\n"; |
199 |
|
|
200 |
my $sth = $dbh->prepare($sql); |
my $sth = $dbh->prepare($sql); |
201 |
$sth->execute(); |
$sth->execute(); |