Implement in-chan admin commands with Admin module

Starts to address GitHub issue #11

2 files changed, 164 insertions, 1 deletions

diff --git a/Plugin/Admin.pm b/Plugin/Admin.pm
new file mode 100644
index 0000000..1151fc4
--- /dev/null
+++ b/Plugin/Admin.pm
@@ -0,0 +1,163 @@
+#!/usr/bin/env perl
+
+package Plugin::Admin;
+
+use strict;
+use warnings;
+
+my %config;
+
+sub configure {
+	my $self = $_[0];
+	my $cmdref = $_[1];
+	my $cref = $_[2];
+	%config = %$cref;
+
+	$cmdref->("say", sub { $self->say(@_); } );
+	$cmdref->("action", sub { $self->action(@_); } );
+
+	$cmdref->("nick", sub { $self->nick(@_); } );
+	$cmdref->("join", sub { $self->join(@_); } );
+	$cmdref->("part", sub { $self->part(@_); } );
+	$cmdref->("mode", sub { $self->mode(@_); } );
+	$cmdref->("kick", sub { $self->kick(@_); } );
+	$cmdref->("topic", sub { $self->topic(@_); } );
+	$cmdref->("reconnect", sub { $self->reconnect(@_); } );
+
+	$cmdref->("ignore", sub { $self->ignore(@_); } );
+	$cmdref->("don't ignore", sub { $self->do_not_ignore(@_); } );
+
+	return $self;
+}
+
+sub is_admin {
+	my $who = shift;
+	my $is_admin = grep {$_ eq $who} @{$config{admins}};
+	if (!$is_admin) {
+		# Uhh log this rather than print
+		print "$who isn't an admin, but tried to use a command";
+	}
+	return $is_admin;
+}
+
+sub nick {
+	my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_;
+
+	return unless is_admin($who);
+	return "Syntax: nick <new nick>" unless @arguments == 1;
+
+	$irc->yield(nick => $arguments[0]);
+}
+
+sub say {
+	my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_;
+
+	return unless is_admin($who);
+	return "Syntax: say <channel> <msg>" unless @arguments >= 2;
+
+	# Strip nick/channel from message
+	$rest =~ s/^(.*?\s)//;
+
+	$irc->yield(privmsg => $arguments[0] => $rest);
+}
+
+sub action {
+	my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_;
+
+	return unless is_admin($who);
+	return "Syntax: action <channel> <action text>" unless @arguments >= 2;
+
+	# Strip nick/channel from message
+	$rest =~ s/^(.*?\s)//;
+
+	$irc->yield(ctcp => $arguments[0] => "ACTION $rest");
+}
+
+sub join {
+	my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_;
+
+	return unless is_admin($who);
+	return "Syntax: join <channel1> [channel2 ...]" unless @arguments >= 1;
+
+	$irc->yield(join => $_) for @arguments;
+}
+
+sub part {
+	my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_;
+
+	return unless is_admin($who);
+	return "Syntax: part <channel1> [channel2 ...] [partmsg]" unless @arguments >= 1;
+
+	my $nick = (split /!/, $who)[0];
+	my ($chan_str, $reason) = split /\s+(?!#)/, $rest, 2;
+	my @channels = split /\s+/, $chan_str;
+	$reason = "Commanded by $nick" unless $reason;
+	$irc->yield(part => @channels => $reason);
+}
+
+sub mode {
+	my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_;
+
+	return unless is_admin($who);
+	return "Syntax: mode <everything>" unless @arguments > 0;
+
+	# FIXME should use $where if it's a channel (?)
+	$irc->yield(mode => $rest);
+}
+
+sub kick {
+	my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_;
+
+	return unless is_admin($who);
+	return "Syntax: kick <channel> <nick> [reason]" unless @arguments >= 2;
+
+	my ($channel, $kickee, undef, $reason) = $rest =~ /^(\S+)\s(\S+)((?:\s)(.*))?$/;
+	if ($channel and $kickee) {
+		my $nick = (split /!/, $who)[0];
+		$reason = "Requested by $nick" unless $reason;
+		$irc->yield(kick => $channel => $kickee => $reason);
+	}
+}
+
+sub topic {
+	my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_;
+
+	return unless is_admin($who);
+	return "Syntax: topic <new topic>" unless @arguments >= 2;
+
+	# Strip nick/channel from message
+	$rest =~ s/^(.*?\s)//;
+
+	# FIXME use $where if it's a channel
+	$irc->yield(topic => $arguments[0] => $rest);
+}
+
+sub reconnect {
+	my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_;
+
+	return unless is_admin($who);
+
+	my $reason = $rest;
+	$irc->yield(quit => $reason);
+}
+
+sub ignore {
+	my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_;
+
+	return unless is_admin($who);
+	return "Syntax: ignore <nick>" unless @arguments == 1;
+
+	$logger->("ERROR: UNIMPLEMENTED FEATURE");
+}
+
+sub do_not_ignore {
+	my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_;
+
+	return unless is_admin($who);
+	return "Syntax: don't ignore <nick>" unless @arguments == 1;
+
+	$logger->("ERROR: UNIMPLEMENTED FEATURE");
+}
+
+
+1;
diff --git a/idalius.pl b/idalius.pl
index c88ed8e..8f82535 100755
--- a/idalius.pl
+++ b/idalius.pl
@@ -88,7 +88,7 @@ sub run_command {
 	my ($command, $rest) = split /\s+/, $command_string, 2;
 	@arguments = split /\s+/, $rest if $rest;
 	if ($commands{$command}) {
-		return ($commands{$command})->(\&log_info, $who, $where, $rest, @arguments);
+		return ($commands{$command})->($irc, \&log_info, $who, $where, $rest, @arguments);
 	} else {
 		return "No such command \"$command\"";
 	}