Changeset 140d02a


Ignore:
Timestamp:
Dec 26, 2006, 1:00:34 AM (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:
20eb22c
Parents:
bed4ff1
git-author:
Nelson Elhage <nelhage@mit.edu> (12/24/06 18:19:26)
git-committer:
Nelson Elhage <nelhage@mit.edu> (12/26/06 01:00:34)
Message:
Oops -- fix to make this actually run. No longer create jabber.log if debug mode is off
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    rbed4ff1 r140d02a  
    3939    my $jidStr = shift;
    4040
    41     my $client = Net::Jabber::Client->new(
    42         owl::getvar('debug') eq 'on'
    43           ? (debuglevel =>  ? 1 : 0,
    44              debugfile => 'jabber.log')
    45           : ()
    46          );
     41    my %args = ();
     42    if(owl::getvar('debug') eq 'on') {
     43        $args{debuglevel} = 1;
     44        $args{debugfile} = 'jabber.log';
     45    }
     46    my $client = Net::Jabber::Client->new(%args);
    4747
    4848    $self->{Client}->{$jidStr} = $client;
Note: See TracChangeset for help on using the changeset viewer.