projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
118cbdb
)
attempt to avoid %FA characters in incoming data
author
djk
<djk>
Fri, 16 Jul 1999 09:20:28 +0000
(09:20 +0000)
committer
djk
<djk>
Fri, 16 Jul 1999 09:20:28 +0000
(09:20 +0000)
Changes
patch
|
blob
|
history
perl/cluster.pl
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index ed3f545e9ead3ff899a21aadada88d7feb0d837b..ef4bd3d00e0fa57579478c1f8df01ae1d3640a17 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,3
+1,6
@@
+16Jul99=======================================================================
+1. drop frames with 'illegal' characters in them (but pass frames with
+embedded %XX characters).
15Jul99=======================================================================
1. Changed grepdbg to accept a regexp. More useful (to me anyway).
2. Altered init command so that it doesn't send PC21s down the initted
15Jul99=======================================================================
1. Changed grepdbg to accept a regexp. More useful (to me anyway).
2. Altered init command so that it doesn't send PC21s down the initted
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index fdfff04f110abb24807561310a44543b76e96f24..9c002766bfdb224c8ed7a00b12577e15cbe19c37 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-233,13
+233,15
@@
sub process_inqueue
my $data = $self->{data};
my $dxchan = $self->{dxchan};
my ($sort, $call, $line) = $data =~ /^(\w)([A-Z0-9\-]+)\|(.*)$/;
my $data = $self->{data};
my $dxchan = $self->{dxchan};
my ($sort, $call, $line) = $data =~ /^(\w)([A-Z0-9\-]+)\|(.*)$/;
-
+ my $error;
+
# the above regexp must work
return unless ($sort && $call && $line);
# translate any crappy characters into hex characters
if ($line =~ /[\x00-\x06\x08\x0a-\x1f\x7f-\xff]/o) {
$line =~ s/([\x00-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
# the above regexp must work
return unless ($sort && $call && $line);
# translate any crappy characters into hex characters
if ($line =~ /[\x00-\x06\x08\x0a-\x1f\x7f-\xff]/o) {
$line =~ s/([\x00-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
+ ++$error;
# dbg('chan', "<- $sort $call **CRAP**: $line");
# return;
}
# dbg('chan', "<- $sort $call **CRAP**: $line");
# return;
}
@@
-253,10
+255,13
@@
sub process_inqueue
$dxchan->start($line, $sort);
} elsif ($sort eq 'I') {
die "\$user not defined for $call" if !defined $user;
$dxchan->start($line, $sort);
} elsif ($sort eq 'I') {
die "\$user not defined for $call" if !defined $user;
-
- # normal input
- $dxchan->normal($line);
-
+
+ if ($error) {
+ dbg(chan, "DROPPED with $error duff characters");
+ } else {
+ # normal input
+ $dxchan->normal($line);
+ }
disconnect($dxchan) if ($dxchan->{state} eq 'bye');
} elsif ($sort eq 'Z') {
disconnect($dxchan);
disconnect($dxchan) if ($dxchan->{state} eq 'bye');
} elsif ($sort eq 'Z') {
disconnect($dxchan);