Changeset a38becd for perl

Timestamp:

Aug 8, 2013, 2:38:50 PM (11 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Branches:

master, release-1.10

Children:

120dac7

Parents:

4f7b1f4

git-author:

Jason Gross <jgross@mit.edu> (05/27/11 17:39:59)

git-committer:

Edward Z. Yang <ezyang@mit.edu> (08/08/13 14:38:50)

Message:

Added a perl hook for :away

Note: The sepbar no longer distinguishes between AWAY, A-AWAY, and
Z-AWAY.

File:

• perl/lib/BarnOwl/Hooks.pm (modified) (4 diffs)

perl/lib/BarnOwl/Hooks.pm

@@ -57 +57 @@
 from every function registered with this hook will be appended and
 displayed in a popup window, with zephyr formatting parsed.
+
+=item $awayOn
+
+Called, for all protocol handlers, to go away, with the away message,
+if any.
+
+=item $awayOff
+
+Called, for all protocol handlers, to come back from away.
+
+=item $getIsAway
+
+Called to check away status for all protocol handlers.  Protocol
+handlers should return a true value if any account of the user is away
+for the given protocol, and a false value otherwise.
 
 =item $getQuickstart
@@ -75 +90 @@
                     $receiveMessage $newMessage
                     $mainLoop $getBuddyList
+                    $awayOn $awayOff $getIsAway
                     $getQuickstart);
 
@@ -88 +104 @@
 our $getBuddyList = BarnOwl::Hook->new;
 our $getQuickstart = BarnOwl::Hook->new;
+our $awayOn = BarnOwl::Hook->new;
+our $awayOff = BarnOwl::Hook->new;
+our $getIsAway = BarnOwl::Hook->new;
 
 # Internal startup/shutdown routines called by the C code
@@ -201 +220 @@
 }
 
+sub _away_on {
+    $awayOn->run(@_);
+}
+
+sub _away_off {
+    $awayOff->run();
+}
+
+sub _get_is_away {
+    my @is_away = grep { $_ } $getIsAway->run();
+    return scalar @is_away;
+}
+
 sub _new_command {
     my $command = shift;