182 |
my $dsn = $config->param('dsn'); |
my $dsn = $config->param('dsn'); |
183 |
my $db; |
my $db; |
184 |
|
|
185 |
if ($dsn =~ m/DBI:(mysql|pg):/) { |
if ($dsn =~ m/DBI:(mysql|pg):/i) { |
186 |
$db = $1; |
$db = lc($1); |
187 |
} else { |
} else { |
188 |
print STDERR "can't find supported database (mysql/pg) in dsn: $dsn\n"; |
print STDERR "can't find supported database (mysql/pg) in dsn: $dsn\n"; |
189 |
exit 1; |
exit 1; |
210 |
}, |
}, |
211 |
}); |
}); |
212 |
|
|
213 |
|
if (! $mnt) { |
214 |
|
print STDERR "can't mount filesystem!"; |
215 |
|
exit 1; |
216 |
|
} |
217 |
|
|
218 |
print "Press enter to exit..."; |
print "Press enter to exit..."; |
219 |
my $foo = <STDIN>; |
my $foo = <STDIN>; |
220 |
|
|