added ssid handling

[spider.git] / perl / console.pl

diff --git a/perl/console.pl b/perl/console.pl
index bfd7700da0a011442e2822b97433533d27f45c0c..e6f96aad9c713c9577d53eb367b9e1eed3dab909 100755 (executable)
--- 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";