reconnect if join fails

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@336 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index 076cb8279a518b47fbc971f4d5abc6949045a558..909da29cfb81693e6849f63e37596fe7c6b6af2c 100644 (file)
--- a/src/IRC/Irc.pl
+++ b/src/IRC/Irc.pl
@@ -350,7 +350,10 @@ sub joinchan {
     if (&validChan($chan)) {
        &status("join: already on $chan");
     } else {
-       $conn->join($chan);
+       if (!$conn->join($chan)) {
+           &DEBUG("join failed. trying connect!");
+           $conn->connect();
+       }
     }
 }