]> dxcluster.net Git - spider.git/commitdiff
further mods to convkeps
authorminima <minima>
Mon, 13 Feb 2006 18:56:10 +0000 (18:56 +0000)
committerminima <minima>
Mon, 13 Feb 2006 18:56:10 +0000 (18:56 +0000)
perl/convkeps.pl

index b591ca6b446fc9f2bc8428d128254f85ef48a5ec..a7f3e0ae8ec53753dd0b6180027c4211d7a38bc2 100755 (executable)
@@ -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;