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 $?;
+    print "\n";
 }
 
 sub quick ($) {
@@ -88,7 +89,8 @@ sub process_some_info ($$$) {
        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 $!;
     }