Lines 237-248
sub read_config_file { # Pass argument naming config file to read
Link Here
|
237 |
# |
237 |
# |
238 |
sub db_scheme2dbi { |
238 |
sub db_scheme2dbi { |
239 |
my $name = shift; |
239 |
my $name = shift; |
240 |
|
240 |
# for instance, we support only mysql, so don't care checking |
|
|
241 |
return "mysql"; |
241 |
for ($name) { |
242 |
for ($name) { |
242 |
# FIXME - Should have other databases. |
243 |
# FIXME - Should have other databases. |
243 |
if (/mysql/i) { return("mysql"); } |
244 |
if (/mysql/) { return("mysql"); } |
244 |
if (/Postgres|Pg|PostgresSQL/) { return("Pg"); } |
245 |
if (/Postgres|Pg|PostgresSQL/) { return("Pg"); } |
245 |
if (/oracle/i) { return("Oracle"); } |
246 |
if (/oracle/) { return("Oracle"); } |
246 |
} |
247 |
} |
247 |
return undef; # Just in case |
248 |
return undef; # Just in case |
248 |
} |
249 |
} |
249 |
- |
|
|