Bulk add some IRC message handlers for logging

2 files changed, 185 insertions, 3 deletions

diff --git a/Plugin/Log.pm b/Plugin/Log.pm
index 135cd85..a5dee69 100644
--- a/Plugin/Log.pm
+++ b/Plugin/Log.pm
@@ -31,12 +31,61 @@ sub configure {
 	return $self;
 }
 
-# FIXME Not triggered yet
-sub on_001 {
+# IRC 001
+sub on_welcome {
 	my ($self, $logger, $server, $message, $irc) = @_;
 	$logger->("$t{info}Connected to $t{host}$server$t{info} --- \"$t{message}$message$t{info}\"$t{reset}");
 }
 
+# IRC 002
+sub on_your_host {
+	my ($self, $logger, $message, $irc) = @_;
+	$logger->("$t{info} --- \"$t{message}$message$t{info}\"$t{reset}");
+}
+
+# IRC 003
+sub on_created {
+	my ($self, $logger, $message, $irc) = @_;
+	$logger->("$t{info} --- \"$t{message}$message$t{info}\"$t{reset}");
+}
+
+# IRC 004
+sub on_my_info {
+	my ($self, $logger, $message, $irc) = @_;
+	$logger->("$t{info} --- \"$t{message}$message$t{info}\"$t{reset}");
+}
+
+# IRC 251
+sub on_251_user_client {
+	my ($self, $logger, $message, $irc) = @_;
+	$logger->("$t{info}Online: \"$t{message}$message$t{info}\"$t{reset}");
+}
+
+# IRC 252
+sub on_252_user_op {
+	my ($self, $logger, $count, $message, $irc) = @_;
+	$logger->("$t{info}Online: \"$t{message}$count $message$t{info}\"$t{reset}");
+}
+
+# IRC 253
+sub on_253_user_unknown {
+	my ($self, $logger, $count, $message, $irc) = @_;
+	$logger->("$t{info}Online: \"$t{message}$count $message$t{info}\"$t{reset}");
+}
+
+# IRC 254
+sub on_254_user_channels {
+	my ($self, $logger, $count, $message, $irc) = @_;
+	$logger->("$t{info}Online: \"$t{message}$count $message$t{info}\"$t{reset}");
+}
+
+# IRC 255
+sub on_255_user_me {
+	my ($self, $logger, $message, $irc) = @_;
+	$logger->("$t{info}Online: \"$t{message}$message$t{info}\"$t{reset}");
+}
+
+
 sub on_message {
 	my ($self, $logger, $who, $where, $raw_what, $what, $irc) = @_;
 	$logger->("$t{bracket}\[$t{channel}$where->[0]$t{bracket}\] $t{nick}$who: $t{message}$what$t{reset}");
@@ -92,5 +141,25 @@ sub on_topic {
 sub on_ping {
 	my ($self, $logger, $server, $irc) = @_;
 	$logger->("$t{misc}IRC ping from $server$t{reset}");
+	return;
+}
+
+sub on_motd_content {
+	my ($self, $logger, $server, $motd, $irc) = @_;
+	$logger->("$t{info}MOTD: $t{message}$motd$t{reset}");
+	return;
 }
+
+sub on_motd_begin {
+	my ($self, $logger, $server, $message, $irc) = @_;
+	$logger->("$t{info}$message$t{reset}");
+	return;
+}
+
+sub on_motd_end {
+	my ($self, $logger, $server, $message, $irc) = @_;
+	$logger->("$t{info}$message$t{reset}");
+	return;
+}
+
 1;
diff --git a/idalius.pl b/idalius.pl
index fec0d24..8e14897 100755
--- a/idalius.pl
+++ b/idalius.pl
@@ -55,7 +55,18 @@ POE::Session->create(
 			_default
 			_start
 			irc_001
+			irc_002
+			irc_003
+			irc_004
+			irc_251
+			irc_252
+			irc_253
+			irc_254
+			irc_255
 			irc_302
+			irc_372
+			irc_375
+			irc_376
 			irc_kick
 			irc_ctcp_action
 			irc_public
@@ -315,13 +326,115 @@ sub irc_001 {
 	my ($poek, $server, $message) = @_[KERNEL, ARG0, ARG1];
 	my @empty = ();
 
-	trigger_modules("001", undef, undef, \@empty, ($server, $message));
+	trigger_modules("welcome", undef, undef, \@empty, ($server, $message));
 
 	# FIXME move to forward ping module
 	$poek->delay(custom_ping => $ping_delay);
 	return;
 }
 
+# 002 (your host)
+sub irc_002 {
+	my $message = $_[ARG1];
+	my @empty = ();
+
+	trigger_modules("your_host", undef, undef, \@empty, ($message));
+	return;
+}
+
+# 003 (created)
+sub irc_003 {
+	my $message = $_[ARG1];
+	my @empty = ();
+
+	trigger_modules("created", undef, undef, \@empty, ($message));
+	return;
+}
+
+# 004 (myinfo)
+sub irc_004 {
+	my $message = $_[ARG1];
+	my @empty = ();
+
+	trigger_modules("my_info", undef, undef, \@empty, ($message));
+	return;
+}
+
+# 251 (luserclient)
+sub irc_251 {
+	my $message = $_[ARG1];
+	my @empty = ();
+
+	trigger_modules("251_user_client", undef, undef, \@empty, ($message));
+	return;
+}
+
+# 252 (luserop)
+sub irc_252 {
+	my ($count, $message) = @{$_[ARG2]};
+	my @empty = ();
+
+	trigger_modules("252_user_op", undef, undef, \@empty, ($count, $message));
+	return;
+}
+
+# 253 (luserunknown)
+sub irc_253 {
+	my ($count, $message) = @{$_[ARG2]};
+	my @empty = ();
+
+	trigger_modules("253_user_unknown", undef, undef, \@empty, ($count, $message));
+	return;
+}
+
+# 254 (luserchannels)
+sub irc_254 {
+	my ($count, $message) = @{$_[ARG2]};
+	my @empty = ();
+
+	trigger_modules("254_user_channels", undef, undef, \@empty, ($count, $message));
+	return;
+}
+
+# 255 (luserme)
+sub irc_255 {
+	my ($message) = $_[ARG1];
+	my @empty = ();
+
+	trigger_modules("255_user_me", undef, undef, \@empty, ($message));
+	return;
+}
+
+
+
+# 372 (MOTD content)
+sub irc_372 {
+	my ($server, $motd) = @_[ARG0..ARG1];
+	my @empty = ();
+
+	trigger_modules("motd_content", undef, undef, \@empty, ($server, $motd));
+	return;
+}
+
+# 375 (MOTD begin)
+sub irc_375 {
+	my ($server, $message) = @_[ARG0..ARG1];
+	my @empty = ();
+
+	trigger_modules("motd_begin", undef, undef, \@empty, ($server, $message));
+	return;
+}
+
+# 376 (MOTD end)
+sub irc_376 {
+	my ($server, $message) = @_[ARG0..ARG1];
+	my @empty = ();
+
+	trigger_modules("motd_end", undef, undef, \@empty, ($server, $message));
+	return;
+}
+
+
 sub irc_ctcp_action {
 	my ($sender, $who, $where, $what) = @_[SENDER, ARG0 .. ARG2];
 	my $nick = ( split /!/, $who )[0];