- &showProc(" (DBI::mysql)");
-
- } elsif ($param{'DBType'} =~ /^pgsql$/i) {
- eval "use DBI";
- if ($@) {
- &ERROR("libpgperl is not installed!");
- exit 1;
- }
- &status("Loading pgsql support.");
- $f = "$bot_src_dir/dbi.pl";
- require $f;
- $moduleAge{$f} = (stat $f)[9];
-
- &showProc(" (DBI::pgsql)");
-
- } elsif ($param{'DBType'} =~ /^sqlite$/i) {
- eval "use DBI";
- if ($@) {
- &ERROR("libdbd-sqlite-perl is not installed!");
- exit 1;
- }
- &status("Loading SQLite support.");
- $f = "$bot_src_dir/dbi.pl";
- require $f;
- $moduleAge{$f} = (stat $f)[9];
-
- &showProc(" (DBI::SQLite)");
-
- } elsif ($param{'DBType'} =~ /^dbm$/i) {
- &status("Loading dbm support.");
- $f = "$bot_src_dir/dbm.pl";
- require $f;
- $moduleAge{$f} = (stat $f)[9];
-
- &showProc(" (dbm.pl)");
-