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'
}
}
+# 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(
}
make_static_pages($id);
}
+
+# duplicated - before AND after normal pages!
if ($update_goto) {
print 'static GOTO';
my $r = write_static_goto(