aboutsummaryrefslogtreecommitdiff
path: root/Plugin
diff options
context:
space:
mode:
Diffstat (limited to 'Plugin')
-rw-r--r--Plugin/Autojoin.pm23
-rw-r--r--Plugin/Log.pm3
2 files changed, 25 insertions, 1 deletions
diff --git a/Plugin/Autojoin.pm b/Plugin/Autojoin.pm
new file mode 100644
index 0000000..0620ecd
--- /dev/null
+++ b/Plugin/Autojoin.pm
@@ -0,0 +1,23 @@
+package Plugin::Autojoin;
+
+use strict;
+use warnings;
+
+my $config;
+
+sub configure {
+ my $self = shift;
+ shift; # cmdref
+ shift; # run_command
+ $config = shift;
+ shift; # root config
+
+ return $self;
+}
+
+sub on_001 {
+ my ($self, $logger, $server, $message, $irc) = @_;
+ $irc->yield(join => $_) for @{$config->{channels}};
+ return;
+}
+1;
diff --git a/Plugin/Log.pm b/Plugin/Log.pm
index 1d69e51..135cd85 100644
--- a/Plugin/Log.pm
+++ b/Plugin/Log.pm
@@ -14,6 +14,7 @@ my %t = (
nick => color("cyan"),
info => color("yellow"),
kick => color("red"),
+ host => color("magenta"),
channel => color("blue"),
message => color("reset"),
misc => color("bright_black"),
@@ -33,7 +34,7 @@ sub configure {
# FIXME Not triggered yet
sub on_001 {
my ($self, $logger, $server, $message, $irc) = @_;
- $logger->("$t{info}Connected to ${host}$server$t{info} --- \"$t{message}$message$t{info}\"$t{reset}");
+ $logger->("$t{info}Connected to $t{host}$server$t{info} --- \"$t{message}$message$t{info}\"$t{reset}");
}
sub on_message {