Changeset 678f607 for perl

Timestamp:

Jan 23, 2012, 3:39:00 PM (13 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

master, release-1.10, release-1.9

Children:

8135737, 7eaa83b

Parents:

ecfbdcc

git-author:

Alex Dehnert <adehnert@mit.edu> (10/02/11 01:31:54)

git-committer:

David Benjamin <davidben@mit.edu> (01/23/12 15:39:00)

Message:

Add completion for jabberlogout

File:

• perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm (modified) (1 diff)

perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

@@ -1482 +1482 @@
 }
 
+sub complete_jabberlogout {
+    my $ctx = shift;
+    if($ctx->word == 1) {
+        return ("-A", complete_account() );
+    } else {
+        return ();
+    }
+}
+
 BarnOwl::Completion::register_completer(jwrite => sub { BarnOwl::Module::Jabber::complete_jwrite(@_) });
+BarnOwl::Completion::register_completer(jabberlogout => sub { BarnOwl::Module::Jabber::complete_jabberlogout(@_) });
 
 1;