added echo and noecho for clients to set/unset

fixed various client->cluster protocol misconecptions

diff --git a/Changes b/Changes
index 979873b7c51b3c586f3b6ff361ba64ec97d6597f..786a81db91a812a00333ff08c911bd9b15586643 100644 (file)
--- 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 338a80986edbd09047eee42e6acfe2e24c9f38c8..8b006a98c2b5b3ff0be7fb57a1ff8c02ea8352cb 100644 (file)
--- 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 (file)
index 0000000..3bea943
--- /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 (file)
index 0000000..a2cccac
--- /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 a70dccc935915587c321b388ab88cdf2cbe3fb0c..8fe2c1e82bdbe935e510d5ef0ca4303457c92801 100644 (file)
--- 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 b626e27c67958eb9822f12491298d349094c31c4..b3816df3f324ade51480e1f65d4105cc13d13b6b 100644 (file)
--- 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");
 }