X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=d5224cf9900c8db9d1d6e75dc6a103ad08fac545;hb=5947a205b3f36462fc1fe5ed5a08c7d8293ab744;hp=e6f96aad9c713c9577d53eb367b9e1eed3dab909;hpb=a57ea9d5501f6d319a8cbfff997bad077cc31010;p=spider.git diff --git a/perl/console.pl b/perl/console.pl index e6f96aad..d5224cf9 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -104,7 +104,7 @@ sub cease { my $sendz = shift; if ($conn && $sendz) { - $conn->send_now("Z$call|bye...\n"); + $conn->send_now("Z$call|bye..."); } endwin(); dbgclose(); @@ -438,9 +438,9 @@ 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);