projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rewrote parts of Msg.pm and client.c so that the messages no longer use
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index 1b390bdc7ca0b92ee52ff2d109bad7730d9f00d4..d5224cf9900c8db9d1d6e75dc6a103ad08fac545 100755
(executable)
--- a/
perl/console.pl
+++ b/
perl/console.pl
@@
-104,7
+104,7
@@
sub cease
{
my $sendz = shift;
if ($conn && $sendz) {
{
my $sendz = shift;
if ($conn && $sendz) {
- $conn->send_now("Z$call|bye...
\n
");
+ $conn->send_now("Z$call|bye...");
}
endwin();
dbgclose();
}
endwin();
dbgclose();
@@
-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,15
+432,15
@@
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();
$SIG{__DIE__} = \&sig_term;
do_initscr();
$SIG{__DIE__} = \&sig_term;
-$conn->send_
now
("A$call|$connsort");
-$conn->send_
now
("I$call|set/page $maxshist");
-$conn->send_
now
("I$call|set/nobeep");
+$conn->send_
later
("A$call|$connsort");
+$conn->send_
later
("I$call|set/page $maxshist");
+$conn->send_
later
("I$call|set/nobeep");
Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);
Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);