X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=3ad62001253fc2f8e6b97103287d186749820a41;hb=36cf78e5660c745f32be2f1d63be738a0c537c48;hp=32c6cf5f109d9e2cd6911d5ece1ebe6634640b27;hpb=dc0193176be801c10a342dd7a2b2263cf0059c88;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index 32c6cf5f..3ad62001 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -534,10 +534,11 @@ $call = uc shift @ARGV if @ARGV;
 $call = uc $myalias unless $call;
 $node = uc $mycall unless $node;
 
+$call = normalise_call($call);
 my ($scall, $ssid) = split /-/, $call;
 $ssid = undef unless $ssid && $ssid =~ /^\d+$/;  
 if ($ssid) {
-	$ssid = 15 if $ssid > 15;
+	$ssid = 99 if $ssid > 99;
 	$call = "$scall-$ssid";
 }