2. Add full individual checking for all PC protocol fields in all messages

[spider.git] / perl / DXDebug.pm

diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm
index a1c63407f71f1b2aba38c58782dbe77f0a73e63b..ac452413555d4975dc3750bcaad5d120234fefaa 100644 (file)
--- a/perl/DXDebug.pm
+++ b/perl/DXDebug.pm
@@ -56,6 +56,8 @@ sub _store
                chomp;
                my @l = split /\n/;
                for (@l) {
+                       my $l = $_;
+                       $l =~ s/([\x00\x08\x0B-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;                 
                        print "$_\n" if defined \*STDOUT;
                        $fp->writeunix($t, "$t^$_"); 
                }