lots of modularization done, needs testing and is unstable

1 files changed, 10 insertions, 2 deletions

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(.*)/)
     {