From d07473ba85ec8ab030162e68244575f2c87e0389 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Thu, 26 Jan 2012 08:26:14 +0000
Subject: Delete everything having to do with chanops priviledges, no one has
 ever used it

---
 modules/actions.pl | 57 ------------------------------------------------------
 1 file changed, 57 deletions(-)
 delete mode 100644 modules/actions.pl

(limited to 'modules/actions.pl')

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;
-- 
cgit v1.2.3