X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=blootbot%2Fsrc%2FIRC%2FIrcHooks.pl;h=d841df6a7c01eaecc0b525766737228cd9b6f58d;hb=0a9725e1526b9e16f51c2baa07e769e4bf9f3334;hp=985fbacf2c4a6cd9ceec4a3e6c073887a47d2c4c;hpb=92e6b69ce18671857f425fa505c9bb78465bb751;p=infobot.git diff --git a/blootbot/src/IRC/IrcHooks.pl b/blootbot/src/IRC/IrcHooks.pl index 985fbac..d841df6 100644 --- a/blootbot/src/IRC/IrcHooks.pl +++ b/blootbot/src/IRC/IrcHooks.pl @@ -4,12 +4,12 @@ # Version: 20000126 # NOTE: Based on code by Kevin Lenzo & Patrick Cole (c) 1997 # - -if (&IsParam("useStrict")) { use strict; } +use vars qw(%chanconf); # GENERIC. TO COPY. sub on_generic { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $nick = $event->nick(); my $chan = ($event->to)[0]; @@ -22,7 +22,8 @@ sub on_generic { } sub on_action { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my ($nick, @args) = ($event->nick, $event->args); my $chan = ($event->to)[0]; @@ -36,14 +37,15 @@ sub on_action { } sub on_chat { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $msg = ($event->args)[0]; my $sock = ($event->to)[0]; my $nick = lc $event->nick(); if (!exists $nuh{$nick}) { &DEBUG("chat: nuh{$nick} doesn't exist; trying WHOIS ."); - $self->whois($nick); + $conn->whois($nick); return; } @@ -71,16 +73,16 @@ sub on_chat { ### TODO: prevent users without CRYPT chatting. if (!defined $crypto) { - &DEBUG("todo: dcc close chat"); + &TODO("dcc close chat"); &msg($who, "nope, no guest logins allowed..."); return; } if (&ckpasswd($msg, $crypto)) { # stolen from eggdrop. - $self->privmsg($sock, "Connected to $ident"); - $self->privmsg($sock, "Commands start with '.' (like '.quit' or '.help')"); - $self->privmsg($sock, "Everything else goes out to the party line."); + $conn->privmsg($sock, "Connected to $ident"); + $conn->privmsg($sock, "Commands start with '.' (like '.quit' or '.help')"); + $conn->privmsg($sock, "Everything else goes out to the party line."); &dccStatus(2) unless (exists $sched{"dccStatus"}{RUNNING}); @@ -91,7 +93,7 @@ sub on_chat { &DEBUG("chat: sock => '$sock'."); ### $sock->close(); delete $dcc{'CHAT'}{$nick}; - &DEBUG("chat: after closing sock. FIXME"); + &FIXME("chat: after closing sock."); ### BUG: close seizes bot. why? } @@ -113,7 +115,7 @@ sub on_chat { if ($message =~ s/^\.//) { # dcc chat commands. ### TODO: make use of &Forker(); here? - &loadMyModule( $myModules{'ircdcc'} ); + &loadMyModule( $myModules{'UserDCC'} ); &DCCBroadcast("#$who# $message","m"); @@ -133,15 +135,27 @@ sub on_chat { return 'DCC CHAT MESSAGE'; } +# is there isoff? how do we know if someone signs off? +sub on_ison { + $conn = shift(@_); + my ($event) = @_; + my $x1 = ($event->args)[0]; + my $x2 = ($event->args)[1]; + $x2 =~ s/\s$//; + + &DEBUG("on_ison: x1 = '$x1', x2 => '$x2'"); +} + sub on_endofmotd { - my ($self) = @_; + $conn = shift(@_); # update IRCStats. - $ident ||= $param{'ircNick'}; # hack. + $ident = $conn->nick(); $ircstats{'ConnectTime'} = time(); $ircstats{'ConnectCount'}++; - $ircstats{'OffTime'} += time() - $ircstats{'DisconnectTime'} - if (defined $ircstats{'DisconnectTime'}); + if (defined $ircstats{'DisconnectTime'}) { + $ircstats{'OffTime'} += time() - $ircstats{'DisconnectTime'}; + } # first time run. if (!exists $users{_default}) { @@ -169,7 +183,7 @@ sub on_endofmotd { } if ($firsttime) { - &ScheduleThis(1, \&setupSchedulers); + &ScheduleThis(1, "setupSchedulers"); $firsttime = 0; } @@ -183,25 +197,25 @@ sub on_endofmotd { &rawout("MODE $ident $param{'ircUMode'}"); } - &status("End of motd. Now lets join some channels..."); - if (!scalar @joinchan) { - &WARN("joinchan array is empty!!!"); - @joinchan = &getJoinChans(1); - } - # ok, we're free to do whatever we want now. go for it! $running = 1; - # unfortunately, Net::IRC does not implement this :( - # invalid command... what is it? -# &rawout("NOTIFY $ident"); -# &DEBUG("adding self to NOTIFY list."); + # add ourself to notify. + $conn->ison($conn->nick()); - &joinNextChan(); + # Q, as on quakenet.org. + if (&IsParam("Q_pass")) { + &status("Authing to Q..."); + &rawout("PRIVMSG Q\@CServe.quakenet.org :AUTH $param{'Q_user'} $param{'Q_pass'}"); + } + + &status("End of motd. Now lets join some channels..."); + #&joinNextChan(); } sub on_endofwho { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; # &DEBUG("endofwho: chan => $chan"); $chan ||= ($event->args)[1]; # &DEBUG("endofwho: chan => $chan"); @@ -212,13 +226,14 @@ sub on_endofwho { } sub on_dcc { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $type = uc( ($event->args)[1] ); my $nick = lc $event->nick(); # pity Net::IRC doesn't store nuh. Here's a hack :) if (!exists $nuh{lc $nick}) { - $self->whois($nick); + $conn->whois($nick); $nuh{$nick} = "GETTING-NOW"; # trying. } $type ||= "???"; @@ -228,20 +243,16 @@ sub on_dcc { my $get = ($event->args)[2]; open(DCCGET,">$get"); - $self->new_get($nick, - ($event->args)[2], - ($event->args)[3], - ($event->args)[4], - ($event->args)[5], - \*DCCGET - ); + $conn->new_get($event, \*DCCGET); + } elsif ($type eq 'GET') { # SEND for us? &status("DCC: Initializing SEND for $nick."); - $self->new_send($event->args); + $conn->new_send($event->args); } elsif ($type eq 'CHAT') { &status("DCC: Initializing CHAT for $nick."); - $self->new_chat($event); + $conn->new_chat($event); +# $conn->new_chat(1, $nick, $event->host); } else { &WARN("${b_green}DCC $type$ob (1)"); @@ -249,7 +260,8 @@ sub on_dcc { } sub on_dcc_close { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $nick = $event->nick(); my $sock = ($event->to)[0]; @@ -276,7 +288,8 @@ sub on_dcc_close { } sub on_dcc_open { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $type = uc( ($event->args)[0] ); my $nick = lc $event->nick(); my $sock = ($event->to)[0]; @@ -316,7 +329,7 @@ sub on_dcc_open_chat { my(undef, $nick, $sock) = @_; if ($nuh{$nick} eq "GETTING-NOW") { - &DEBUG("getting nuh for $nick failed. FIXME."); + &FIXME("getting nuh for $nick failed."); return; } @@ -333,7 +346,7 @@ sub on_dcc_open_chat { my $crypto = $users{$userHandle}{PASS}; $dcc{'CHAT'}{$nick} = $sock; - # todo: don't make DCC CHAT established in the first place. + # TODO: don't make DCC CHAT established in the first place. if ($userHandle eq "_default") { &dccsay($nick, "_default/guest not allowed"); $sock->close(); @@ -349,11 +362,13 @@ sub on_dcc_open_chat { } sub on_disconnect { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $from = $event->from(); my $what = ($event->args)[0]; + my $mynick=$conn->nick(); - &status("disconnect from $from ($what)."); + &status("$mynick disconnect from $from ($what)."); $ircstats{'DisconnectTime'} = time(); $ircstats{'DisconnectReason'} = $what; $ircstats{'DisconnectCount'}++; @@ -364,17 +379,22 @@ sub on_disconnect { $nickserv = 0; &clearIRCVars(); - if (!$self->connect()) { - &WARN("not connected? help me. gonna call ircCheck() in 60s"); - &clearIRCVars(); - &ScheduleThis(1, "ircCheck"); -# &ScheduleThis(10, "ircCheck"); -# &ScheduleThis(30, "ircCheck"); + + if (!defined $conn) { + &WARN("on_disconnect: self is undefined! WTF"); + &DEBUG("running function irc... lets hope this works."); + &irc(); + return; } + + &WARN("scheduling call ircCheck() in 60s"); + &clearIRCVars(); + &ScheduleThis(1, "ircCheck"); } sub on_endofnames { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $chan = ($event->args)[1]; # sync time should be done in on_endofwho like in BitchX @@ -388,7 +408,7 @@ sub on_endofnames { &status("$b_blue$chan$ob: sync in ${delta_time}s."); } - &rawout("MODE $chan"); + $conn->mode($chan); my $txt; my @array; @@ -411,7 +431,8 @@ sub on_endofnames { } sub on_init { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my (@args) = ($event->args); shift @args; @@ -419,7 +440,8 @@ sub on_init { } sub on_invite { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $chan = lc( ($event->args)[0] ); my $nick = $event->nick; @@ -442,7 +464,8 @@ sub on_invite { } sub on_join { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my ($user,$host) = split(/\@/, $event->userhost); $chan = lc( ($event->to)[0] ); # CASING!!!! $who = $event->nick(); @@ -450,8 +473,13 @@ sub on_join { my $i = scalar(keys %{ $channels{$chan} }); my $j = $cache{maxpeeps}{$chan} || 0; + if (!&IsParam("noSHM") && time() > ($sched{shmFlush}{TIME} || time()) + 3600) { + &DEBUG("looks like schedulers died somewhere... restarting..."); + &setupSchedulers(); + } + $chanstats{$chan}{'Join'}++; - $userstats{lc $who}{'Join'} = time() if (&IsChanConf("seenStats")); + $userstats{lc $who}{'Join'} = time() if (&IsChanConf("seenStats") > 0); $cache{maxpeeps}{$chan} = $i if ($i > $j); &joinfloodCheck($who, $chan, $event->userhost); @@ -528,15 +556,16 @@ sub on_join { return if ($netsplit); # who == bot. - if ($who eq $ident or $who =~ /^$ident$/i) { + if ($who =~ /^\Q$ident\E$/i) { if (defined( my $whojoin = $cache{join}{$chan} )) { &msg($chan, "Okay, I'm here. (courtesy of $whojoin)"); delete $cache{join}{$chan}; + &joinNextChan(); # hack. } ### TODO: move this to &joinchan()? $cache{jointime}{$chan} = &timeget(); - rawout("WHO $chan"); + $conn->who($chan); return; } @@ -544,7 +573,7 @@ sub on_join { ### ROOTWARN: &rootWarn($who,$user,$host,$chan) if ( &IsChanConf("rootWarn") && - $user =~ /^r(oo|ew|00)t$/i + $user =~ /^~?r(oo|ew|00)t$/i ); ### NEWS: @@ -556,15 +585,18 @@ sub on_join { } } - ### chanlimit check. -# &chanLimitVerify($chan); + ### botmail: + if (&IsChanConf("botmail")) { + &botmail::check(lc $who); + } ### wingate: &wingateCheck(); } sub on_kick { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my ($chan,$reason) = $event->args; my $kicker = $event->nick; my $kickee = ($event->to)[0]; @@ -586,13 +618,15 @@ sub on_kick { } sub on_mode { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my ($user, $host) = split(/\@/, $event->userhost); my @args = $event->args(); my $nick = $event->nick(); $chan = ($event->to)[0]; - $args[0] =~ s/\s$//; + # last element is empty... so nuke it. + pop @args while ($args[$#args] eq ""); if ($nick eq $chan) { # UMODE &status(">>> mode $b_yellow\[$ob$b@args$b_yellow\]$ob by $b_cyan$nick$ob"); @@ -603,7 +637,8 @@ sub on_mode { } sub on_modeis { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my ($myself, undef,@args) = $event->args(); my $nick = $event->nick(); $chan = ($event->args())[1]; @@ -612,7 +647,8 @@ sub on_modeis { } sub on_msg { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $nick = $event->nick; my $msg = ($event->args)[0]; @@ -637,7 +673,8 @@ sub on_msg { } sub on_names { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my @args = $event->args; my $chan = lc $args[2]; # CASING, the last of them! @@ -649,8 +686,9 @@ sub on_names { } sub on_nick { - my ($self, $event) = @_; - my $nick = $event->nick(); + $conn = shift(@_); + my ($event) = @_; + my $nick = $event->nick(); my $newnick = ($event->args)[0]; if (exists $netsplit{lc $newnick}) { @@ -667,7 +705,7 @@ sub on_nick { $channels{$chan}{$mode}{$newnick} = $channels{$chan}{$mode}{$nick}; } } - # todo: do %flood* aswell. + # TODO: do %flood* aswell. &delUserInfo($nick, keys %channels); $nuh{lc $newnick} = $nuh{lc $nick}; @@ -678,29 +716,33 @@ sub on_nick { $ident = $newnick; } else { &status(">>> $b_cyan$nick$ob materializes into $b_green$newnick$ob"); - - if ($nick =~ /^\Q$param{'ircNick'}\E$/i) { + my $mynick=$conn->nick(); + if ($nick =~ /^\Q$mynick\E$/i) { &getNickInUse(); } } } sub on_nick_taken { - my ($self) = @_; - my $nick = $self->nick; - my $newnick = $nick."-"; + $conn = shift(@_); + my $nick = $conn->nick(); + #my $newnick = $nick . int(rand 10); + my $newnick = $nick . "_"; + + &DEBUG("on_nick_taken: nick => $nick"); &status("nick taken ($nick); preparing nick change."); - $self->whois($nick); - $conn->schedule(5, sub { + $conn->whois($nick); + #$conn->schedule(5, sub { &status("nick taken; changing to temporary nick ($nick -> $newnick)."); &nick($newnick); - } ); + #} ); } sub on_notice { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $nick = $event->nick(); my $chan = ($event->to)[0]; my $args = ($event->args)[0]; @@ -737,6 +779,7 @@ sub on_notice { $nickserv++; } + } elsif ($nick =~ /^ChanServ$/i) { # chanserv. &status("ChanServ: <== '$args'."); @@ -751,7 +794,8 @@ sub on_notice { } sub on_other { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $chan = ($event->to)[0]; my $nick = $event->nick; @@ -760,15 +804,17 @@ sub on_other { } sub on_part { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; $chan = lc( ($event->to)[0] ); # CASING!!! + my $mynick = $conn->nick(); my $nick = $event->nick; my $userhost = $event->userhost; $who = $nick; $msgType = "public"; - if (0 and !exists $channels{$chan}) { - &DEBUG("on_part: found out we're on $chan!"); + if (!exists $channels{$chan}) { + &DEBUG("on_part: found out $mynick is on $chan!"); $channels{$chan} = 1; } @@ -779,11 +825,10 @@ sub on_part { $chanstats{$chan}{'Part'}++; &delUserInfo($nick,$chan); if ($nick eq $ident) { - &DEBUG("on_part: ok, I left $chan... clearChanVars..."); &clearChanVars($chan); } - if (!&IsNickInAnyChan($nick) and &IsChanConf("seenStats")) { + if (!&IsNickInAnyChan($nick) and &IsChanConf("seenStats") > 0) { delete $userstats{lc $nick}; } @@ -791,15 +836,17 @@ sub on_part { } sub on_ping { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $nick = $event->nick; - $self->ctcp_reply($nick, join(' ', ($event->args))); + $conn->ctcp_reply($nick, join(' ', ($event->args))); &status(">>> ${b_green}CTCP PING$ob request from $b_cyan$nick$ob received."); } sub on_ping_reply { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $nick = $event->nick; my $t = ($event->args)[1]; if (!defined $t) { @@ -813,7 +860,8 @@ sub on_ping_reply { } sub on_public { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $msg = ($event->args)[0]; $chan = lc( ($event->to)[0] ); # CASING. my $nick = $event->nick; @@ -821,7 +869,7 @@ sub on_public { $uh = $event->userhost(); $nuh = $nick."!".$uh; $msgType = "public"; - # todo: move this out of hookMsg to here? + # TODO: move this out of hookMsg to here? ($user,$host) = split(/\@/, $uh); $h = $host; @@ -834,47 +882,45 @@ sub on_public { $msgtime = time(); $lastWho{$chan} = $nick; ### TODO: use $nick or lc $nick? - if (&IsChanConf("seenStats")) { + if (&IsChanConf("seenStats") > 0) { $userstats{lc $nick}{'Count'}++; $userstats{lc $nick}{'Time'} = time(); } - # would this slow things down? - if ($_ = &getChanConf("ircTextCounters")) { - my $time = time(); - - foreach (split /[\s]+/) { - my $x = $_; - - # either full word or ends with a space, etc... - next unless ($msg =~ /^\Q$x\E[\$\s!.]/i); + # cache it. + my $time = time(); + if (!$cache{ircTextCounters}) { + &DEBUG("caching ircTextCounters for first time."); + my @str = split(/\s+/, &getChanConf("ircTextCounters")); + for (@str) { $_ = quotemeta($_); } + $cache{ircTextCounters} = join('|', @str); + } - &VERB("textcounters: $x matched for $who",2); - my $c = $chan || "PRIVATE"; + my $str = $cache{ircTextCounters}; + if ($str && $msg =~ /^($str)[\s!\.]?$/i) { + my $x = $1; - my ($v,$t) = &dbGet("stats", "counter,time", - "nick=". &dbQuote($who) - ." AND type=".&dbQuote($x) - ." AND channel=".&dbQuote($c) - ); - $v++; + &VERB("textcounters: $x matched for $who",2); + my $c = $chan || "PRIVATE"; - # don't allow ppl to cheat the stats :-) - next unless ($time - $t > 10); + # better to do "counter=counter+1". + # but that will avoid time check. + my ($v,$t) = &sqlSelect("stats", "counter,time", { + nick => $who, + type => $x, + channel => $c, + } ); + $v++; - my %hash = ( + # don't allow ppl to cheat the stats :-) + if (defined $t && $time - $t > 60) { + &sqlReplace("stats", { nick => $who, type => $x, channel => $c, - time => $time, counter => $v, - ); - - - &dbReplace("stats", "nick", %hash); - # does not work, atleast with old mysql!!! :( -# &dbReplace("stats", (nick => $who, type => $x, -counter => "counter+1") ); + } ); } } @@ -886,7 +932,8 @@ sub on_public { } sub on_quit { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $nick = $event->nick(); my $reason = ($event->args)[0]; @@ -919,21 +966,18 @@ sub on_quit { next unless ( exists $channels{$_}{'l'} ); &DEBUG("on_quit: netsplit detected on $_; disabling chan limit."); - &rawout("MODE $_ -l"); + $conn->mode($_, "-l"); } $netsplit{lc $nick} = time(); if (!exists $netsplitservers{$1}{$2}) { - &status("netsplit detected between $1 and $2 at [".scalar(localtime)."]"); + &status("netsplit detected between $1 and $2 at [".scalar(gmtime)."]"); $netsplitservers{$1}{$2} = time(); } } my $chans = join(' ', &getNickInChans($nick) ); &status(">>> $b_cyan$nick$ob has signed off IRC $b_red($ob$reason$b_red)$ob [$chans]"); - if ($nick =~ /^\Q$ident\E$/) { - &ERROR("^^^ THIS SHOULD NEVER HAPPEN (10)."); - } ### ### ok... lets clear out the cache @@ -945,19 +989,21 @@ sub on_quit { # well.. it's good but weird that this has happened - lets just # be quiet about it. } - delete $userstats{lc $nick} if (&IsChanConf("seenStats")); + delete $userstats{lc $nick} if (&IsChanConf("seenStats") > 0); delete $chanstats{lc $nick}; ### - # does this work? - if ($nick !~ /^\Q$ident\E$/ and $nick =~ /^\Q$param{'ircNick'}\E$/i) { - &status("nickchange: own nickname became free; changing."); - &nick($param{'ircNick'}); + # if we have a temp nick, and whoever is camping on our main nick leaves + # revert to main nick. Note that Net::IRC only knows our main nick + if ($nick eq $conn->nick()) { + &status("nickchange: own nick \"$nick\" became free; changing."); + &nick($mynick); } } sub on_targettoofast { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $nick = $event->nick(); my($me,$chan,$why) = $event->args(); @@ -989,7 +1035,8 @@ sub on_targettoofast { } sub on_topic { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; if (scalar($event->args) == 1) { # change. my $topic = ($event->args)[0]; @@ -1022,12 +1069,13 @@ sub on_topic { } sub on_topicinfo { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my ($myself,$chan,$setby,$time) = $event->args(); my $timestr; if (time() - $time > 60*60*24) { - $timestr = "at ". localtime $time; + $timestr = "at ". gmtime $time; } else { $timestr = &Time2String(time() - $time) ." ago"; } @@ -1036,7 +1084,8 @@ sub on_topicinfo { } sub on_crversion { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $nick = $event->nick(); my $ver; @@ -1065,15 +1114,22 @@ sub on_crversion { } elsif ($ver =~ /epic|(Third Eye)/i) { $ver{epic}{$nick} = $ver; + } elsif ($ver =~ /ircII|PhoEniX/i) { + $ver{ircII}{$nick} = $ver; + } elsif ($ver =~ /mirc/i) { # &DEBUG("verstats: mirc: $nick => '$ver'."); $ver{mirc}{$nick} = $ver; +# ok... then we get to the lesser known/used clients. } elsif ($ver =~ /ircle/i) { $ver{ircle}{$nick} = $ver; - } elsif ($ver =~ /ircII|PhoEniX/i) { - $ver{ircII}{$nick} = $ver; + } elsif ($ver =~ /chatzilla/i) { + $ver{chatzilla}{$nick} = $ver; + + } elsif ($ver =~ /pirch/i) { + $ver{pirch}{$nick} = $ver; } elsif ($ver =~ /sirc /i) { $ver{sirc}{$nick} = $ver; @@ -1094,15 +1150,17 @@ sub on_crversion { } sub on_version { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my $nick = $event->nick; &status(">>> ${b_green}CTCP VERSION$ob request from $b_cyan$nick$ob"); - $self->ctcp_reply($nick, "VERSION $bot_version"); + $conn->ctcp_reply($nick, "VERSION $bot_version"); } sub on_who { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my @args = $event->args; my $str = $args[5]."!".$args[2]."\@".$args[3]; @@ -1123,21 +1181,24 @@ sub on_who { } sub on_whois { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my @args = $event->args; $nuh{lc $args[1]} = $args[1]."!".$args[2]."\@".$args[3]; } sub on_whoischannels { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my @args = $event->args; &DEBUG("on_whoischannels: @args"); } sub on_useronchannel { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my @args = $event->args; &DEBUG("on_useronchannel: @args"); @@ -1149,35 +1210,61 @@ sub on_useronchannel { ### sub on_chanfull { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my @args = $event->args; - &DEBUG("on_chanfull: args => @args"); + &status(">>> chanfull/$b_blue$args[1]$ob"); + &joinNextChan(); } sub on_inviteonly { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my @args = $event->args; - &DEBUG("on_inviteonly: args => @args"); + &status(">>> inviteonly/$b_cyan$args[1]$ob"); + &joinNextChan(); } sub on_banned { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; my @args = $event->args; + my $chan = $args[1]; - &DEBUG("on_banned: args => @args"); + &status(">>> banned/$b_blue$chan$ob $b_cyan$args[0]$ob, removing autojoin for $chan"); + delete $chanconf{$chan}{autojoin}; &joinNextChan(); } sub on_badchankey { - my ($self, $event) = @_; + $conn = shift(@_); + my ($event) = @_; + my @args = $event->args; + my $chan = $args[1]; + + &DEBUG("on_badchankey: args => @args, removing autojoin for $chan"); + delete $chanconf{$chan}{autojoin}; + &joinNextChan(); +} + +sub on_useronchan { + $conn = shift(@_); + my ($event) = @_; my @args = $event->args; - &DEBUG("on_badchankey: args => @args"); + &DEBUG("on_useronchan: args => @args"); &joinNextChan(); } +# TODO not used yet +sub on_stdin { + my $line = ; + chomp($line); + &FIXME("on_stdin: line => \"$line\""); +} + 1;