update statis index with frame 0

diff --git a/update.1.pl b/update.1.pl
index af04ce37b82be0ae84009dcb0796841e0db45f6e..09ee4e4081590f252aead717711f8c2f44bdea58 100644 (file)
--- a/update.1.pl
+++ b/update.1.pl
@@ -30,7 +30,8 @@ use botm_common (
 );
 use bsta_lib (
        'STATE',
-       'ong'
+       'ong',
+       'write_index'
 );
 
 ###PERL_DATA_DEFAULT_PATH:  DATA_DEFAULT_PATH  = /botm/data/bsta/default
@@ -104,6 +105,13 @@ foreach my $id (@list) {
                $fail += 1;
                print "ONG FAIL!\n";
        }
+       if (($id == 0) && ($ong_state > STATE->{'inactive'})) {
+               write_index(
+                       \%state,
+                       \%settings,
+               );
+       }
+               
 }
 print "\n";