put in input filter for ann and output filters for ann/wwv/spots

[spider.git] / perl / console.pl

diff --git a/perl/console.pl b/perl/console.pl
index 97c0864c3e89e49b23b4627c4a31724618cfdcd8..8a1c8719f8b7f24d1423c26f328c154c242e6714 100755 (executable)
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -81,6 +81,7 @@ sub do_initscr
        $scr->refresh();
        
        $pagel = LINES()-4;
+       $mycallcolor = COLOR_PAIR(1) unless $mycallcolor;
 }
 
 sub do_resize
@@ -174,8 +175,11 @@ 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";
+    $scr->addstr(LINES()-4, 0, '-' x (COLS() - (length($call) + length($add))));
+       $scr->attrset($mycallcolor) if $has_colors;
+       $scr->addstr("$call");
+       $scr->attrset(COLOR_PAIR(0)) if $has_colors;
     $scr->addstr($add);
        $scr->refresh();
 #      $top->refresh();