Shutdown if there are no more IRC connections.

bin/auto

@@ -476,6 +476,16 @@ while (1) {
 			err(2, "Lost connection to $sockid!", 0);
 			$SELECT->remove($sock);
             delete $SOCKET{$sockid};
+            if (!keys %SOCKET) {
+                # No more connections, stop the program.
+                $Auto::DB->disconnect;
+                API::Std::event_run('on_shutdown');
+                if (-e "$Bin/auto.pid") { unlink "$Bin/auto.pid"; }
+                dbug '* No more IRC connections, shutting down.';
+                alog '* No more IRC connections, shutting down.';
+                sleep 1;
+                exit;
+            }
             next;
 		}