chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Do not include vessel info in published _ocean-*.txt
[ypp-sc-tools.db-test.git]
/
yarrg
/
update-master-info
diff --git
a/yarrg/update-master-info
b/yarrg/update-master-info
index ba778d4049212eafe4195527a0acbe40b5e0717e..b16e7b4704b4e486b4426ad423a81656bdd4d873 100755
(executable)
--- a/
yarrg/update-master-info
+++ b/
yarrg/update-master-info
@@
-60,6
+60,7
@@
sub full ($) {
quick($ocean);
print "## updating topology of $ocean\n";
system('./yppedia-chart-parser',$ocean); die "$ocean $?" if $?;
quick($ocean);
print "## updating topology of $ocean\n";
system('./yppedia-chart-parser',$ocean); die "$ocean $?" if $?;
+ print "\n";
}
sub quick ($) {
}
sub quick ($) {
@@
-88,7
+89,8
@@
sub process_some_info ($$$) {
if ($v<2) {
next if $h =~ m/^nocommods/;
}
if ($v<2) {
next if $h =~ m/^nocommods/;
}
- next if $sfn =~ m/source-info/ && $h =~ m/^ocean/;
+ next if $sfn =~ m/source-info/ && $h =~ m/^ocean\b/;
+ next if $h =~ m/^client|^vessels|^shot\b/;
print $df $_, "\n" or die $!;
}
print $df $_, "\n" or die $!;
}