From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 14 Jun 2001 15:56:07 +0000 (+0000)
Subject: - fixed, found by someone (lnx.de?)
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ca096a86cda25f48d3698be19b1a3ce523d793f5;p=infobot.git

- fixed, found by someone (lnx.de?)


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

diff --git a/blootbot/src/Modules/insult.pl b/blootbot/src/Modules/insult.pl
index 662542d..e139791 100644
--- a/blootbot/src/Modules/insult.pl
+++ b/blootbot/src/Modules/insult.pl
@@ -1,6 +1,7 @@
 #
 # insult.pl: insult engine
-#       ???: ???
+#      TODO: move this code out to a common file like I did with DNS.
+#	     => use the command hooks system aswell
 #
 
 use strict;
@@ -9,7 +10,7 @@ package Insult;
 
 sub Insult {
     my ($insultwho) = @_;
-    return unless &loadPerlModule("Net::Telnet");
+    return unless &::loadPerlModule("Net::Telnet");
 
     my $t = new Net::Telnet(Timeout => 3);
     $t->Net::Telnet::open(Host => "insulthost.colorado.edu", Port => "1695");
@@ -21,7 +22,7 @@ sub Insult {
 	$line =~ s/^\s*You are/$insultwho is/i;
     }
 
-    &performStrictReply($line);
+    &::pSReply($line);
 }
 
 1;