remove Berkeley DBM support

[infobot.git] / src / IRC / Schedulers.pl

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 21b157bc68b0ab8fa00c19bf833a519b65dab800..3172e0b1a180fe5d57da14581acb9cf4ddd7640d 100644 (file)
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -284,7 +284,7 @@ sub seenFlushOld {
     my $max_time = &getChanConfDefault("seenMaxDays", 30) *60*60*24;
     my $delete   = 0;
 
-    if ($param{'DBType'} =~ /^pgsql|mysql|sqlite/i) {
+    if ($param{'DBType'} =~ /^(pgsql|mysql|sqlite)/i) {
        my $query;
 
        if ($param{'DBType'} =~ /^mysql|sqlite$/i) {
@@ -300,24 +300,13 @@ sub seenFlushOld {
            while (my @row = $sth->fetchrow_array) {
                my ($nick,$time) = @row;
 
-               &dbDel("seen",{"nick"=>$nick});
+               &sqlDelete("seen", { nick => $nick } );
                $delete++;
            }
            $sth->finish;
        }
-    } elsif ($param{'DBType'} =~ /^dbm/i) {
-       my $time = time();
-
-       foreach (keys %seen) {
-           my $delta_time = $time - &dbGet("seen", "time", "nick", $_);
-           next unless ($delta_time > $max_time);
-
-           &DEBUG("seenFlushOld: ".&Time2String($delta_time) );
-           delete $seen{$_};
-           $delete++;
-       }
     } else {
-       &FIXME("seenFlushOld: for PG/NO-DB.");
+       &FIXME("seenFlushOld: for bad DBType:" . $param{'DBType'} . ".");
     }
     &VERB("SEEN deleted $delete seen entries.",2);
 
@@ -587,7 +576,7 @@ sub seenFlush {
     $stats{'new'}      = 0;
     $stats{'old'}      = 0;
 
-    if ($param{'DBType'} =~ /^(mysql|pgsql|sqlite|dbm)$/i) {
+    if ($param{'DBType'} =~ /^(mysql|pgsql|sqlite)$/i) {
        foreach $nick (keys %seencache) {
            my $retval = &sqlReplace("seen", {
                        nick    => lc $seencache{$nick}{'nick'},