X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2Fclient.pl;h=845414339c7bf3e2cae040cc43c4993ee9ca5acb;hp=f44120f2ef09631ce82a0395d0970c45899c257f;hb=1cf4bd14be226274d5deb05da8480ab91a5dac52;hpb=20b0104deaeab77fa7ab1444dbcedfcdbf5865f8

diff --git a/perl/client.pl b/perl/client.pl
index f44120f2..84541433 100755
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -143,11 +143,15 @@ sub rec_stdin
 }
 
 $call = uc shift @ARGV;
-$call = uc $mycall if !$call; 
+$call = uc $myalias if !$call; 
 $connsort = lc shift @ARGV;
 $connsort = 'local' if !$connsort;
 $mode = ($connsort =~ /^ax/o) ? 1 : 2;
 setmode();
+if ($call eq $mycall) {
+  print "You cannot connect as your cluster callsign ($mycall)", $nl;
+  cease(0);
+}
 
 #select STDOUT; $| = 1;
 STDOUT->autoflush(1);