X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2Finsult.pl;h=79b85e9d1820d66bf297f1c2cfb2b03b232fad68;hb=f7cae48a17d6decd0a9bd997188271daa0a885b1;hp=662542d57de6c63fd75bbc1dcbe5cbc926e7e0e9;hpb=a523737c588a01cf74076ae2a3c06a669389ddcb;p=infobot.git

diff --git a/src/Modules/insult.pl b/src/Modules/insult.pl
index 662542d..79b85e9 100644
--- a/src/Modules/insult.pl
+++ b/src/Modules/insult.pl
@@ -1,15 +1,16 @@
 #
 # 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;
-
 package Insult;
 
+use strict;
+
 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");
@@ -17,11 +18,11 @@ sub Insult {
 
     $line = "No luck, $::who" unless (defined $line);
 
-    if ($insultwho ne $::who) { 
+    if ($insultwho ne $::who) {
 	$line =~ s/^\s*You are/$insultwho is/i;
     }
 
-    &performStrictReply($line);
+    &::pSReply($line);
 }
 
 1;