add_new_from_tle_file.pl   add_new_from_tle_file.pl 
skipping to change at line 22 skipping to change at line 22
if (/^\s*\"([^"]+)":\s*$/) { if (/^\s*\"([^"]+)":\s*$/) {
$ignore{$1} = 1; $ignore{$1} = 1;
} }
} }
my(%h); my(%h);
while(<STDIN>) { while(<STDIN>) {
chomp; chomp;
s/\s+$//; s/\s+$//;
$_ =~ /^2\s(\d+)\s/;
$h{'id'} = $1;
if (/^1/) { $h{'tle1'} = $_; } if (/^1/) { $h{'tle1'} = $_; }
elsif (/^2/) { elsif (/^2/) {
$h{'tle2'} = $_; $h{'tle2'} = $_;
out(%h); out(%h);
foreach my $k (keys %h) {delete $h{$k};} foreach my $k (keys %h) {delete $h{$k};}
} }
else { else {
s/\s*\[[^\]]+\]\s*$//; s/\s*\[[^\]]+\]\s*$//;
$h{'id'} = $_; $h{'name'} = $_;
} }
} }
sub out { sub out {
if (defined($ignore{$h{'id'}})) { if (defined($ignore{$h{'id'}})) {
print STDERR "ignoring " . $h{'id'} . "\n"; print STDERR "ignoring " . $h{'id'} . "\n";
return; return;
} }
printf "\t\t\"%s\":\n", $h{'id'}; printf "\t\t\"%s\":\n", $h{'id'};
print "\t\t{\n"; print "\t\t{\n";
print "\t\t\t\"groups\": [$groups],\n"; print "\t\t\t\"groups\": [$groups],\n";
print "\t\t\t\"orbitVisible\": false,\n"; print "\t\t\t\"orbitVisible\": false,\n";
printf "\t\t\t\"name\": \"%s\",\n", $h{'name'};
printf "\t\t\t\"tle1\": \"%s\",\n", $h{'tle1'}; printf "\t\t\t\"tle1\": \"%s\",\n", $h{'tle1'};
printf "\t\t\t\"tle2\": \"%s\",\n", $h{'tle2'}; printf "\t\t\t\"tle2\": \"%s\",\n", $h{'tle2'};
print "\t\t\t\"visible\": false\n"; print "\t\t\t\"visible\": false\n";
print "\t\t},\n"; print "\t\t},\n";
} }
 End of changes. 3 change blocks. 
1 lines changed or deleted 4 lines changed or added

This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/