Changes in perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm [81312e4:879e7e94]

File:

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

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

@@ -25 +25 @@
 use Net::DNS;
 use Getopt::Long;
-
-use utf8;
 
 our $VERSION = 0.1;
@@ -137 +135 @@
 }
 
+our $showOffline = 0;
+
 sub blist_listBuddy {
     my $roster = shift;
@@ -152 +152 @@
         $blistStr .= " [" . ( $rq{show} ? $rq{show} : 'online' ) . "]";
         $blistStr .= " " . $rq{status} if $rq{status};
-        $blistStr = BarnOwl::Style::boldify($blistStr);
+        $blistStr = BarnOwl::Style::boldify($blistStr) if $showOffline;
     }
     else {
-        return '' if (BarnOwl::getvar('jabber:show_offline_buddies') eq 'off');
+        return '' unless $showOffline;
         if ($jq{ask}) {
             $blistStr .= " [pending]";
@@ -198 +198 @@
 
 sub onGetBuddyList {
+    $showOffline = BarnOwl::getvar('jabber:show_offline_buddies') eq 'on';
     my $blist = "";
     foreach my $jid ($conn->getJIDs()) {
@@ -375 +376 @@
                     $vars{jlogin_havepass} = 1;
                     $conn->removeConnection($jidStr);
-                    BarnOwl::start_password("Password for $jidStr: ", \&do_login );
+                    BarnOwl::start_password( "Password for $jidStr: ", \&do_login );
                     return "";
                 }
@@ -479 +480 @@
     }
     else {
-      $to = shift @ARGV;
+        $to = shift @ARGV;
     }
 
@@ -523 +524 @@
     $cmd .= " -t $jwrite_thread" if $jwrite_thread;
     $cmd .= " -s $jwrite_subject" if $jwrite_subject;
-
-    BarnOwl::start_edit_win($cmd, \&process_owl_jwrite );
+    BarnOwl::start_edit_win( $cmd, \&process_owl_jwrite );
 }