X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=594bc67eea73c0c8762b1c6598a455616b50ba52;hb=bca5cd40374f12da5e0d46980e54bffc61fdc9c9;hp=cec17ab4495b5fc2e14833df17cf2b6b7de174f6;hpb=ce2e3045bad021ba833c91dcc45b779a57752960;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index cec17ab4..594bc67e 100755
--- 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;
 
@@ -137,7 +138,7 @@ sub measure
 # display the top screen
 sub show_screen
 {
-	if ($spos >= @shistory - 1) {
+	if ($spos == @shistory - 1) {
 
 		# if we really are scrolling thru at the end of the history
 		my $line = $shistory[$spos];
@@ -176,7 +177,10 @@ sub show_screen
 	}
     my $shl = @shistory;
 	my $add = "-$spos-$shl";
-    $scr->addstr(LINES()-4, 0, '-' x (COLS() - (length($call) + length($add))));
+    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;
@@ -188,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();
 }
 
@@ -427,12 +433,13 @@ Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);
 for (;;) {
 	my $t;
 	Msg->event_loop(1, 1);
-	$top->refresh() if $top->is_wintouched;
-	$bot->refresh();
 	$t = time;
 	if ($t > $lasttime) {
+		show_screen();
 		$lasttime = $t;
 	}
+	$top->refresh() if $top->is_wintouched;
+	$bot->refresh();
 }
 
 exit(0);