Generate static viewer pages

[ott/bsta] / bsta_lib.1.pm

diff --git a/bsta_lib.1.pm b/bsta_lib.1.pm
index 9774a2dc6c0ac59cc615e6d3917487589598ea2e..a6d4b39c13def32b593e8c8c09f4ff801fa6c081 100644 (file)
--- a/bsta_lib.1.pm
+++ b/bsta_lib.1.pm
@@ -46,7 +46,7 @@ our @EXPORT_OK   = (
        'print_html_head_start', 'print_html_head_end',
        'print_html_body_start', 'print_html_body_end',
        'print_viewer_page',
-       'write_index',
+       'write_index', 'write_static_viewer_page', 'write_static_goto',
        'ong',
        'eval_bb', 'bb_to_bbcode', 'bb_to_html'
 );
@@ -88,6 +88,7 @@ use botm_common (
 ###PERL_DATA_DEFAULT_PATH:  DATA_DEFAULT_PATH  = /botm/data/bsta/default
 ###PERL_DATA_LIST_PATH:     DATA_LIST_PATH     = /botm/data/bsta/list
 ###PERL_DATA_NOACCESS_PATH: DATA_NOACCESS_PATH = /botm/data/bsta/noaccess
+###PERL_DATA_STATE_PATH:    DATA_STATE_PATH    = /botm/data/bsta/state
 ###PERL_DATA_WORDS_PATH:    DATA_WORDS_PATH    = /botm/data/bsta/words/
 
 ###PERL_WWW_PATH:           WWW_PATH           = /botm/www/
@@ -1816,6 +1817,131 @@ sub write_index {
        return $r
 }
 
+sub write_static_viewer_page {
+       (
+               my $frame,
+               my $state_ref,
+               my $settings_ref,
+               my $default_ref,
+               my $frame_data_ref,
+               my $prev_frame_data_ref,
+               my $next_frame_data_ref,
+               my $words_data_ref
+       ) = @_;
+       
+       my %state;
+       my %settings;
+       my %default;
+       my %frame_data;
+       my %prev_frame_data;
+       my %next_frame_data;
+       my %words_data;
+       
+       my $file;
+       
+       $frame = int($frame);
+       my $prev_frame = $frame -1;
+       my $next_frame = $frame +1;
+       
+       %state = (ref ($state_ref)) ?
+               %$state_ref :
+               read_data_file(DATA_STATE_PATH());
+       my $ong_state = int($state{'state'});
+       my $last_frame = int($state{'last'});
+       
+       unless ($ong_state > STATE->{'inactive'}) {
+               return 0;
+       }
+       unless (
+               ($frame >= 0) && (
+                       ($frame < $last_frame) || (
+                               ($frame <= $last_frame) &&
+                               ($ong_state >= STATE->{'end'})
+                       )
+               )
+       ) {
+               return 0;
+       }
+       
+       %settings = (ref ($settings_ref)) ?
+               %$settings_ref :
+               read_data_file(DATA_SETTINGS_PATH());
+       %default = (ref ($default_ref)) ?
+               %$default_ref :
+               read_data_file(DATA_DEFAULT_PATH());
+       
+       %frame_data = (ref ($frame_data_ref)) ?
+               %$frame_data_ref :
+               read_data_file(join_path(PATH_SEPARATOR(), DATA_PATH(), $frame));
+       
+       %prev_frame_data = (ref ($prev_frame_data_ref)) ?
+               %$prev_frame_data_ref : (
+                       ($prev_frame >= 0) ?
+                       read_data_file(join_path(PATH_SEPARATOR(), DATA_PATH(), $prev_frame)) :
+                       %default
+               );
+               
+       %next_frame_data = (ref ($next_frame_data_ref)) ?
+               %$next_frame_data_ref : (
+                       (($next_frame < $last_frame) || (
+                               ($next_frame <= $last_frame) &&
+                               ($next_frame >= STATE->{'end'})
+                       )) ?
+                       read_data_file(join_path(PATH_SEPARATOR(), DATA_PATH(), $next_frame)) :
+                       %default
+               );
+       
+       %frame_data      = merge_settings(\%default, \%frame_data);
+       %prev_frame_data = merge_settings(\%default, \%prev_frame_data);
+       %next_frame_data = merge_settings(\%default, \%next_frame_data);
+       
+       %words_data = (ref ($words_data_ref)) ?
+               %$words_data_ref :
+               read_data_file(
+                       join_path(PATH_SEPARATOR(), DATA_WORDS_PATH(), $frame), # file
+                       '', # encoding
+                       0,  # no header
+                       1,  # header only
+                       1,  # as list; not relevant
+               );
+       
+       if ($frame_data{'page'} ne '') {
+               $file = $frame_data{'page'}
+       }
+       else {
+               $file = sprintf(
+                       $settings{'frame'},
+                       $frame, 'htm'
+               );
+       }
+       $file = join_path(PATH_SEPARATOR(), WWW_PATH(), $file);
+       
+       return print_viewer_page(
+               $file,
+               {
+                       'launch'        => 0,
+                       'frame'         => $frame,
+                       'access'        => 1,
+                       'password_ok'   => 0,
+                       'timer_unlocked'=> 3, # not relevant
+                       'timer'         => 0, # not relevant
+                       'static'        => 1,
+                       'show_command'  => 1,
+                       'text_mode'     => TEXT_MODE->{'normal'},
+                       'words_page'    => 0, # not relevant
+               },
+               \%state,
+               \%settings,
+               \%frame_data,
+               \%prev_frame_data,
+               \%next_frame_data,
+               \%words_data
+       );
+}
+
+sub write_static_goto {
+       
+}
 
 # ONG the frame + attachment & stuff. NOT update state file.
 sub ong {