From f52c9bd6e6e018ff0c45f1dea4ded2aeb4ae1427 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Fri, 29 Jun 2007 02:21:38 +0000
Subject: lots of modularization done, needs testing and is unstable

---
 modules/services.pl | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'modules/services.pl')

diff --git a/modules/services.pl b/modules/services.pl
index c70b9ca..e80923a 100644
--- a/modules/services.pl
+++ b/modules/services.pl
@@ -1,8 +1,16 @@
+package ASM::Services;
 use warnings;
 use strict;
 
+sub new
+{
+  my $self = {};
+  bless($self);
+  return $self;
+}
+
 sub doServices {
-  my ($conn, $event) = @_;
+  my ($self, $conn, $event) = @_;
   if ($event->{from} eq 'NickServ!NickServ@services.')
   {
     print "NickServ: $event->{args}->[0]\n";
@@ -28,7 +36,7 @@ sub doServices {
     print "ChanServ: $event->{args}->[0] \n";
     if ($event->{args}->[0] =~ /You are already opped on \[.(.*).\]/)
     {
-      doQueue($conn, $1);
+      $::oq->doQueue($conn, $1);
     }
     elsif ( $event->{args}->[0] =~ /^All.*bans matching.*have been cleared on(.*)/)
     {
-- 
cgit v1.2.3