########### IF YOU APPLY THIS PATCH, EVERYTHING WILL BREAK ##############

diff -ruN infobot-devel/src/DBM.pl infobot-devel-new/src/DBM.pl
--- infobot-devel/src/DBM.pl    Tue Oct 26 10:37:27 1999
+++ infobot-devel-new/src/DBM.pl        Tue Oct 26 11:20:23 1999
@@ -100,8 +100,10 @@
     }

     $dbname = "$DBprefix$db";
-    my $was = $$dbname{$key};
-    $$dbname{$key} = $val;
+    my $was = $$dbname{$key}->{data};
+    $$dbname{$key}->{data} = $val;
+       $$dbname{$key}->{who} = $who;
+       $$dbname{$key}->{created} = time;

     #if ($param{'commitDBM'} eq 'ALWAYS') {
     # close and reopen the dbm file on each update.
@@ -138,8 +140,10 @@
        ($db, $key) = split(/\s+/, $db);
     }
     $db = "$DBprefix$db";
+       ${$db}{$key}->{hits}++;
+       ${$db}{$key}->{accessed}=time;

-    return ${$db}{$key};
+    return ${$db}{$key}->{data};
}

	   sub whatdbs {