-print "starting listener ...\n";
-Msg->new_server("$clusteraddr", $clusterport, \&login);
+use Listeners;
+
+dbg('err', "starting listeners ...");
+push @listeners, IntMsg->new_server("$clusteraddr", $clusterport, \&login);
+dbg('err', "Internal port: $clusteraddr $clusterport");
+for (@main::listen) {
+ push @listeners, ExtMsg->new_server($_->[0], $_->[1], \&login);
+ dbg('err', "External Port: $_->[0] $_->[1]");
+}
+
+# load bad words
+dbg('err', "load badwords: " . (BadWords::load or "Ok"));