Changeset 1c2e0b3 for perl/modules


Ignore:
Timestamp:
Feb 10, 2007, 10:30:11 PM (17 years ago)
Author:
Alejandro R. Sedeño <asedeno@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:
272a4a0
Parents:
a1bb198
Message:
Export owl_function_add_message and owl_function_queue_message to perl.
Use them in jabber.pl.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    r0c10a79 r1c2e0b3  
    10111011
    10121012    my $m = j2o( $j, { direction => 'out' } );
    1013     if ( $vars{jwrite}{type} ne 'groupchat' && BarnOwl::getvar('displayoutgoing') eq 'on') {
    1014         BarnOwl::queue_message($m);
     1013    if ( $vars{jwrite}{type} ne 'groupchat') {
     1014        BarnOwl::add_message($m);
    10151015    }
    10161016
     
    12921292sub queue_admin_msg {
    12931293    my $err = shift;
    1294     my $m   = BarnOwl::Message->new(
    1295         type      => 'admin',
    1296         direction => 'none',
    1297         body      => $err
    1298     );
    1299     BarnOwl::queue_message($m);
     1294    BarnOwl::admin_message("jabber.pl", $err);
    13001295}
    13011296
Note: See TracChangeset for help on using the changeset viewer.