2 # insult.pl: insult engine
12 return unless &loadPerlModule("Net::Telnet");
14 my $t = new Net::Telnet(Timeout => 3);
15 $t->Net::Telnet::open(Host => "insulthost.colorado.edu", Port => "1695");
16 my $line = $t->Net::Telnet::getline(Timeout => 4);
18 $line = "No luck, $main::who" unless (defined $line);
20 if ($insultwho ne $main::who) {
21 $line =~ s/^\s*You are/$insultwho is/i;
24 &performStrictReply($line);