summaryrefslogtreecommitdiffstats
path: root/modules/event.pl
diff options
context:
space:
mode:
authorLibravatarWilliam Heimbigner <william.heimbigner@gmail.com>2007-06-26 09:17:21 +0000
committerLibravatarWilliam Heimbigner <william.heimbigner@gmail.com>2007-06-26 09:17:21 +0000
commit14bd999ada56e20ffc355ef32d7a8a0bbf9d1032 (patch)
tree05e8351b5dca645e6fd6eaf86db5813227af4083 /modules/event.pl
parent7e08e2e87e3de903b8810a0bd357a45a65cc3b49 (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.pl32
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]");