Changeset 30c735c for perl/modules

Timestamp:

Jan 11, 2007, 5:29:14 PM (17 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

31cf416

Parents:

004caa5

git-author:

Nelson Elhage <nelhage@mit.edu> (01/11/07 16:18:17)

git-committer:

Nelson Elhage <nelhage@mit.edu> (01/11/07 17:29:14)

Message:

Adding a BarnOwl::Jabber::Connection class where we can add extensions
to Net::Jabber that we need.

File:

• perl/modules/jabber.pl (modified) (3 diffs)

perl/modules/jabber.pl

@@ -28 +28 @@
 ################################################################################
 ################################################################################
+package BarnOwl::Jabber::Connection;
+
+use base qw(Net::Jabber::Client);
+
+sub new {
+    my $class = shift;
+
+    my %args = ();
+    if(BarnOwl::getvar('debug') eq 'on') {
+        $args{debuglevel} = 1;
+        $args{debugfile} = 'jabber.log';
+    }
+    my $self = $class->SUPER::new(%args);
+    return $self
+}
+
+################################################################################
+################################################################################
 package BarnOwl::Jabber::ConnectionManager;
 sub new {
@@ -38 +56 @@
     my $jidStr = shift;
 
-    my %args = ();
-    if(BarnOwl::getvar('debug') eq 'on') {
-        $args{debuglevel} = 1;
-        $args{debugfile} = 'jabber.log';
-    }
-    my $client = Net::Jabber::Client->new(%args);
+    my $client = BarnOwl::Jabber::Connection->new;
 
     $self->{Client}->{$jidStr} = $client;
@@ -120 +133 @@
 ################################################################################
 
-package owl_jabber;
+package BarnOwl::Jabber;
 
 our $conn = new BarnOwl::Jabber::ConnectionManager unless $conn;;