Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-11-25 22:01:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fixing bug caused by buggy Net::IRC 0.75 code. See bug 245424. Thanks to mh for the hint of where to look.

Browse Source
This commit is contained in:
ian%hixie.ch 2004-09-04 17:43:58 +00:00
parent a54ef00ca4
commit 4141f5183c
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
webtools/mozbot/mozbot.pl
View File

@ -44,7 +44,7 @@
# hack on me! required reading:
#
# Net::IRC web page:
# http://netirc.betterbox.net/
# http://sourceforge.net/projects/net-irc/
# (free software)
# or get it from CPAN @ http://www.perl.com/CPAN
#
@ -291,6 +291,17 @@ my %authenticatedUsers; # hash of user@hostname=>users who have authenticated
# Net::IRC handler subroutines #
################################
sub setEventArgs {
my $event = shift;
if ($Net::IRC::VERSION == 0.75) {
# curses. This version of Net::IRC is broken. Work around
# it here.
return $event->args(\@_);
} else {
return $event->args(@_);
}
}
my $lastNick;
# setup connection
@ -752,7 +763,7 @@ sub on_public {
my $data = join(' ', $event->args);
if (defined($_ = targetted($data, quotemeta($nicks[$nick])))) {
if ($_ ne '') {
$event->args($_);
setEventArgs($event, $_);
$event->{'__mozbot__fulldata'} = $data;
&do($self, $event, 'Told', 'Baffled');
} else {
@ -786,7 +797,7 @@ sub on_private {
# we do this so that you can say 'mozbot do this' in both channels
# and /query screens alike (otherwise, in /query screens you would
# have to remember to omit the bot name).
$event->args($2);
setEventArgs($event, $2);
}
&do($self, $event, 'Told', 'Baffled');
}
@ -796,7 +807,7 @@ sub on_me {
my ($self, $event) = @_;
my @data = $event->args;
my $data = join(' ', @data);
$event->args($data);
setEventArgs($event, $data);
my $nick = quotemeta($nicks[$nick]);
if ($data =~ /(?:^|[\s":<([])$nick(?:[])>.,?!\s'&":]|$)/is) {
&do($self, $event, 'Felt');
@ -814,7 +825,7 @@ sub on_topic {
# server notification
# need to parse data
my (undef, $channel, $topic) = $event->args;
$event->args($topic);
setEventArgs($event, $topic);
$event->to($channel);
}
&do(@_, 'SpottedTopicChange');
@ -827,7 +838,7 @@ sub on_kick {
my $who = $event->to;
$event->to($channel);
foreach (@$who) {
$event->args($_);
setEventArgs($event, $_);
if ($_ eq $nicks[$nick]) {
&do(@_, 'Kicked');
} else {