diff options
| -rw-r--r-- | Plugin/Admin.pm | 163 | ||||
| -rwxr-xr-x | idalius.pl | 2 |
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; @@ -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\""; } |