Changeset 5551208

Timestamp:

Jan 10, 2007, 3:05:44 PM (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:

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:

• perl/modules/jabber.pl (modified) (2 diffs)

perl/modules/jabber.pl

@@ -127 +127 @@
 
 sub onStart {
-    if ( eval { \&BarnOwl::queue_message } ) {
+    if ( *BarnOwl::queue_message{CODE} ) {
         register_owl_commands();
         push @::onMainLoop,     sub { owl_jabber::onMainLoop(@_) };
@@ -921 +921 @@
         direction => 'in');
 
-    $props{body} = "The user ($from) wants to subscribe to your ($to) presence.\nReply (r) will authorize, reply-sender (R) will deny.";
-    $props{replycmd} = "jroster auth $from -a $to";
-    $props{replysendercmd} = "jroster deauth $from -a $to";
+    $props{body} = "Allow user ($from) to subscribe to your ($to) presence?\n" .
+                   "(Answer with the `yes' or `no' commands)";
+    $props{yescommand} = "jroster auth $from -a $to";
+    $props{nocommand} = "jroster deauth $from -a $to";
+    $props{question} = "true";
     BarnOwl::queue_message(BarnOwl::Message->new(%props));
 }