From e69a98ce612592a78aca2a3ac4e2388a06059955 Mon Sep 17 00:00:00 2001 From: minima Date: Thu, 23 Nov 2006 16:01:42 +0000 Subject: [PATCH] add wrapping to overlength lines --- Changes | 2 ++ perl/console.pl | 12 ++++++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index 65df80a0..f7fe8c7c 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +23Nov06======================================================================= +1. added wrapping to over length lines in console.pl. 03Nov06======================================================================= 1. add CTY-1609 changes 2. add back Geo::Taf code with submitted mods diff --git a/perl/console.pl b/perl/console.pl index bc3ca0d6..88ffb927 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -34,6 +34,7 @@ use DXDebug; use IO::File; use Time::HiRes qw(gettimeofday tv_interval); use Curses 1.06; +use Text::Wrap; use Console; @@ -229,8 +230,13 @@ sub addtotop if ($inbuf =~ s/\x07+$//) { beep(); } - push @shistory, $inbuf; - shift @shistory if @shistory > $maxshist; + if (length $inbuf > $cols) { + $Text::Wrap::Columns = $cols; + push @shistory, wrap('',"\t", $inbuf); + } else { + push @shistory, $inbuf; + } + shift @shistory while @shistory > $maxshist; } show_screen(); } @@ -492,6 +498,8 @@ $conn->send_later("I$call|set/page $maxshist"); #Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin); +$Text::Wrap::Columns = $cols; + my $lastmin = 0; for (;;) { my $t; -- 2.43.0