From 3c0c1870d27827056e62012828bc7233abde1f01 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Thu, 8 Jun 2000 18:47:48 +0000
Subject: [PATCH] added echo and noecho for clients to set/unset fixed various
 client->cluster protocol misconecptions

---
 Changes           |  5 +++++
 cmd/Aliases       |  1 +
 cmd/set/echo.pl   | 10 ++++++++++
 cmd/unset/echo.pl | 10 ++++++++++
 perl/Messages     |  4 +++-
 perl/Msg.pm       |  2 +-
 6 files changed, 30 insertions(+), 2 deletions(-)
 create mode 100644 cmd/set/echo.pl
 create mode 100644 cmd/unset/echo.pl

diff --git a/Changes b/Changes
index 979873b7..786a81db 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,8 @@
+08Jun00=======================================================================
+1. fixed problem with binary characters from cluster->client
+2. added set/echo and unset/echo commands
+3. echo login characters on login: prompt for C client
+4. Send \r\n on telnet connections for C Client
 11May00=======================================================================
 1. fixed looping in Msg.pm (at last)
 10May00=======================================================================
diff --git a/cmd/Aliases b/cmd/Aliases
index 338a8098..8b006a98 100644
--- a/cmd/Aliases
+++ b/cmd/Aliases
@@ -89,6 +89,7 @@ package CmdAlias;
 	  '^set/nohe', 'unset/here', 'unset/here',
 	  '^set/noan', 'unset/announce', 'unset/announce',
 	  '^set/nodx', 'unset/dx', 'unset/dx',
+	  '^set/noe', 'unset/echo', 'unset/echo',
 	  '^set/nota', 'unset/talk', 'unset/talk',
 	  '^set/noww', 'unset/wwv', 'unset/wwv',
 	  '^set/nowx', 'unset/wx', 'unset/wx',
diff --git a/cmd/set/echo.pl b/cmd/set/echo.pl
new file mode 100644
index 00000000..3bea9430
--- /dev/null
+++ b/cmd/set/echo.pl
@@ -0,0 +1,10 @@
+#
+# set echoing
+#
+# Copyright (c) 2000 - Dirk Koopman G1TLH
+#
+# $Id$
+#
+my $self = shift;
+$self->send_now("E", "1");
+return (1, $self->msg('echoon'));
diff --git a/cmd/unset/echo.pl b/cmd/unset/echo.pl
new file mode 100644
index 00000000..a2cccac7
--- /dev/null
+++ b/cmd/unset/echo.pl
@@ -0,0 +1,10 @@
+#
+# set echoing
+#
+# Copyright (c) 2000 - Dirk Koopman G1TLH
+#
+# $Id$
+#
+my $self = shift;
+$self->send_now("E", "0");
+return (1, $self->msg('echooff'));
diff --git a/perl/Messages b/perl/Messages
index a70dccc9..8fe2c1e8 100644
--- a/perl/Messages
+++ b/perl/Messages
@@ -56,7 +56,9 @@ package DXM;
 				e14 => 'First argument must be numeric and > 0',
 				e15 => 'invalid qualifier \"$_[0]\"',
 				e16 => 'File \"$_[0]\" exists',
-				
+
+				echoon => 'Echoing enabled',
+				echooff => 'Echoing disabled',
 				emaile1 => 'Please enter your email address, set/email <your e-mail address>',
 				emaila => 'Your E-Mail Address is now \"$_[0]\"',
 				email => 'E-mail address set to: $_[0]',
diff --git a/perl/Msg.pm b/perl/Msg.pm
index b626e27c..b3816df3 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -89,7 +89,7 @@ sub _enqueue {
     my ($conn, $msg) = @_;
     # prepend length (encoded as network long)
     my $len = length($msg);
-	$msg =~ s/(\x00-\x2f\x7e-\xff%])/sprintf("%%%02X", ord($1))/eg; 
+	$msg =~ s/([\%\x00-\x1f\x7f-\xff])/sprintf("%%%02X", ord($1))/eg; 
     push (@{$conn->{queue}}, $msg . "\n");
 }
 
-- 
2.43.0