Changes in perl/lib/BarnOwl/Hooks.pm [120dac7:b8a3e00]

File:

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

perl/lib/BarnOwl/Hooks.pm

@@ -36 +36 @@
 Called before BarnOwl shutdown
 
-=item $wakeup
-
-Called, at most once per second, on user input
-
 =item $receiveMessage
 
@@ -61 +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
@@ -92 +73 @@
 
 our @EXPORT_OK = qw($startup $shutdown
-                    $wakeup
                     $receiveMessage $newMessage
                     $mainLoop $getBuddyList
-                    $awayOn $awayOff $getIsAway
                     $getQuickstart);
 
@@ -104 +83 @@
 our $startup = BarnOwl::Hook->new;
 our $shutdown = BarnOwl::Hook->new;
-our $wakeup = BarnOwl::Hook->new;
 our $receiveMessage = BarnOwl::Hook->new;
 our $newMessage = BarnOwl::Hook->new;
@@ -110 +88 @@
 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
@@ -200 +175 @@
 }
 
-sub _wakeup {
-    $wakeup->run;
-}
-
 sub _receive_msg {
     my $m = shift;
@@ -228 +199 @@
 sub _get_quickstart {
     return join("\n", $getQuickstart->run);
-}
-
-sub _away_on {
-    $awayOn->run(@_);
-}
-
-sub _away_off {
-    $awayOff->run();
-}
-
-sub _get_is_away {
-    my @is_away = grep { $_ } $getIsAway->run();
-    return scalar @is_away;
 }