use IO::File;
use Curses;
-use Carp qw{cluck};
-
use Console;
#
{
my $sendz = shift;
if ($conn && $sendz) {
- $conn->send_now("Z$call|bye...\n");
+ $conn->send_now("Z$call|bye...");
}
endwin();
dbgclose();
} elsif ($sort && $sort eq 'Z') { # end, disconnect, go, away .....
cease(0);
}
+ # ******************************************************
+ # ******************************************************
+ # any other sorts that might happen are silently ignored.
+ # ******************************************************
+ # ******************************************************
}
$top->refresh();
$lasttime = time;
$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);