From: minima <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;
 	}