X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FExtMsg.pm;h=090087817004ce648139d1068e48d66318fad715;hb=d0e999102802c57e45b9d3a31261caca6ae691c3;hp=122d3ec837e52cfeccbb3ee9092274784a477c0b;hpb=adbdb8b9a0e376b05b1d23234db927db946c8c5d;p=spider.git

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index 122d3ec8..09008781 100644
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -32,9 +32,9 @@ sub enqueue
 		if ($msg =~ /^E[-\w]+\|([01])/) {
 			$conn->{echo} = $1;
 			if ($1) {
-				$conn->send_raw("\xFF\xFC\x01");
+#				$conn->send_raw("\xFF\xFC\x01");
 			} else {
-				$conn->send_raw("\xFF\xFB\x01");
+#				$conn->send_raw("\xFF\xFB\x01");
 			}
 		} else {
 			$msg =~ s/^[-\w]+\|//;
@@ -120,7 +120,7 @@ sub new_client {
 #		$conn->send_raw("\xff\xfa\x22\x01\x01\xff\xf0");
 		$conn->send_raw("\xFF\xFC\x01");
 		_send_file($conn, "$main::data/issue");
-		$conn->send_raw("Login: ");
+		$conn->send_raw("login: ");
     } else { 
         $conn->disconnect();
     }