X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=e6f96aad9c713c9577d53eb367b9e1eed3dab909;hb=a57ea9d5501f6d319a8cbfff997bad077cc31010;hp=bfd7700da0a011442e2822b97433533d27f45c0c;hpb=7de34899527cbc4dfacdcc6452926b3d2d73792c;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index bfd7700d..e6f96aad 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -402,6 +402,12 @@ sub rec_stdin
 
 $call = uc shift @ARGV if @ARGV;
 $call = uc $myalias if !$call;
+my ($scall, $ssid) = split /-/, $call;
+$ssid = undef unless $ssid && $ssid =~ /^\d+$/;  
+if ($ssid) {
+	$ssid = 15 if $ssid > 15;
+	$call = "$scall-$ssid";
+}
 
 if ($call eq $mycall) {
 	print "You cannot connect as your cluster callsign ($mycall)\n";