added a clrtoeol and a ^A

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 146392f44f970a83eb269167c1590a29b71cb414..e5fa41a8f3bce122e574f0728660d31899875fe9 100644 (file)
--- 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 02a2e476831ef0567d21dc7c384c8d27a52c84bb..429f5d36245be86a35880a477356a2c6f1ec6f19 100755 (executable)
--- 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) {