clobber 0x80-0x9f in incoming data

diff --git a/Changes b/Changes
index 461f3697f91289291a60450f7be4c0b526fdf85e..04cd0134e2ecf6643c9998ab4cdeabc4e4832d17 100644 (file)
--- a/Changes
+++ b/Changes
@@ -4,6 +4,8 @@ where digits are the 'wrong' way round.
 2. made default max days to search for spots 3 months.
 3. added hex decodes for those pesky 'national' characters that aren't really
 in grepdbg and watchdbg.
+4. decide that we are using Latin-1 and therefore characters 0x80-0x9f are
+not allowed.
 03Dec00=======================================================================
 1. change grepdbg and watchdbg so that you can see a number of lines before
 the condx that you are looking for so:-

diff --git a/perl/Msg.pm b/perl/Msg.pm
index a8db113761392d3ffbcf2dfa740288f9a4f97c98..f4f013beeb0f659417c84cd8750ccc963a8c9348 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -238,7 +238,7 @@ FINISH:
        while (@lines){
                $msg = shift @lines;
                $msg =~ s/\%([2-9A-F][0-9A-F])/chr(hex($1))/eg;
-               $msg =~ s/[\x00-\x08\x0a-\x1f\x9b\x8e]/./g;         # immutable CSI sequence + control characters
+               $msg =~ s/[\x00-\x08\x0a-\x1f\x80-\x9f]/./g;         # immutable CSI sequence + control characters
                &{$conn->{rcvd_notification_proc}}($conn, $msg, $!);
                $! = 0;
        }

diff --git a/perl/grepdbg b/perl/grepdbg
index 5b95c6338565327e61b04d312cb9d58618eecd60..a14bf3011d36489004359304b320af3b4baf73f4 100755 (executable)
--- a/perl/grepdbg
+++ b/perl/grepdbg
@@ -62,7 +62,7 @@ for my $entry (@list) {
                        shift @prev while @prev > $nolines;
                        if ($line =~ m{$string}io) {
                                for (@prev) {
-                                       $line =~ s/([\x00-\x1f\x7f-\xff])/sprintf("\\x%02X", ord($1))/eg; 
+                                       s/([\x00-\x1f\x7f-\xff])/sprintf("\\x%02X", ord($1))/eg; 
                                        my @line =  split '\^';
                                        my $t = shift @line;
                                        print atime($t), ' ', join('^', @line), "\n";