added auto ping and obs count to dxchan

[spider.git] / perl / console.pl

diff --git a/perl/console.pl b/perl/console.pl
index 8a1c8719f8b7f24d1423c26f328c154c242e6714..887600e31ee6438ca9f96188b13fd5c2e60b5d93 100755 (executable)
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -188,9 +188,11 @@ sub show_screen
 # add a line to the end of the top screen
 sub addtotop
 {
-       my $inbuf = shift;
-       push @shistory, $inbuf;
-       shift @shistory if @shistory > $maxshist;
+       while (@_) {
+               my $inbuf = shift;
+               push @shistory, $inbuf;
+               shift @shistory if @shistory > $maxshist;
+       }
        show_screen();
 }
 
@@ -426,7 +428,7 @@ Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);
 
 for (;;) {
        my $t;
-       Msg->event_loop(1, 0.010);
+       Msg->event_loop(1, 1);
        $top->refresh() if $top->is_wintouched;
        $bot->refresh();
        $t = time;