Changeset 8da4e96 for perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

Timestamp:

Oct 2, 2011, 3:38:25 PM (13 years ago)

Author:

Alex Dehnert <adehnert@mit.edu>

Children:

89701bb

Parents:

f34728b

Message:

Add command to get a buddy's status

This could be used by a user directly, though it's probably more likely
to be used by a module author of some sort.

File:

• perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm (modified) (4 diffs)

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

@@ -171 +171 @@
 our $showOffline = 0;
 
+sub blist_getBuddyStatus {
+    my $jid = shift;
+    my $buddy = shift;
+    my $roster = $conn->getRosterFromJID($jid);
+    my %jq  = $roster->query($buddy);
+    my $res = $roster->resource($buddy);
+    if ($res) {
+        my %rq = $roster->resourceQuery( $buddy, $res );
+        return $rq{show} ? $rq{show} : 'online';
+    } else {
+        return "unknown";
+    }
+}
+
 sub blist_listBuddy {
     my $roster = shift;
@@ -303 +317 @@
             summary => "Show your Jabber roster.",
             usage   => "jlist"
+        }
+    );
+    BarnOwl::new_command(
+        jabber_get_buddy_status => \&cmd_jabber_get_buddy_status,
+        {
+            summary => "Get the status of a given buddy.",
+            usage   => "jabber_get_buddy_status [-a account] buddy"
         }
     );
@@ -859 +880 @@
 }
 
+sub cmd_jabber_get_buddy_status {
+    my $cmd = shift;
+    local @ARGV = @_;
+    my $getopt = Getopt::Long::Parser->new;
+    my ($jid, $buddy);
+
+    $getopt->configure('no_getopt_compat');
+    $getopt->getoptions(
+        'account=s' => \$jid,
+    );
+    $jid ||= defaultJID();
+    if ($jid) {
+        $jid = resolveConnectedJID($jid);
+        return unless $jid;
+    }
+    else {
+        die("You must specify an account with -a <jid>\n");
+    }
+    $buddy = shift @ARGV;
+    if(!$buddy) {
+        die("You must specify a JID to get the status of.\n");
+    }
+    my $buddy_jid = resolveDestJID($buddy, $jid);
+    return blist_getBuddyStatus($jid, $buddy_jid);
+}
+
 
 sub jroster_sub {
@@ -1482 +1529 @@
 }
 
+sub complete_jabber_get_buddy_status {
+    my $ctx = shift;
+    return complete_flags($ctx,
+                          [qw()],
+                          {
+                              "-a" => \&complete_account,
+                          },
+                          \&complete_user_or_muc
+        );
+}
+
 BarnOwl::Completion::register_completer(jwrite => sub { BarnOwl::Module::Jabber::complete_jwrite(@_) });
+BarnOwl::Completion::register_completer(jabber_get_buddy_status => sub { BarnOwl::Module::Jabber::complete_jabber_get_buddy_status(@_) });
 
 1;