* Bug fixes.

* Added mod_exists() to API::Std.
* Added SASL support with modules/SASLAuth.

src/API/Std.pm

@@ -55,6 +55,15 @@ sub mod_init
 	}
 }
 
+# Check if a module exists.
+sub mod_exists
+{
+	my ($name) = @_;
+	
+	return 1 if defined $MODULE{$name};
+	return 0;
+}
+
 # Void a module.
 sub mod_void
 {

src/Parser/IRC.pm

@@ -57,6 +57,12 @@ sub ircparse
 			# send a PONG.
 			Auto::socksnd($svr, "PONG ".$ex[1]);
 		}
+		# If it's AUTHENTICATE
+		elsif ($ex[0] eq 'AUTHENTICATE') {
+			if (API::Std::mod_exists("SASLAuth")) {
+				m_SASLAuth::handle_authenticate($svr, @ex);
+			}
+		}
 		else {
 			# otherwise, check %RAWC for ex[1].
 			if (defined $RAWC{$ex[1]}) {