Changeset 5551208 for perl


Ignore:
Timestamp:
Jan 10, 2007, 3:05:44 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:
db0899b
Parents:
f4d32cd
git-author:
Nelson Elhage <nelhage@mit.edu> (01/10/07 15:03:10)
git-committer:
Nelson Elhage <nelhage@mit.edu> (01/10/07 15:05:44)
Message:
Making authorizing/denying subscriptions use yes/no
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/jabber.pl

    rd609dd6 r5551208  
    127127
    128128sub onStart {
    129     if ( eval { \&BarnOwl::queue_message } ) {
     129    if ( *BarnOwl::queue_message{CODE} ) {
    130130        register_owl_commands();
    131131        push @::onMainLoop,     sub { owl_jabber::onMainLoop(@_) };
     
    921921        direction => 'in');
    922922
    923     $props{body} = "The user ($from) wants to subscribe to your ($to) presence.\nReply (r) will authorize, reply-sender (R) will deny.";
    924     $props{replycmd} = "jroster auth $from -a $to";
    925     $props{replysendercmd} = "jroster deauth $from -a $to";
     923    $props{body} = "Allow user ($from) to subscribe to your ($to) presence?\n" .
     924                   "(Answer with the `yes' or `no' commands)";
     925    $props{yescommand} = "jroster auth $from -a $to";
     926    $props{nocommand} = "jroster deauth $from -a $to";
     927    $props{question} = "true";
    926928    BarnOwl::queue_message(BarnOwl::Message->new(%props));
    927929}
Note: See TracChangeset for help on using the changeset viewer.