Changeset d0b3a40 for perl


Ignore:
Timestamp:
Dec 24, 2006, 6:23:29 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:
bfbf590
Parents:
72bcca3
Message:
 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
 r15872@phanatique:  nelhage | 2006-12-24 18:22:20 -0500
 Missed one more change
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    r5c9c27d rd0b3a40  
    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;
     
    363363        }
    364364            else {
    365                 ${ $conn->getRosterFromJidStr($jidStr) }->fetch();
     365                $conn->getRosterFromJidStr($jidStr)->fetch();
    366366                $client->PresenceSend( priority => 1 );
    367367                queue_admin_msg("Connected to jabber as $jidStr");
Note: See TracChangeset for help on using the changeset viewer.