From 6e80184b4c2c222a7ab1f7ededb9e9af2be9c236 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Mon, 28 Jun 1999 15:42:57 +0000
Subject: [PATCH] made the console.pl work with history and editing

---
 Changes         |   2 +
 perl/console.pl | 109 ++++++++++++++++++++++++++++++++++++++++++++----
 2 files changed, 104 insertions(+), 7 deletions(-)

diff --git a/Changes b/Changes
index 6dcfa6ed..e9b7a388 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+28Jun99=======================================================================
+1. console.pl now works with history and editting.
 27Jun99=======================================================================
 1. added WWV filtering
 2. added timeouts to for forwarding Messages, also added a waiting time for
diff --git a/perl/console.pl b/perl/console.pl
index 12192152..02a2e476 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -64,11 +64,12 @@ sub rec_socket
 		my ($sort, $call, $line) = $msg =~ /^(\w)(\S+)\|(.*)$/;
 		
 		if ($sort eq 'D') {
-			$top->addstr("$line\n");
+			$top->addstr("\n$line");
 		} elsif ($sort eq 'Z') { # end, disconnect, go, away .....
 			cease(0);
 		}	  
 	}
+	$top->refresh();
 	$lasttime = time; 
 }
 
@@ -84,14 +85,99 @@ sub rec_stdin
 	#  $prbuf =~ s/\n/\\n/;
 	#  print "sys: $r ($prbuf)\n";
 	if (defined $r) {
-		if ($r eq "\n" || $r eq "\r") {
+		if ($r eq KEY_ENTER || $r eq "\n" || $r eq "\r") {
+			
+			# save the lines
+			if ($inbuf) {
+				push @history, $inbuf if $inbuf;
+				shift @history if @history > $maxhist;
+				$histpos = @history;
+				$bot->move(0,0);
+				$bot->addstr(substr($inbuf, 0, COLS));
+			}
+		
+			# send it to the cluster
 			$inbuf = " " unless $inbuf;
-			$conn->send_later("I|$call|$inbuf");
+			$conn->send_later("I$call|$inbuf");
+			$inbuf = "";
+			$pos = $lth = 0;
+		} elsif ($r eq KEY_UP || $r eq KEY_PPAGE || $r eq "\020") {
+			if ($histpos > 0) {
+				--$histpos;
+				$inbuf = $history[$histpos];
+				$pos = $lth = length $inbuf;
+			} else {
+				beep();
+			}
+		} elsif ($r eq KEY_DOWN || $r eq KEY_NPAGE || $r eq "\016") {
+			if ($histpos < @history - 1) {
+				++$histpos;
+				$inbuf = $history[$histpos];
+				$pos = $lth = length $inbuf;
+			} else {
+				beep();
+			}
+		} elsif ($r eq KEY_LEFT || $r eq "\002") {
+			if ($pos > 0) {
+				--$pos;
+			} else {
+				beep();
+			}
+		} elsif ($r eq KEY_RIGHT || $r eq "\006") {
+			if ($pos < $lth) {
+				++$pos;
+			} else {
+				beep();
+			}
+		} elsif ($r eq KEY_HOME) {
+			$pos = 0;
+		} elsif ($r eq KEY_BACKSPACE || $r eq "\010") {
+			if ($pos > 0) {
+				my $a = substr($inbuf, 0, $pos-1);
+				my $b = substr($inbuf, $pos) if $pos < $lth;
+				$b = "" unless $b;
+				
+				$inbuf = $a . $b;
+				--$lth;
+				--$pos;
+			} else {
+				beep();
+			}
+		} elsif ($r eq KEY_DC || $r eq "\004") {
+			if ($pos < $lth) {
+				my $a = substr($inbuf, 0, $pos);
+				my $b = substr($inbuf, $pos+1) if $pos < $lth;
+				$b = "" unless $b;
+				
+				$inbuf = $a . $b;
+				--$lth;
+			} else {
+				beep();
+			}
+		} elsif ($r ge ' ' && $r le '~') {
+			if ($pos < $lth) {
+				my $a = substr($inbuf, 0, $pos);
+				my $b = substr($inbuf, $pos);
+				$inbuf = $a . $r . $b;
+			} else {
+				$inbuf .= $r;
+			}
+			$pos++;
+			$lth++;
+		} elsif ($r eq "\014" || $r eq "\022") {
+			$scr->touchwin();
+			$scr->refresh();
+		} elsif ($r eq "\013") {
 			$inbuf = "";
+			$pos = $lth = 0;
 		} else {
-			$inbuf .= $r;
+			beep();
 		}
+		$bot->move(1, 0);
+		$bot->clrtobot();
+		$bot->addstr($inbuf);
 	} 
+	$bot->move(1, $pos);
 	$bot->refresh();
 }
 
@@ -105,6 +191,11 @@ $conn = 0;                      # the connection object for the cluster
 $lasttime = time;               # lasttime something happened on the interface
 
 $connsort = "local";
+@history = ();
+$histpos = 0;
+$maxhist = 100;
+$pos = $lth = 0;
+$inbuf = "";
 
 #
 # deal with args
@@ -138,7 +229,8 @@ $SIG{'TERM'} = \&sig_term;
 $SIG{'HUP'} = 'IGNORE';
 
 $scr = new Curses;
-cbreak();
+raw();
+noecho();
 $top = $scr->subwin(LINES()-4, COLS, 0, 0);
 $top->intrflush(0);
 $top->scrollok(1);
@@ -147,13 +239,16 @@ $bot = $scr->subwin(3, COLS, LINES()-3, 0);
 $bot->intrflush(0);
 $bot->scrollok(1);
 $bot->keypad(1);
+$bot->move(1,0);
 $scr->refresh();
 
+$SIG{__DIE__} = \&sig_term;
+
 $pages = LINES()-6;
 
 $conn->send_now("A$call|$connsort");
-$conn->send_now("I|$call|set/page $pages");
-$conn->send_now("I|$call|set/nobeep");
+$conn->send_now("I$call|set/page $pages");
+$conn->send_now("I$call|set/nobeep");
 
 Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);
 
-- 
2.34.1