X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=e6f96aad9c713c9577d53eb367b9e1eed3dab909;hb=02ab82e5a26f6055cc6379ef2ff1a16fc93be2e9;hp=1b390bdc7ca0b92ee52ff2d109bad7730d9f00d4;hpb=e6a53556f10b5d2f831dcd7b83655430c9b1a137;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index 1b390bdc..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";
@@ -426,7 +432,7 @@ if (! $conn) {
 $SIG{'INT'} = \&sig_term;
 $SIG{'TERM'} = \&sig_term;
 #$SIG{'WINCH'} = \&do_resize;
-$SIG{'HUP'} = 'IGNORE';
+$SIG{'HUP'} = \&sig_term;
 
 do_initscr();