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 ------------------------------------------------------
 modules/event.pl   |  6 ------
 modules/inspect.pl | 13 -------------
 3 files changed, 76 deletions(-)
 delete mode 100644 modules/actions.pl

(limited to 'modules')

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;
diff --git a/modules/event.pl b/modules/event.pl
index ab4fb1a..95df7f4 100644
--- a/modules/event.pl
+++ b/modules/event.pl
@@ -335,12 +335,6 @@ sub on_mode
       my @ex = @{$line};
       if ( $ex[0] eq '+o' ) {
         $::sc{$chan}{users}{lc $ex[1]}{op}=1;
-        if (lc $ex[1] eq lc $::settings->{nick}) {
-          $::oq->doQueue($conn, $chan);
-          if ( $::channels->{channel}->{$chan}->{op} eq "when" ) {
-            $conn->schedule(600, sub {$conn->mode($chan, "-o $::settings->{nick}");});
-          }
-        }
       }
       elsif ( $ex[0] eq '-o' ) {
         $::sc{$chan}{users}{lc $ex[1]}{op}=0;
diff --git a/modules/inspect.pl b/modules/inspect.pl
index f8e50b8..72a5438 100644
--- a/modules/inspect.pl
+++ b/modules/inspect.pl
@@ -71,19 +71,6 @@ sub inspect {
               "\x02$event->{nick}\x02 - ${nicereason}; ping ";
       $txtz = $txtz . ASM::Util->commaAndify(ASM::Util->getAlert(lc $chan, $dct{$id}{risk}, 'hilights')) if (ASM::Util->getAlert(lc $chan, $dct{$id}{risk}, 'hilights'));
       $txtz = $txtz . ' !att-' . $chan . '-' . $dct{$id}{risk};
-      if (ASM::Util->cs(lc $chan)->{op} ne 'no') {
-        if ($event->{type} eq 'topic') { #restore old topic
-          my $oldtopic = $::sc{lc $event->{to}->[0]}{topic}{text};
-          $::oq->o_send( $conn, "topic $chan :$oldtopic");
-          $::oq->o_send( $conn, "mode $chan +t");
-        }
-#        eval '$unmode = Actions::' . $dct{$id}{action} . '($conn, $event, $chan);';
-        $unmode = $::actions->do($dct{$id}{action}, $conn, $event, $chan);
-        my $lconn=$conn; my $lunmode = $unmode;
-        if ((int($dct{$id}{time}) ne 0) && ($unmode ne '')) {
-           $conn->schedule(int($dct{$id}{time}), sub { $::oq->o_send($lconn,$lunmode); });
-        }
-      }
       unless (defined($::ignored{$chan}) && ($::ignored{$chan} >= $::RISKS{$dct{$id}{risk}})) {
         my @tgts = ASM::Util->getAlert($chan, $dct{$id}{risk}, 'msgs');
         foreach my $tgt (@tgts) { #unfortunately wikipedia has way too many ops, and it breaks things
-- 
cgit v1.2.3