-freshmeat

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

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index d2e8691049082551cf7ce0ef9ee663b19feaae47..9c1fa7ea047394d9f636b52dc2f7992b4bde0e75 100644 (file)
--- 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 4c406589a5eb09afd7ac2d0b418053c338fee0fc..51496653bccbb3dc38c9967653306730a96f3cd5 100644 (file)
--- 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 365267d0f249f1ec15f3917f3a08ce52a28565ce..7a0497754c7c916859781548c2044a8c96583fce 100644 (file)
--- 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 3de1ad7c0674ac4b60b81a80b2be80081f41025f..c41c9e6e4c00fee09635b2885de70eb583c0f3b9 100644 (file)
--- 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 3172e0b1a180fe5d57da14581acb9cf4ddd7640d..5ef67f8be602f620e49849aed8ffcdd4cbbd9aab 100644 (file)
--- 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 ac6f9750d29721fed02f4afba05e30609a77b3e9..8efc2f13266af2bd53955da8a195f0642bbddf7c 100644 (file)
--- 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 $_...");