From: djk <djk>
Date: Mon, 28 Jun 1999 15:47:50 +0000 (+0000)
Subject: added a clrtoeol and a ^A
X-Git-Tag: R_1_30~8
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=c1eb1d4013a7d748c0fc22f778ddb719dc151a1b;p=spider.git

added a clrtoeol and a ^A
---

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) {