From a2b3be31bf664fe2cca6298b58e3c828a46a40f4 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sat, 7 Dec 2002 06:52:27 +0000
Subject: [PATCH] -freshmeat

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@745 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/CommandStubs.pl      | 16 --------------
 src/DynaConfig.pl        |  1 -
 src/Factoids/Question.pl |  7 ------
 src/Factoids/Update.pl   | 10 ---------
 src/IRC/Schedulers.pl    | 46 ----------------------------------------
 src/dbi.pl               |  2 +-
 6 files changed, 1 insertion(+), 81 deletions(-)

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index d2e8691..9c1fa7e 100644
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -222,9 +222,6 @@ sub parseCmdHook {
 &addCmdHook("extra", 'uptime', ('CODEREF' => 'uptime', 'Identifier' => 'uptime',
 	'Cmdstats' => 'Uptime') );
 &addCmdHook("extra", 'nullski', ('CODEREF' => 'nullski', ) );
-&addCmdHook("extra", '(fm|freshmeat)', ('CODEREF' => 'Freshmeat::Freshmeat',
-	'Identifier' => 'freshmeat', 'Cmdstats' => 'Freshmeat',
-	'Forker' => 1, 'Help' => 'freshmeat') );
 &addCmdHook("extra", 'verstats', ('CODEREF' => 'do_verstats' ) );
 &addCmdHook("extra", 'weather', ('CODEREF' => 'Weather::Weather',
 	'Identifier' => 'weather', 'Help' => 'weather',
@@ -576,19 +573,6 @@ sub Modules {
     return "CONTINUE";
 }
 
-# Freshmeat. xk++
-sub freshmeat {
-    my ($query) = @_;
-
-    if (!defined $query) {
-	&help("freshmeat");
-	&msg($who, "I have \002".&countKeys("freshmeat")."\002 entries.");
-	return;
-    }
-
-    &Freshmeat::Freshmeat($query);
-}
-
 # Uptime. xk++
 sub uptime {
     my $count = 1;
diff --git a/src/DynaConfig.pl b/src/DynaConfig.pl
index 4c40658..5149665 100644
--- a/src/DynaConfig.pl
+++ b/src/DynaConfig.pl
@@ -827,7 +827,6 @@ sub rehashConfVars {
 # registered flags... not used yet.
 my @regFlagsChan = (
 	"autojoin",
-	"freshmeat",
 	"limitcheckInterval",
 	"limitcheckPlus",
 	"allowConv",
diff --git a/src/Factoids/Question.pl b/src/Factoids/Question.pl
index 365267d..7a04977 100644
--- a/src/Factoids/Question.pl
+++ b/src/Factoids/Question.pl
@@ -154,13 +154,6 @@ sub doQuestion {
 	return $result;
     }
 
-    ### TODO: Use &Forker(); move function to Freshmeat.pl.
-    if (&IsChanConf("freshmeatForFactoid")) {
-	&loadMyModule($myModules{'freshmeat'});
-	$result = &Freshmeat::showPackage($query);
-	return $result if (defined $result);
-    }
-
     ### TODO: Use &Forker(); move function to Debian.pl
     if (&IsChanConf("debianForFactoid")) {
 	&loadMyModule($myModules{'debian'});
diff --git a/src/Factoids/Update.pl b/src/Factoids/Update.pl
index 3de1ad7..c41c9e6 100644
--- a/src/Factoids/Update.pl
+++ b/src/Factoids/Update.pl
@@ -52,16 +52,6 @@ sub update {
     my $also    = ($rhs =~ s/^-?also //i);
     my $also_or = ($also and $rhs =~ s/\s+(or|\|\|)\s+//);
 
-    # freshmeat
-    if (&IsChanConf("freshmeatForFactoid")) {
-	# todo: "name" is invalid for fm ][
-	if ( &sqlSelect("freshmeat", "name", { name => $lhs } ) ) {
-	    &msg($who, "permission denied. (freshmeat)");
-	    &status("alert: $who wanted to teach me something that freshmeat already has info on.");
-	    return 1;
-	}
-    }
-
     # factoid arguments handler.
     # must start with a non-variable
     if (&IsChanConf("factoidArguments") and $lhs =~ /^[^\$]+.*\$/) {
diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 3172e0b..5ef67f8 100644
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -60,7 +60,6 @@ sub setupSchedulers {
     &uptimeLoop(1);
     &randomQuote(2);
     &randomFactoid(2);
-    &randomFreshmeat(2);
     &logLoop(1);
     &chanlimitCheck(1);
     &netsplitCheck(1);	# mandatory
@@ -75,7 +74,6 @@ sub setupSchedulers {
     &shmFlush(1);	# mandatory
     &slashdotLoop(2);
     &plugLoop(2);
-    &freshmeatLoop(2);
     &kernelLoop(2);
     &wingateWriteFile(2);
     &factoidCheck(2);	# takes a couple of seconds on a 486. defer it
@@ -178,29 +176,6 @@ sub randomFactoid {
     }
 }
 
-sub randomFreshmeat {
-    my $interval = &getChanConfDefault("randomFreshmeatInterval", 60);
-
-    if (@_) {
-	&ScheduleThis($interval, "randomFreshmeat");
-	return if ($_[0] eq "2");	# defer.
-    }
-
-    my @chans = &ChanConfList("randomFreshmeat");
-    return unless (scalar @chans);
-
-    &Forker("freshmeat", sub {
-	my $retval = &Freshmeat::randPackage();
-
-	foreach (@chans) {
-	    next unless (&validChan($_));
-
-	    &status("sending random Freshmeat to $_.");
-	    &say($_, $line);
-	}
-    } );
-}
-
 sub logLoop {
     if (@_) {
 	&ScheduleThis(60, "logLoop");
@@ -926,27 +901,6 @@ sub plugLoop {
     } );
 }
 
-sub freshmeatLoop {
-    if (@_) {
-	&ScheduleThis(60, "freshmeatLoop");
-	return if ($_[0] eq "2");
-    }
-
-    my @chans = &ChanConfList("freshmeatAnnounce");
-    return unless (scalar @chans);
-
-    &Forker("freshmeat", sub {
-	my $data = &Freshmeat::freshmeatAnnounce();
-
-	foreach (@chans) {
-	    next unless (&::validChan($_));
-
-	    &::status("sending freshmeat update to $_.");
-	    &msg($_, $data);
-	}
-    } );
-}
-
 sub kernelLoop {
     if (@_) {
 	&ScheduleThis(240, "kernelLoop");
diff --git a/src/dbi.pl b/src/dbi.pl
index ac6f975..8efc2f1 100644
--- a/src/dbi.pl
+++ b/src/dbi.pl
@@ -647,7 +647,7 @@ sub checkTables {
 	}
     }
 
-    foreach ( qw(factoids freshmeat rootwarn seen stats botmail) ) {
+    foreach ( qw(factoids rootwarn seen stats botmail) ) {
 	next if (exists $db{$_});
 	&status("checkTables: creating new table $_...");
 
-- 
2.39.2