From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 19 Nov 2002 23:41:35 +0000 (+0000)
Subject: typo and code unification
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=384f321ec3b695c46f398e0490e6eb07bc34fc28;p=infobot.git

typo and code unification


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@628 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index caa902a..b801a2a 100644
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -138,7 +138,7 @@ sub randomFactoid {
 }
 
 sub randomFreshmeat {
-    my $interval = &getChanConfDefault("randomFresheatInterval", 60);
+    my $interval = &getChanConfDefault("randomFreshmeatInterval", 60);
 
     if (@_) {
 	&ScheduleThis($interval, "randomFreshmeat");
@@ -547,7 +547,7 @@ sub seenFlush {
     $stats{'new'}	= 0;
     $stats{'old'}	= 0;
 
-    if ($param{'DBType'} =~ /^(mysql|pgsql|sqlite)$/i) {
+    if ($param{'DBType'} =~ /^(mysql|pgsql|sqlite|dbm)$/i) {
 	foreach $nick (keys %seencache) {
 	    my $retval = &dbReplace("seen", "nick", (
 			"nick" => lc $seencache{$nick}{'nick'},
@@ -558,57 +558,6 @@ sub seenFlush {
 	    ) );
 	    delete $seencache{$nick};
 	    $flushed++;
-
-	    next;
-
-	    ###
-	    ### old code.
-	    ###
-
-	    my $exists = &dbGet("seen", "nick", "nick=".&dbQuote($nick) );
-
-	    if (defined $exists and $exists) {
-		&dbUpdate("seen", "nick", $nick, (
-			"time" => $seencache{$nick}{'time'},
-			"host" => $seencache{$nick}{'host'},
-			"channel" => $seencache{$nick}{'chan'},
-			"message" => $seencache{$nick}{'msg'},
-		) );
-		$stats{'old'}++;
-	    } else {
-		my $retval = &dbInsert("seen", $nick, (
-			"nick" => $seencache{$nick}{'nick'},
-			"time" => $seencache{$nick}{'time'},
-			"host" => $seencache{$nick}{'host'},
-			"channel" => $seencache{$nick}{'chan'},
-			"message" => $seencache{$nick}{'msg'},
-		) );
-		$stats{'new'}++;
-
-		### TODO: put bad nick into a list and don't do it again!
-		&FIXME("Should never happen! (nick => $nick)") if !$retval;
-	    }
-
-	    delete $seencache{$nick};
-	    $flushed++;
-	}
-
-    } elsif ($param{'DBType'} =~ /^dbm/i) {
-
-	foreach $nick (keys %seencache) {
-	    my $retval = &dbInsert("seen", $nick, (
-		"nick" => $seencache{$nick}{'nick'},
-		"time" => $seencache{$nick}{'time'},
-		"host" => $seencache{$nick}{'host'},
-		"channel" => $seencache{$nick}{'chan'},
-		"message" => $seencache{$nick}{'msg'},
-	    ) );
-
-	    ### TODO: put bad nick into a list and don't do it again!
-	    &FIXME("Should never happen! (nick => $nick)") if !$retval;
-
-	    delete $seencache{$nick};
-	    $flushed++;
 	}
     } else {
 	&DEBUG("seenFlush: NO VALID FACTOID SUPPORT?");