diff options
| author | 2007-06-26 09:17:21 +0000 | |
|---|---|---|
| committer | 2007-06-26 09:17:21 +0000 | |
| commit | 14bd999ada56e20ffc355ef32d7a8a0bbf9d1032 (patch) | |
| tree | 05e8351b5dca645e6fd6eaf86db5813227af4083 /modules/event.pl | |
| parent | 7e08e2e87e3de903b8810a0bd357a45a65cc3b49 (diff) | |
new commands, users, hilights, rules, bugfixes, and all sorts of other good stuff
Diffstat (limited to 'modules/event.pl')
| -rw-r--r-- | modules/event.pl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/modules/event.pl b/modules/event.pl index 77583e4..2feb915 100644 --- a/modules/event.pl +++ b/modules/event.pl @@ -234,6 +234,38 @@ sub whois_end { $::idqueue{$who} = []; } +sub whois_user { + my ($conn, $event2) = @_; + my $lnick = lc $event2->{args}->[1] + unless (defined($::sn{$lnick})) { + $::sn{$lnick} = {}; + } + $::sn{$lnick}{gecos} = $event2->{args}->[5]; + $::sn{$lnick}{user} = $event2->{args}->[2]; + $::sn{$lnick}{host} = $event2->{args}->[3]; + if (defined( $::needgeco{$lnick} )) { + inspect(shift($::needgeco{$lnick})); + delete $::needgeco{$lnick} if $::needgeco{$lnick} eq (); + } +} +#<<< :kubrick.freenode.net 311 AntiSpamMeta AfterDeath i=icxcnika atheme/troll/about.linux.afterdeath * :[[User:WHeimbigner]] +#Trying to handle event 'whoisuser'. +#Handler for 'whoisuser' called. +#<<< :kubrick.freenode.net 319 AntiSpamMeta AfterDeath :#nslu2-general @#bash @##asb-testing +#vandalism-en-wp +#thetestwiki #arbchat #wikipedia-social #wikipedia-en #wikimedia-stewards #wikimedia-irc @##krypt77 #wikipedia #freenode #hyperion ##linux #gentoo #debian ##windows #defocus #atheme.org #freenode-dev +##asb-nexus #houseofhack ##linux-ops @#baadf00d #wikimedia-ops #ubuntu ##socialites +#Trying to handle event 'whoischannels'. +#Handler for 'whoischannels' called. +#<<< :kubrick.freenode.net 312 AntiSpamMeta AfterDeath irc.freenode.net :http://freenode.net/ +#Trying to handle event 'whoisserver'. +#Handler for 'whoisserver' called. +#<<< :kubrick.freenode.net 320 AntiSpamMeta AfterDeath :is identified to services +#Trying to handle event 'whoisvworld'. +#Handler for 'whoisvworld' called. +#<<< :kubrick.freenode.net 318 AntiSpamMeta afterdeath :End of /WHOIS list. +#Trying to handle event 'endofwhois'. +#Handler for 'endofwhois' called. + + + sub on_bannedfromchan { my ($conn, $event) = @_; $conn->privmsg('ChanServ', "unban $event->{args}->[1]"); |
