Delete everything having to do with chanops priviledges, no one has ever used it

1 files changed, 0 insertions, 57 deletions

diff --git a/modules/actions.pl b/modules/actions.pl
deleted file mode 100644
index 08bf1be..0000000
--- a/modules/actions.pl
+++ /dev/null
@@ -1,57 +0,0 @@
-package ASM::Actions;
-use strict;
-use warnings;
-
-sub new
-{
-  my $module = shift;
-  my $self = {};
-  my $tbl = {
-    "ban" => \&ban,
-    "kban" => \&kban,
-    "kick" => \&kick,
-    "none" => \&none,
-   "quiet" => \&quiet,
-  };
-  $self->{ftbl} = $tbl;
-  bless($self);
-  return $self;
-}
-
-sub do
-{
-  my $self = shift;
-  my $item = shift;
-  return $self->{ftbl}->{$item}->(@_);
-}
-
-sub ban {
-  my ($conn, $event, $chan) = @_;
-  $::oq->o_send( $conn, "mode $chan +b *!*\@$event->{host}" );
-  return "mode $chan -b *!*\@$event->{host}";
-}
-
-sub kban {
-  my ($conn, $event, $chan) = @_;
-  $::oq->o_send($conn, "mode $chan +b *!*\@$event->{host}");
-  $::oq->o_send($conn, "kick $chan $event->{nick} :Spamming");
-  return "mode $chan -b *!*\@$event->{host}";
-}
-
-sub kick {
-  my ($conn, $event, $chan) = @_;
-  $::oq->o_send($conn, "kick $chan $event->{nick} :Spamming");
-  return "";
-}
-
-sub none {
-  return "";
-}
-
-sub quiet {
-  my ($conn, $event, $chan) = @_;
-  $::oq->o_send( $conn, "mode $chan +b %*!*\@$event->{host}" );
-  return "mode $chan -b %*!*\@$event->{host}";
-}
-
-1;