Changeset e979da9 for perl/modules


Ignore:
Timestamp:
Oct 16, 2008, 1:31:51 PM (15 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
Branches:
master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
3f3ee61
Parents:
d8671a1
Message:
We should never see a Byte-Order-Mark in XMPP bodies. If we do, strip
them out.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

    r293d5fa re979da9  
    11591159    $props{subject}    = $j->GetSubject() if ( $j->DefinedSubject() );
    11601160    $props{thread}     = $j->GetThread() if ( $j->DefinedThread() );
    1161     $props{body}       = $j->GetBody() if ( $j->DefinedBody() );
     1161    if ( $j->DefinedBody() ) {
     1162        $props{body}   = $j->GetBody();
     1163        $props{body}  =~ s/\xEF\xBB\xBF//g; # Strip stray Byte-Order-Marks.
     1164    }
    11621165    $props{error}      = $j->GetError() if ( $j->DefinedError() );
    11631166    $props{error_code} = $j->GetErrorCode() if ( $j->DefinedErrorCode() );
Note: See TracChangeset for help on using the changeset viewer.