projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b08d8e0
)
clobber 0x80-0x9f in incoming data
author
minima
<minima>
Tue, 5 Dec 2000 14:06:03 +0000
(14:06 +0000)
committer
minima
<minima>
Tue, 5 Dec 2000 14:06:03 +0000
(14:06 +0000)
Changes
patch
|
blob
|
history
perl/Msg.pm
patch
|
blob
|
history
perl/grepdbg
patch
|
blob
|
history
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.
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:-
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;
while (@lines){
$msg = shift @lines;
$msg =~ s/\%([2-9A-F][0-9A-F])/chr(hex($1))/eg;
- $msg =~ s/[\x00-\x08\x0a-\x1f\x
9b\x8e
]/./g; # immutable CSI sequence + control characters
+ $msg =~ s/[\x00-\x08\x0a-\x1f\x
80-\x9f
]/./g; # immutable CSI sequence + control characters
&{$conn->{rcvd_notification_proc}}($conn, $msg, $!);
$! = 0;
}
&{$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) {
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";
my @line = split '\^';
my $t = shift @line;
print atime($t), ' ', join('^', @line), "\n";