Changes in perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm [892568b:f032974]

File:

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

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

@@ -581 +581 @@
       or die("Usage: jmuc join MUC [-p password] [-a account]");
 
-    die("Error: Must specify a fully-qualified MUC name (e.g. barnowl\@conference.mit.edu)\n")
-        unless $muc =~ /@/;
     $muc = Net::Jabber::JID->new($muc);
     $jid = Net::Jabber::JID->new($jid);
@@ -588 +586 @@
 
     $conn->getConnectionFromJID($jid)->MUCJoin(JID      => $muc,
-                                               Password => $password,
-                                               History  => {
-                                                   MaxChars => 0
-                                                  });
+                                                  Password => $password,
+                                                  History  => {
+                                                      MaxChars => 0
+                                                     });
     return;
 }
@@ -601 +599 @@
     die("Usage: jmuc part MUC [-a account]") unless $muc;
 
-    if($conn->getConnectionFromJID($jid)->MUCLeave(JID => $muc)) {
-        queue_admin_msg("$jid has left $muc.");
-    } else {
-        die("Error: Not joined to $muc");
-    }
+    $conn->getConnectionFromJID($jid)->MUCLeave(JID => $muc);
+    queue_admin_msg("$jid has left $muc.");
 }
 
@@ -644 +639 @@
     my $m = shift;
     my @jids = $m->Presence();
-
-    my $presence = "JIDs present in " . $m->BaseJID;
-    if($m->Anonymous) {
-        $presence .= " [anonymous MUC]";
-    }
-    $presence .= "\n\t";
-    $presence .= join("\n\t", map {pp_jid($m, $_);} @jids) . "\n";
-    return $presence;
-}
-
-sub pp_jid {
-    my ($m, $jid) = @_;
-    my $nick = $jid->GetResource;
-    my $full = $m->GetFullJID($jid);
-    if($full && $full ne $nick) {
-        return "$nick ($full)";
-    } else {
-        return "$nick";
-    }
+    return "JIDs present in " . $m->BaseJID . "\n\t"
+      . join("\n\t", map {$_->GetResource}@jids) . "\n";
 }
 
@@ -926 +904 @@
                               sid => $sid } );
     $jhash{type} = 'admin';
-    
     BarnOwl::queue_message( BarnOwl::Message->new(%jhash) );
 }
@@ -1157 +1134 @@
     }
     elsif ( $jtype eq 'normal' ) {
-        $props{replycmd}  = "";
+        $props{replycmd}  = undef;
         $props{private} = 1;
     }
     elsif ( $jtype eq 'headline' ) {
-        $props{replycmd} = "";
+        $props{replycmd} = undef;
     }
     elsif ( $jtype eq 'error' ) {
-        $props{replycmd} = "";
+        $props{replycmd} = undef;
         $props{body}     = "Error "
           . $props{error_code}