fix ONG; fix update; total reset

[ott/bsta] / update.1.pl

diff --git a/update.1.pl b/update.1.pl
index 1cc780342f24fcf482d8e6b8dda0ca640fe85f3f..a5f0c5efbd4e3f231efcc024d5390cc3a9aa4e00 100644 (file)
--- a/update.1.pl
+++ b/update.1.pl
@@ -24,7 +24,7 @@ use utf8;
 use Encode::Locale ('decode_argv');
 use Encode ('encode', 'decode');
 
-use lib '/botm/lib/test-bsta';
+###PERL_LIB: use lib /botm/lib/bsta
 use botm_common (
        'read_data_file',
        'join_path'
@@ -99,6 +99,23 @@ foreach my $id (@ARGV) {
        }
 }
 
+# duplicated - before AND after normal pages!
+if ($update_goto) {
+       print 'static GOTO';
+       my $r = write_static_goto(
+               \%state,
+               \%settings,
+               '' # \%goto_list
+       );
+       if ($r) {
+               print " OK\n";
+       }
+       else {
+               print " FAIL\n";
+               $fail += 1;
+       }
+}
+
 foreach my $id (@list) {
        print "ONG $id\n";
        my $r = ong(
@@ -118,6 +135,8 @@ foreach my $id (@list) {
        }
        make_static_pages($id);
 }
+
+# duplicated - before AND after normal pages!
 if ($update_goto) {
        print 'static GOTO';
        my $r = write_static_goto(