X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=977285dad1e1db43d60f215a7ee7d67c38c3c906;hb=2f4355fb63f336cce61887b189d5556faf1734d7;hp=35924e4c08a2a02f1f2be26dcab53a28d3be6769;hpb=22e5a371c4388da2f15179739e7447fec3e4ec0c;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index 35924e4c..977285da 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -216,6 +216,8 @@ sub rec_stdin
 			}
 		} elsif ($r eq KEY_HOME || $r eq "\001") {
 			$pos = 0;
+		} elsif ($r eq KEY_END || $r eq "\005") {
+			$pos = $lth;
 		} elsif ($r eq KEY_BACKSPACE || $r eq "\010") {
 			if ($pos > 0) {
 				my $a = substr($inbuf, 0, $pos-1);
@@ -253,8 +255,8 @@ sub rec_stdin
 			$scr->touchwin();
 			$scr->refresh();
 		} elsif ($r eq "\013") {
-			$inbuf = "";
-			$pos = $lth = 0;
+			$inbuf = substr($inbuf, 0, $pos);
+			$lth = length $inbuf;
 		} else {
 			beep();
 		}