Changeset f1589b5 for perl/modules

Timestamp:

Jun 4, 2007, 10:30:39 PM (17 years ago)

Author:

Alejandro R. Sedeño <asedeno@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:

48609ce

Parents:

f1fc47f

Message:

Adding 3 variables for the Jabber module.

* jabber:show_offline_buddies (bool, default=true)

If false, only contacts in your roster whose presence you are
subscribed to, and happen to be online.

* jabber:auto_away_timeout    (int, default 5)
* jabber:auto_xa_timeout      (int, default 15)

The timeouts, in minutes, for setting your jabber accounts auto-away
and auto-extended-away. Set to 0 to disable. Even if xa < away, you
will not transition from xa -> away.

File:

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

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

@@ -37 +37 @@
             die("Not loading Jabber.par\n");
         }
-    }       
+    }
 }
 
@@ -68 +68 @@
         $BarnOwl::Hooks::getBuddyList->add(\&onGetBuddyList);
         $vars{show} = '';
+        BarnOwl::new_variable_bool("jabber:show_offline_buddies",
+                                   { default => 1,
+                                     summary => 'Show offline or pending buddies.'});
+        BarnOwl::new_variable_int("jabber:auto_away_timeout",
+                                  { default => 5,
+                                    summary => 'After minutes idle, auto away.',
+                                  });
+        BarnOwl::new_variable_int("jabber:auto_xa_timeout",
+                                  { default => 15,
+                                    summary => 'After minutes idle, auto extended away.'
+                                });
     } else {
         # Our owl doesn't support queue_message. Unfortunately, this
@@ -81 +92 @@
 
     $vars{status_changed} = 0;
+    my $auto_away = BarnOwl::getvar('jabber:auto_away_timeout');
+    my $auto_xa = BarnOwl::getvar('jabber:auto_xa_timeout');
     my $idletime = BarnOwl::getidletime();
-    if ($idletime >= 900 && $vars{show} eq 'away') {
+    if ($auto_xa != 0 && $idletime >= (60 * $auto_xa) && ($vars{show} eq 'away' || $vars{show} eq '' )) {
         $vars{show} = 'xa';
-        $vars{status} = 'Auto extended-away after 15 minutes idle.';
+        $vars{status} = 'Auto extended-away after '.$auto_xa.' minute'.($auto_xa == 1 ? '' : 's').' idle.';
         $vars{status_changed} = 1;
-    } elsif ($idletime >= 300 && $vars{show} eq '') {
+    } elsif ($auto_away != 0 && $idletime >= (60 * $auto_away) && $vars{show} eq '') {
         $vars{show} = 'away';
-        $vars{status} = 'Auto away after 5 minutes idle.';
+        $vars{status} = 'Auto away after '.$auto_away.' minute'.($auto_away == 1 ? '' : 's').' idle.';
         $vars{status_changed} = 1;
     } elsif ($idletime == 0 && $vars{show} ne '') {
@@ -140 +153 @@
     }
     else {
+        return '' unless BarnOwl::getvar('jabber:show_offline_buddies') != 'on';
         if ($jq{ask}) {
             $blistStr .= " [pending]";
@@ -195 +209 @@
         jabberlogin => \&cmd_login,
         {
-            summary => "Log into jabber", 
+            summary => "Log into jabber",
             usage   => "jabberlogin JID [PASSWORD]"
         }
@@ -379 +393 @@
     delete $vars{jlogin_connhash};
     delete $vars{jlogin_authhash};
- 
+
     return "";
 }