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