aboutsummaryrefslogtreecommitdiff
path: root/Plugin/Log.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Plugin/Log.pm')
-rw-r--r--Plugin/Log.pm16
1 files changed, 7 insertions, 9 deletions
diff --git a/Plugin/Log.pm b/Plugin/Log.pm
index a993d3f..dc2c6d3 100644
--- a/Plugin/Log.pm
+++ b/Plugin/Log.pm
@@ -33,25 +33,25 @@ sub configure {
}
# IRC 001
-sub on_welcome {
+sub on_001_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 {
+sub on_002_your_host {
my ($self, $logger, $message, $irc) = @_;
$logger->("$t{info} --- \"$t{message}$message$t{info}\"$t{reset}");
}
# IRC 003
-sub on_created {
+sub on_003_created {
my ($self, $logger, $message, $irc) = @_;
$logger->("$t{info} --- \"$t{message}$message$t{info}\"$t{reset}");
}
# IRC 004
-sub on_my_info {
+sub on_004_my_info {
my ($self, $logger, $message, $irc) = @_;
$logger->("$t{info} --- \"$t{message}$message$t{info}\"$t{reset}");
}
@@ -86,7 +86,6 @@ sub on_255_user_me {
$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}");
@@ -151,22 +150,21 @@ sub on_ping {
return;
}
-sub on_motd_content {
+sub on_372_motd_content {
my ($self, $logger, $server, $motd, $irc) = @_;
$logger->("$t{info}MOTD: $t{message}$motd$t{reset}");
return;
}
-sub on_motd_begin {
+sub on_375_motd_begin {
my ($self, $logger, $server, $message, $irc) = @_;
$logger->("$t{info}$message$t{reset}");
return;
}
-sub on_motd_end {
+sub on_376_motd_end {
my ($self, $logger, $server, $message, $irc) = @_;
$logger->("$t{info}$message$t{reset}");
return;
}
-
1;