From: minima <minima>
Date: Mon, 13 Feb 2006 18:56:10 +0000 (+0000)
Subject: further mods to convkeps
X-Git-Tag: 1.54~125
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=48f094652ce673dbe32c6f54aed23034b43e8864

further mods to convkeps
---

diff --git a/perl/convkeps.pl b/perl/convkeps.pl
index b591ca6b..a7f3e0ae 100755
--- a/perl/convkeps.pl
+++ b/perl/convkeps.pl
@@ -94,6 +94,7 @@ while (<$f>) {
 		$state = 1;
 	} elsif ($state == 1) {
 		last if m{^-};
+		next if m{^To\s+all}i;
 		
 		if (/^[- \w]+$/) {
 			s/\s/-/g;
@@ -116,7 +117,7 @@ while (<$f>) {
 			
 			$state = 3;
 		} else {
-#			print "out of order on line $line\n";
+			#print "out of order on line $line\n";
 			undef $ref;
 			delete $keps{$name};
 			$state = 1;
@@ -133,7 +134,7 @@ while (<$f>) {
 			$ref->{orbit} = $orbit - 0;
 			$count++;
 		} else {
-#			print "out of order on line $line\n";
+			#print "out of order on line $line\n";
 			delete $keps{$name};
 		}
 		undef $ref;