Alter the storage of messages so that illegal characters are stored as '.'

in an attempt to stop such messages from hanging.

diff --git a/Changes b/Changes
index 93f2df1c86e4b9a7a8580c4f8bba6b8f632b738e..8626bd5a46f1c83a515943aa3254c103bb5e1b94 100644 (file)
--- a/Changes
+++ b/Changes
@@ -7,6 +7,8 @@ poluting the nodes table. Maybe this will make things slightly more stable.
 to take the strain.
 4. Move the dupe checking AFTER the input filtering for announces and spots.
 5. Changed the checking of PC19/21 that it doesn't alter the wrong node
+6. Alter the storage of messages so that illegal characters are stored as '.' 
+in an attempt to stop such messages from hanging.
 26Nov01=======================================================================
 1. Make changes to the installation manual to show making the client before
 actually trying to use it!  Thanks to oz1lqh.  Also add a line for SuSE

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index d5a168e7ced7e20120d5e44af2493fdfcf07b1ce..bb80e6c1908183ffbb16bf027a34e76c30478243 100644 (file)
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -518,6 +518,7 @@ sub store
                        my $line;
                        $ref->{size} = 0;
                        foreach $line (@{$lines}) {
+                               $line =~ s/[\x00-\x08\x0a-\x1f\xf0-\xff]/./g;
                                $ref->{size} += (length $line) + 1;
                                print $fh "$line\n";
                        }
@@ -530,7 +531,7 @@ sub store
        }
 
        # actual remove all the 'deleted' messages in one hit.
-       # this has to me delayed until here otherwise it only does one at 
+       # this has to be delayed until here otherwise it only does one at 
        # a time because @msg is rewritten everytime del_msg is called.
        my @del = grep {!$_->{tonode} && $_->{delete} && $_->{deletetime} < $main::systime} @msg;
        for (@del) {