aboutsummaryrefslogtreecommitdiff
path: root/Plugin
diff options
context:
space:
mode:
authorDavid Phillips <david@sighup.nz>2019-07-12 21:14:58 +1200
committerDavid Phillips <david@sighup.nz>2019-07-12 23:19:11 +1200
commita22d539075597a686f04a79d960c2047c83ab389 (patch)
tree88bd681ad3200a20a1e173f8b39da27212b8e283 /Plugin
parentc757da74b4131562f23d7b5275aaf981891fe882 (diff)
downloadidalius-a22d539075597a686f04a79d960c2047c83ab389.tar.xz
Topic: Add topic reporting plugin
Diffstat (limited to 'Plugin')
-rw-r--r--Plugin/Admin.pm4
-rw-r--r--Plugin/Log.pm12
-rw-r--r--Plugin/Topic.pm44
3 files changed, 58 insertions, 2 deletions
diff --git a/Plugin/Admin.pm b/Plugin/Admin.pm
index ce43424..38d4993 100644
--- a/Plugin/Admin.pm
+++ b/Plugin/Admin.pm
@@ -28,7 +28,7 @@ sub configure {
$cmdref->($self, "part", sub { $self->part(@_); } );
$cmdref->($self, "mode", sub { $self->mode(@_); } );
$cmdref->($self, "kick", sub { $self->kick(@_); } );
- $cmdref->($self, "topic", sub { $self->topic(@_); } );
+ $cmdref->($self, "set topic", sub { $self->topic(@_); } );
$cmdref->($self, "reconnect", sub { $self->reconnect(@_); } );
$cmdref->($self, "ignore", sub { $self->ignore(@_); } );
@@ -168,7 +168,7 @@ sub topic {
my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
return unless is_admin($logger, $who, $ided);
- return "Syntax: topic <new topic>" unless @arguments >= 2;
+ return "Syntax: set topic <new topic>" unless @arguments >= 2;
# Strip nick/channel from message
$rest =~ s/^(.*?\s)//;
diff --git a/Plugin/Log.pm b/Plugin/Log.pm
index dd092f5..542873c 100644
--- a/Plugin/Log.pm
+++ b/Plugin/Log.pm
@@ -156,6 +156,18 @@ sub on_ping {
return;
}
+sub on_331_rpl_notopic {
+ my ($self, $logger, $where, $irc) = @_;
+ $logger->("$t{bracket}\[$t{channel}$where$t{bracket}\]$t{info} --- topic is not set$t{reset}");
+ return;
+}
+
+sub on_332_rpl_topic {
+ my ($self, $logger, $where, $topic, $irc) = @_;
+ $logger->("$t{bracket}\[$t{channel}$where$t{bracket}\]$t{info} --- topic is $t{message}$topic$t{reset}");
+ return;
+}
+
sub on_372_motd_content {
my ($self, $logger, $server, $motd, $irc) = @_;
$logger->("$t{info}MOTD: $t{message}$motd$t{reset}");
diff --git a/Plugin/Topic.pm b/Plugin/Topic.pm
new file mode 100644
index 0000000..ce3c782
--- /dev/null
+++ b/Plugin/Topic.pm
@@ -0,0 +1,44 @@
+package Plugin::Topic;
+
+use strict;
+use warnings;
+
+my %channel_topics;
+
+sub configure {
+ my $self = shift;
+ my $cmdref = shift;
+ shift; # run_command
+
+ $cmdref->($self, "topic", sub { $self->topic(@_); } );
+
+ return $self;
+}
+
+sub topic {
+ my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
+ $where = $where->[0] if ref($where) eq "ARRAY";
+
+ # use current channel unless one is specified
+ my $channel = @arguments ? $arguments[0] : $where;
+ return "Syntax: topic [channel]" unless $channel =~ m/^#.*$/;
+
+ my $topic = $channel_topics{$channel} || "(no topic)";
+ return "Topic for $channel: $topic";
+}
+
+sub on_topic {
+ my ($self, $logger, $who, $where, $topic, $irc) = @_;
+ $channel_topics{$where} = $topic;
+}
+
+sub on_331_rpl_notopic {
+ my ($self, $logger, $where, $irc) = @_;
+ delete $channel_topics{$where};
+}
+
+sub on_332_rpl_topic {
+ my ($self, $logger, $where, $topic, $irc) = @_;
+ $channel_topics{$where} = $topic;
+}
+1;