DNS.pl removed.

[infobot.git] / blootbot / src / modules.pl

diff --git a/blootbot/src/modules.pl b/blootbot/src/modules.pl
index 75b64ba4e64141416fd3996550e4bb24ae301dad..7bee1c5fd8d730e2bdbc249b032f3aaac03b067a 100644 (file)
--- a/blootbot/src/modules.pl
+++ b/blootbot/src/modules.pl
@@ -22,7 +22,6 @@ if ($@) {
 ### MODULES.
 %myModules = (
        "countdown"     => "Countdown.pl",
-       "allowDNS"      => "DNS.pl",
        "debian"        => "Debian.pl",
        "debianExtra"   => "DebianExtra.pl",
        "dict"          => "Dict.pl",
@@ -138,6 +137,7 @@ sub loadIRCModules {
            exit 1;
        }
        &showProc(" (Net::IRC)");
+
     } else {
        &status("IRC support DISABLED.");
        return;
@@ -322,19 +322,18 @@ sub loadMyModule {
     }
 }
 
-### this chews 3megs on potato, 300 kB on slink.
-$no_syscall = 0;
-###eval "require 'sys/syscall.ph'";
-#if ($@) {
-#    &WARN("sys/syscall.ph has not been installed//generated. gettimeofday
-#will use time() instead");
-    $no_syscall = 1;
-#}
-#&showProc(" (syscall)");
+$no_timehires = 0;
+eval "use Time::HiRes qw(gettimeofday tv_interval)";
+if ($@) {
+    &WARN("No Time::HiRes?");
+    $no_timehires = 1;
+}
+&showProc(" (Time::HiRes)");
 
 sub AUTOLOAD {
     &ERROR("UNKNOWN FUNCTION CALLED: $AUTOLOAD");
     foreach (@_) {
+       next unless (defined $_);
        &status("  => $_");
     }
 }