From: minima <minima>
Date: Sun, 2 Dec 2001 22:56:26 +0000 (+0000)
Subject: Alter the storage of messages so that illegal characters are stored as '.'
X-Git-Tag: R_1_50~154
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea3457ff6eb2cd525cdfb022301b4ede224e3010;p=spider.git

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 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) {