Changeset cb769bb for perl


Ignore:
Timestamp:
Dec 26, 2006, 1:05:26 AM (18 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:
446aa2b
Parents:
20eb22c
Message:
 r15874@phanatique:  nelhage | 2006-12-24 18:25:33 -0500
 Don't quit if we can't contact the hostmaster. 
 r15884@phanatique:  nelhage | 2006-12-24 18:56:03 -0500
 Respect the displayoutgoing variable
 r15885@phanatique:  nelhage | 2006-12-24 20:10:44 -0500
 You can now write filters based off arbitrary message attributes
 r15887@phanatique:  nelhage | 2006-12-24 22:59:39 -0500
  r15886@phanatique (orig r476):  nelhage | 2006-12-24 22:59:10 -0500
   r24493@heretique:  nelhage | 2006-12-24 22:59:02 -0500
   Moving zephyr initialization later, so that zephyr works again
  
 
 r15891@phanatique:  nelhage | 2006-12-25 14:40:08 -0500
 * perl messages hashes use `private', not `isprivate'
 * get rid of a perl warning if login fails
 r15900@phanatique:  nelhage | 2006-12-25 21:04:15 -0500
 Merging in filter regression tests from my local branch.
 r15926@phanatique:  nelhage | 2006-12-26 00:57:07 -0500
  r15901@phanatique:  nelhage | 2006-12-25 21:08:47 -0500
  Base framework for the filter rewrite system. Only understands regexes and true/false so far.
 
 r15927@phanatique:  nelhage | 2006-12-26 00:57:08 -0500
  r15902@phanatique:  nelhage | 2006-12-25 23:03:33 -0500
  support for negation and parentheses
 
 r15928@phanatique:  nelhage | 2006-12-26 00:57:08 -0500
  r15924@phanatique:  nelhage | 2006-12-26 00:16:30 -0500
  Now passing all tests except for recursion detection
 
 r15929@phanatique:  nelhage | 2006-12-26 00:57:08 -0500
  r15925@phanatique:  nelhage | 2006-12-26 00:52:09 -0500
  Checking for filter recursion loops
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    r20eb22c rcb769bb  
    352352
    353353            if ( $result[0] ne 'ok' ) {
    354             if ( !$vars{jlogin_havepass} && $result[0] == 401 ) {
     354            if ( !$vars{jlogin_havepass} && $result[0] eq '401' ) {
    355355                $vars{jlogin_havepass} = 1;
    356356                $conn->removeConnection($jidStr);
     
    809809
    810810    my $m = j2o( $j, { direction => 'out' } );
    811     if ( $vars{jwrite}{type} ne 'groupchat' ) {
    812 
    813         #XXX TODO: Check for displayoutgoing.
     811    if ( $vars{jwrite}{type} ne 'groupchat' && owl::getvar('displayoutgoing') eq 'on') {
    814812        owl::queue_message($m);
    815813    }
     
    10131011        $props{replycmd} .=
    10141012          " -a " . ( ( $dir eq 'out' ) ? $props{from} : $props{to} );
    1015         $props{isprivate} = 1;
     1013        $props{private} = 1;
    10161014    }
    10171015    elsif ( $jtype eq 'groupchat' ) {
     
    10321030    elsif ( $jtype eq 'normal' ) {
    10331031        $props{replycmd}  = undef;
    1034         $props{isprivate} = 1;
     1032        $props{private} = 1;
    10351033    }
    10361034    elsif ( $jtype eq 'headline' ) {
Note: See TracChangeset for help on using the changeset viewer.