projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index 1b390bdc7ca0b92ee52ff2d109bad7730d9f00d4..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;
$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";
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{'INT'} = \&sig_term;
$SIG{'TERM'} = \&sig_term;
#$SIG{'WINCH'} = \&do_resize;
-$SIG{'HUP'} =
'IGNORE'
;
+$SIG{'HUP'} =
\&sig_term
;
do_initscr();
do_initscr();