From ea3457ff6eb2cd525cdfb022301b4ede224e3010 Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 2 Dec 2001 22:56:26 +0000 Subject: [PATCH] Alter the storage of messages so that illegal characters are stored as '.' in an attempt to stop such messages from hanging. --- Changes | 2 ++ perl/DXMsg.pm | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index 93f2df1c..8626bd5a 100644 --- 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 d5a168e7..bb80e6c1 100644 --- 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) { -- 2.43.0