} elsif ($param{'DBType'} =~ /^dbm$/i) {
&status(" using Berkeley DBM 1.85/2.0 support.");
- require "$bot_src_dir/db_dbm.pl";
+ &ERROR("dbm support is broken... you want it, you fix it!");
+ &shutdown();
+ exit 1;
+
+# require "$bot_src_dir/db_dbm.pl";
} else {
&status("DB support DISABLED.");
sub AUTOLOAD {
return if ($AUTOLOAD =~ /__/); # internal.
- &ERROR("UNKNOWN FUNCTION CALLED: $AUTOLOAD");
- foreach (@_) {
- next unless (defined $_);
- &status(" => $_");
+ my $str = join(', ', @_);
+ &ERROR("UNKNOWN FUNCTION CALLED: $AUTOLOAD ($str)");
+
+ $AUTOLOAD =~ s/^(\S+):://g;
+
+ if (exists $myModules{lc $AUTOLOAD}) {
+ # hopefully this will work.
+ &DEBUG("Trying to load module $AUTOLOAD...");
+ &loadMyModule(lc $AUTOLOAD);
}
}