From 3ce0003c9e8b0004708545123c8b4e07a5c16ba5 Mon Sep 17 00:00:00 2001
From: Matthew Barksdale <mattwb65@gmail.com>
Date: Sat, 5 Mar 2011 15:52:11 -0500
Subject: [PATCH] We should really check for password too here...

---
 modules/SASLAuth.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/modules/SASLAuth.pm b/modules/SASLAuth.pm
index 2a59167..6580926 100644
--- a/modules/SASLAuth.pm
+++ b/modules/SASLAuth.pm
@@ -18,7 +18,7 @@ sub _init
     # Add sasl to supported CAP for servers configured with SASL.
     my %servers = conf_get('server');
     foreach my $svr (keys %servers) {
-        if (conf_get("server:$svr:sasl_username")) { $Proto::IRC::cap{$svr} .= ' sasl'; }
+        if (conf_get("server:$svr:sasl_username") and conf_get("server:$svr:sasl_password")) { $Proto::IRC::cap{$svr} .= ' sasl'; }
     }
     # Hook for when CAP ACK sasl is received.
     hook_add('on_capack', 'sasl.cap', \&M::SASLAuth::handle_capack) or return;