Changeset bc7037c for perl/modules/Jabber

Timestamp:

Jan 13, 2009, 2:07:58 PM (16 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

Branches:

master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

e8c6d8f

Parents:

e9708d2

Message:

Ensure that at least one account is connected to Jabber before trying
to disconnect any. If not, return a helpful error message.

Reported by: yoz

File:

• perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm (modified) (1 diff)

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

@@ -446 +446 @@
 
 sub cmd_logout {
+    return "You are not logged into jabber." unless ($conn->connected() > 0);
     # Logged into multiple accounts
     if ( $conn->connected() > 1 ) {