From: minima Date: Tue, 31 Oct 2000 17:11:51 +0000 (+0000) Subject: added 0x8e to the list of banned characters X-Git-Tag: R_1_45~67 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=c912e948dc2207f446c7c8930ab179b4bc3b98d7;p=spider.git added 0x8e to the list of banned characters --- diff --git a/Changes b/Changes index 39b49a0b..9b62c193 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +31Oct00======================================================================= +1. add 0x8e to the list of characters we clobber (make xterm go into graphics +mode). 30Oct00======================================================================= 1. put in new Filter::it code and tested it. Now all we have to do is write the user access routines (oh and the help files!). diff --git a/perl/DXProt.pm b/perl/DXProt.pm index db342dfb..6ee7e134 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -53,7 +53,7 @@ $baddxfn = "$main::data/baddx.pl"; @checklist = ( [ qw(c c m bp bc c) ], # pc10 - [ qw(f m d t m c c h) ], # pc11 + [ qw(f c d t m c c h) ], # pc11 [ qw(c bc m bp bm p h) ], # pc12 [ qw(c h) ], # [ qw(c h) ], # diff --git a/perl/Filter.pm b/perl/Filter.pm index 5947b856..00ee6adb 100644 --- a/perl/Filter.pm +++ b/perl/Filter.pm @@ -219,10 +219,13 @@ sub write { my $self = shift; my $sort = $self->{sort}; - my $fn = $self->{name}; + my $name = $self->{name}; my $dir = "$filterbasefn/$sort"; + my $fn = "$dir/$name"; + mkdir $dir, 0775 unless -e $dir; - my $fh = new IO::File ">$dir/$fn" or return "$dir/$fn $!"; + rename $fn, "$fn.o" if -e $fn; + $fh = new IO::File ">$fn"; if ($fh) { my $dd = new Data::Dumper([ $self ]); $dd->Indent(1); @@ -230,6 +233,9 @@ sub write $dd->Quotekeys($] < 5.005 ? 1 : 0); $fh->print($dd->Dumpxs); $fh->close; + } else { + rename "$fn.o", $fn if -e "$fn.o"; + return "$fn $!"; } return undef; } diff --git a/perl/Msg.pm b/perl/Msg.pm index d93de1b7..a8db1137 100644 --- 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]/./g; # immutable CSI sequence + control characters + $msg =~ s/[\x00-\x08\x0a-\x1f\x9b\x8e]/./g; # immutable CSI sequence + control characters &{$conn->{rcvd_notification_proc}}($conn, $msg, $!); $! = 0; }