From 9b472795d26cd93d1bb58488ef60a062f5237295 Mon Sep 17 00:00:00 2001
From: Janik Kleinhoff <janik@kleinhoff.de>
Date: Thu, 24 Sep 2015 01:32:11 +0000
Subject: Rework module paths

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

(limited to 'modules/services.pl')

diff --git a/modules/services.pl b/modules/services.pl
deleted file mode 100644
index 528901d..0000000
--- a/modules/services.pl
+++ /dev/null
@@ -1,69 +0,0 @@
-package ASM::Services;
-use warnings;
-use strict;
-
-use Data::Dumper;
-$Data::Dumper::Useqq=1;
-
-sub new
-{
-  my $self = {};
-  bless($self);
-  return $self;
-}
-
-sub doServices {
-  my ($self, $conn, $event) = @_;
-  my $i = 1;
-  if ($event->{from} eq 'NickServ!NickServ@services.')
-  {
-    ASM::Util->dprint("NickServ: $event->{args}->[0]", 'snotice');
-    if ( $event->{args}->[0] =~ /^This nickname is registered/ )
-    {
-      $conn->privmsg( 'NickServ@services.', "identify $::settings->{nick} $::settings->{pass}" );
-    }
-    elsif ( $event->{args}->[0] =~ /^You are now identified/ )
-    {
-      my @autojoins = @{$::settings->{autojoins}};
-      if (defined($autojoins[30])) {
-        $conn->join(join(',', @autojoins[0..30]));
-        if (defined($autojoins[60])) {
-          $conn->join(join(',', @autojoins[30..60]));
-          $conn->join(join(',', @autojoins[60..$#autojoins]));
-        } else {
-          $conn->join(join(',', @autojoins[30..$#autojoins]));
-        }
-      } else {
-        $conn->join(join(',', @autojoins));
-      }
-      $conn->sl("PING :" . time);
-      $conn->schedule(2, sub { $conn->privmsg($::settings->{masterchan}, 'Now joined to all channels in '. (time - $::starttime) . " seconds."); });
-    }
-    elsif ($event->{args}->[0] =~ /has been (killed|released)/ )
-    {
-#      ASM::Util->dprint('Got kill/release successful from NickServ!', 'snotice');
-      $conn->nick( $::settings->{nick} );
-    }
-    elsif ($event->{args}->[0] =~ /has been regained/ )
-    {
-#      ASM::Util->dprint('Got regain successful from nickserv!', 'snotice');
-    }
-    elsif ($event->{args}->[0] =~ /Password Incorrect/ )
-    {
-      die("NickServ password invalid.")
-    }
-  }
-  elsif ($event->{from} eq 'ChanServ!ChanServ@services.')
-  {
-    if ( $event->{args}->[0] =~ /^\[#/ ) {
-      return;
-    }
-    ASM::Util->dprint("ChanServ: $event->{args}->[0]", 'snotice');
-    if ( $event->{args}->[0] =~ /^All.*bans matching.*have been cleared on(.*)/)
-    {
-      $conn->join($1);
-    }
-  }
-}
-
-return 1;
-- 
cgit v1.2.3