We have lift off, we are CONNECTED. We aren't doing much but we can

[spider.git] / perl / client.pl

diff --git a/perl/client.pl b/perl/client.pl
index f44120f2ef09631ce82a0395d0970c45899c257f..845414339c7bf3e2cae040cc43c4993ee9ca5acb 100755 (executable)
--- 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);