###PERL_LIB: use lib /botm/lib/bsta
use botm_common (
'read_data_file', 'write_data_file',
- 'open_encoded'
+ 'open_encoded',
+ 'join_path'
);
use bsta_lib (
'STATE',
- 'ong'
+ 'ong',
+ 'write_static_viewer_page', 'write_index'
);
+###PERL_PATH_SEPARATOR: PATH_SEPARATOR = /
+
+###PERL_DATA_PATH: DATA_PATH = /botm/data/bsta/
+###PERL_DATA_DEFAULT_PATH: DATA_DEFAULT_PATH = /botm/data/bsta/default
###PERL_DATA_SETTINGS_PATH: DATA_SETTINGS_PATH = /botm/data/bsta/settings
###PERL_DATA_STATE_PATH: DATA_STATE_PATH = /botm/data/bsta/state
my %settings;
my %state;
my %goto_list;
+my %default;
+my %frame_data;
my $fh;
my $ongstate;
if ($ongstate == STATE->{'ready'}) {
print 'next frame: '.$frame."\n";
+ %default = read_data_file(DATA_DEFAULT_PATH());
+ %frame_data = read_data_file(
+ join_path(PATH_SEPARATOR(), DATA_PATH(), $frame)
+ );
+
$r = ong (
$frame, # frame ID
$time, # ONG time
0, # update
1, # print
\%settings,
- '', # %default
- '', # %frame_data
+ \%default,
+ \%frame_data,
'' # %goto_list
);
-
if ($r) {
$state{'last'} = $frame;
$state{'state'} = 1;
$state{'ip3'} = '';
$state{'ongtime'}= $timer;
print "ONG\n";
+
+ my %frame_1_data;
+ my %frame_2_data;
+ my %frame_3_data;
+ if ($frame >= 1) {
+ %frame_1_data = read_data_file(
+ join_path(PATH_SEPARATOR(), DATA_PATH(), $frame-1)
+ );
+ }
+ if ($frame >= 2) {
+ %frame_2_data = read_data_file(
+ join_path(PATH_SEPARATOR(), DATA_PATH(), $frame-2)
+ );
+ }
+ if ($frame >= 3) {
+ %frame_3_data = read_data_file(
+ join_path(PATH_SEPARATOR(), DATA_PATH(), $frame-3)
+ );
+ }
+ if ($frame >= 2)
+ {
+ print 'static page '.($frame-1);
+ $r = write_static_viewer_page(
+ $frame-1, # frame ID
+ \%state,
+ \%settings,
+ \%default,
+ \%frame_1_data, # frame data
+ \%frame_2_data, # prev frame data
+ \%frame_data, # next frame data
+ '' # words data
+ );
+ print (($r) ? " OK\n" : " FAIL\n");
+ }
+ if ($frame >= 3)
+ {
+ print 'static page '.($frame-2);
+ $r = write_static_viewer_page(
+ $frame-1, # frame ID
+ \%state,
+ \%settings,
+ \%default,
+ \%frame_2_data, # frame data
+ \%frame_3_data, # prev frame data
+ \%frame_1_data, # next frame data
+ '' # words data
+ );
+ print (($r) ? " OK\n" : " FAIL\n");
+ }
+ if ($frame <= 2) {
+ print 'index';
+ $r = write_index(
+ \%state,
+ \%settings
+ );
+ print (($r) ? " OK\n" : " FAIL\n");
+ }
}
else {
print "NO ONG\n";