pjs/webtools/mozbot/BotModules/Rude.bm

89 строки
3.5 KiB
Plaintext
Исходник Обычный вид История

################################
# Rude Module #
################################
package BotModules::Rude;
use vars qw(@ISA);
use Net::Telnet;
@ISA = qw(BotModules);
1;
sub Help {
my $self = shift;
my ($event) = @_;
return {
'' => 'The Rude Module is... rude. Very rude! So rude!!!',
'insult' => 'Insults someone. Syntax: \'insult <who>\'',
'excuse' => 'Gives you an excuse for the system being down. Syntax: \'excuse\'',
};
}
# -- timeless was here --
# <timeless> Rude module is missing a jar jar quote ~how wude~
# RegisterConfig - Called when initialised, should call registerVariables
sub RegisterConfig {
my $self = shift;
$self->SUPER::RegisterConfig(@_);
$self->registerVariables(
# [ name, save?, settable? ]
['insultHost', 1, 1, 'insulthost.colorado.edu'],
['insultPort', 1, 1, '1695'],
['excuseHost', 1, 1, 'bofh.engr.wisc.edu'], # same host as bofh.jive.org
['excusePort', 1, 1, '666'],
['insultOverrides', 1, 1, { # overrides for the insults (keys must be lowercase)
'mozilla' => 'You are nothing but the best browser on the planet.',
'mozilla.org' => 'You are nothing but the best caretaker Mozilla ever had.',
'c++' => 'you are evil',
}],
);
}
sub Told {
my $self = shift;
my ($event, $message) = @_;
if ($message =~ /^\s*(?:will\s+you\s+)?(?:insult|harass)\s+(\S+?)(?:[\s,.]+please)?[\s.?!]*$/osi) {
my $line;
if (defined($self->{'insultOverrides'}->{lc $1})) {
$line = "$1: ".$self->{'insultOverrides'}->{lc $1};
} else {
eval {
my $t = new Net::Telnet (Timeout => 3);
$t->Net::Telnet::open(Host => $self->{'insultHost'}, Port => $self->{'insultPort'});
$line = "$1: ".$t->Net::Telnet::getline(Timeout => 4);
};
}
if ($line) {
$self->say($event, $line);
} else {
$self->say($event, "$event->{'from'}: What have they ever done to you! Leave 'em alone!");
$self->debug("yikes, $self->{'insultHost'}:$self->{'insultPort'} is down!");
}
} elsif ($message =~ /^\s*(?:please\s+)?(?:can\s+i\s+have\s+an\s+|(?:(?:can|could)\s+you\s+)?give\s+me\s+an\s+)?excuse(?:[?,.!1\s]+please)?\s*[!?,.1]*\s*$/osi) {
my $line;
eval {
my $t = new Net::Telnet (Timeout => 3);
$t->Net::Telnet::open(Host => $self->{'excuseHost'}, Port => $self->{'excusePort'});
# print "=== The BOFH-style Excuse Server --- Feel The Power!\n";
$t->Net::Telnet::getline(Timeout => 4);
# print "=== By Jeff Ballard <ballard\@cs.wisc.edu>\n";
$t->Net::Telnet::getline(Timeout => 4);
# print "=== See http://www.cs.wisc.edu/~ballard/bofh/ for more info.\n";
$t->Net::Telnet::getline(Timeout => 4);
# print "Your excuse is: $excuses[$j]";
$line = $t->Net::Telnet::getline(Timeout => 4);
};
if ($line) {
# $line =~ s/^.*?Your excuse is: //gosi;
# $self->say($event, "$event->{'from'}: '$line'");
$self->say($event, "$line");
} else {
$self->say($event, "$event->{'from'}: Don't ask *me* for an excuse! Sheesh!");
$self->debug("yikes, $self->{'excuseHost'}:$self->{'excusePort'} is down!");
}
} else {
return $self->SUPER::Told(@_);
}
return 0; # we've dealt with it, no need to do anything else.
}