sub cease
{
my $sendz = shift;
-# if ($conn && $sendz) {
-# $conn->send_now("Z$call|bye...");
-# }
+ $conn->disconnect if $conn;
endwin();
dbgclose();
print @_ if @_;
exit(0);
}
+$conn->set_error(sub{cease(0)});
+
unless ($DB::VERSION) {
$SIG{'INT'} = \&sig_term;
my $lastmin = 0;
for (;;) {
my $t;
- Msg->event_loop(1, 0.1);
+ Msg->event_loop(10, 0.01);
$t = time;
if ($t > $lasttime) {
my ($min)= (gmtime($t))[1];