X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=4cb4ea6455824f9ddb604194a5cdba625a216484;hb=1247daf765691411848e68517bd1bb59cdaf731f;hp=a735ca9a16b105d4cd4409f40c7c9de7d800b743;hpb=599b259cd306211ce8e049aa2a16c8a3fbbcb73e;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index a735ca9a..4cb4ea64 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -141,7 +141,12 @@ sub new_channel
 	my ($conn, $msg) = @_;
 	my ($sort, $call, $line) = DXChannel::decode_input(0, $msg);
 	return unless defined $sort;
-	
+
+	unless (is_callsign($call)) {
+		already_conn($conn, $call, DXM::msg($lang, "illcall", $call));
+		return;
+	}
+
 	# set up the basic channel info
 	# is there one already connected to me - locally? 
 	my $user = DXUser->get($call);