src/Modules/insult.pl

   1 #
   2 # insult.pl: insult engine
   3 #       ???: ???
   4 #
   5
   6 use strict;
   7
   8 package Insult;
   9
  10 sub Insult {
  11     my ($insultwho) = @_;
  12     return unless &loadPerlModule("Net::Telnet");
  13
  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);
  17
  18     $line = "No luck, $main::who" unless (defined $line);
  19
  20     if ($insultwho ne $main::who) {
  21         $line =~ s/^\s*You are/$insultwho is/i;
  22     }
  23
  24     &performStrictReply($line);
  25 }
  26
  27 1;