only refresh the screen for time every minute in console.pl

[spider.git] / perl / console.pl

diff --git a/perl/console.pl b/perl/console.pl
index 97c0864c3e89e49b23b4627c4a31724618cfdcd8..8f028aa7ab9d7e8b2e9bde85e2386b1f66b8caf0 100755 (executable)
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -28,6 +28,7 @@ BEGIN {
 use Msg;
 use DXVars;
 use DXDebug;
+use DXUtil;
 use IO::File;
 use Curses;
 
@@ -81,6 +82,7 @@ sub do_initscr
        $scr->refresh();
        
        $pagel = LINES()-4;
+       $mycallcolor = COLOR_PAIR(1) unless $mycallcolor;
 }
 
 sub do_resize
@@ -174,8 +176,14 @@ sub show_screen
                $spos = @shistory if $spos > @shistory;
        }
     my $shl = @shistory;
-       my $add = "$call-$spos-$shl";
-    $scr->addstr(LINES()-4, 0, '-' x (COLS() - length $add));
+       my $add = "-$spos-$shl";
+    my $time = ztime(time);
+       my $str =  "-" . $time . '-' x (COLS() - (length($call) + length($add) + length($time) + 1));
+       $scr->addstr(LINES()-4, 0, $str);
+       
+       $scr->attrset($mycallcolor) if $has_colors;
+       $scr->addstr("$call");
+       $scr->attrset(COLOR_PAIR(0)) if $has_colors;
     $scr->addstr($add);
        $scr->refresh();
 #      $top->refresh();
@@ -184,9 +192,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();
 }
 
@@ -420,15 +430,21 @@ $conn->send_now("I$call|set/nobeep");
 
 Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);
 
+my $lastmin = 0;
 for (;;) {
        my $t;
-       Msg->event_loop(1, 0.010);
-       $top->refresh() if $top->is_wintouched;
-       $bot->refresh();
+       Msg->event_loop(1, 1);
        $t = time;
        if ($t > $lasttime) {
+               my ($min)= (gmtime($t))[1];
+               if ($min != $lastmin) {
+                       show_screen();
+                       $lastmin = $min;
+               }
                $lasttime = $t;
        }
+       $top->refresh() if $top->is_wintouched;
+       $bot->refresh();
 }
 
 exit(0);