[336] in BarnOwl Developers
[D-O-H] r482 - in trunk: . owl/perl/modules
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:05:03 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
To: dirty-owl-hackers@mit.edu
From: nelhage@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Tue, 26 Dec 2006 01:00:34 -0500 (EST)
Author: nelhage
Date: 2006-12-26 01:00:34 -0500 (Tue, 26 Dec 2006)
New Revision: 482
Modified:
trunk/
trunk/owl/perl/modules/jabber.pl
Log:
r15871@phanatique: nelhage | 2006-12-24 18:19:26 -0500
Oops -- fix to make this actually run. No longer create jabber.log if debug mode is off
Property changes on: trunk
___________________________________________________________________
Name: svk:merge
- bb873fd7-8e23-0410-944a-99ec44c633eb:/local/d-o-h/trunk:15869
+ bb873fd7-8e23-0410-944a-99ec44c633eb:/local/d-o-h/trunk:15871
Modified: trunk/owl/perl/modules/jabber.pl
===================================================================
--- trunk/owl/perl/modules/jabber.pl 2006-12-26 05:59:20 UTC (rev 481)
+++ trunk/owl/perl/modules/jabber.pl 2006-12-26 06:00:34 UTC (rev 482)
@@ -38,12 +38,12 @@
my $self = shift;
my $jidStr = shift;
- my $client = Net::Jabber::Client->new(
- owl::getvar('debug') eq 'on'
- ? (debuglevel => ? 1 : 0,
- debugfile => 'jabber.log')
- : ()
- );
+ my %args = ();
+ if(owl::getvar('debug') eq 'on') {
+ $args{debuglevel} = 1;
+ $args{debugfile} = 'jabber.log';
+ }
+ my $client = Net::Jabber::Client->new(%args);
$self->{Client}->{$jidStr} = $client;
$self->{Roster}->{$jidStr} = $client->Roster();
