From c1eb1d4013a7d748c0fc22f778ddb719dc151a1b Mon Sep 17 00:00:00 2001 From: djk Date: Mon, 28 Jun 1999 15:47:50 +0000 Subject: [PATCH] added a clrtoeol and a ^A --- perl/DXMsg.pm | 2 +- perl/console.pl | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index 146392f4..e5fa41a8 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -130,7 +130,7 @@ sub process for (keys %busy) { my $node = $_; my $ref = $busy{$_}; - if ($main::systime > $ref->{lastt} + $timeout) { + if (exists $ref->{lastt} && $main::systime > $ref->{lastt} + $timeout) { $ref->stop_msg($node); # delay any outgoing messages that fail diff --git a/perl/console.pl b/perl/console.pl index 02a2e476..429f5d36 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -93,6 +93,7 @@ sub rec_stdin shift @history if @history > $maxhist; $histpos = @history; $bot->move(0,0); + $bot->clrtoeol(); $bot->addstr(substr($inbuf, 0, COLS)); } @@ -129,7 +130,7 @@ sub rec_stdin } else { beep(); } - } elsif ($r eq KEY_HOME) { + } elsif ($r eq KEY_HOME || $r eq "\001") { $pos = 0; } elsif ($r eq KEY_BACKSPACE || $r eq "\010") { if ($pos > 0) { -- 2.43.0