#
# update already ONGed frames & stuff
#
-# Copyright (C) 2016, 2017, 2023 Balthasar Szczepański
+# Copyright (C) 2016, 2017, 2023, 2024 Balthasar Szczepański
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU Affero General Public License as
# along with this program. If not, see <http://www.gnu.org/licenses/>.
use strict;
-#use warnings;
+use utf8;
+use Encode::Locale ('decode_argv');
+use Encode ('encode', 'decode');
+
###PERL_LIB: use lib /botm/lib/bsta
-use bsta_lib qw(readdatafile writedatafile);
-use File::Copy;
+use botm_common (
+ 'read_data_file',
+ 'join_path'
+);
+use bsta_lib (
+ 'STATE',
+ 'ong',
+ 'write_index', 'write_static_viewer_page'
+);
+
+###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
+###PERL_DATA_WORDS_PATH: DATA_WORDS_PATH = /botm/data/bsta/words/
+
+binmode STDIN, ':encoding(UTF-8)';
+binmode STDOUT, ':encoding(UTF-8)';
+binmode STDERR, ':encoding(UTF-8)';
+decode_argv();
+
+my $time = time();
+srand ($time-$$);
+
+my %settings = read_data_file(DATA_SETTINGS_PATH());
+my %default = read_data_file(DATA_DEFAULT_PATH());
+my %state = read_data_file(DATA_STATE_PATH());
+my %all_frame_data = ();
+my %all_words_data = ();
-###PERL_DATA_PATH: DATA_PATH = /botm/data/bsta/
-###PERL_DATA_LIST_PATH: DATA_LIST_PATH = /botm/data/bsta/list
+my $ong_state = int($state{'state'});
+my $last_frame = ($ong_state > STATE->{'inactive'}) ?
+ int($state{'last'}) :
+ 0;
-my %framedata;
-my %gotolist;
+my @list;
-my $frame;
+my $fail = 0;
-%gotolist=readdatafile(DATA_LIST_PATH);
+print $time."\n";
-for($frame=0; ; ++$frame) {
- %framedata=readdatafile(DATA_PATH.$frame);
- if($framedata{'ongtime'} eq '') {
- last;
+foreach my $id (@ARGV) {
+ if ($id eq 'all') {
+ push @list, 'i';
+ push @list, 'c';
+ for (my $f=0; $f<=$last_frame; $f+=1) {
+ push @list, $f;
+ }
+ }
+ elsif ($id =~ /^[0-9]+$/) {
+ my $f = int($&);
+ if ($f <= $last_frame) {
+ push @list, $f
+ }
+ else {
+ print "$f > $last_frame\n";
+ $fail += 1;
+ }
+ }
+ elsif ($id =~ /^[ic]$/) {
+ push @list, $&;
+ }
+ else {
+ print "$id ???\n";
+ $fail += 1;
+ }
+}
+
+foreach my $id (@list) {
+ print "ONG $id\n";
+ my $r = ong(
+ $id, # frame ID
+ $time, # ONG time
+ '', # timer value; not relevant
+ 1, # update
+ 1, # print
+ \%settings,
+ \%default,
+ get_frame_data($id),
+ '' # %goto_list
+ );
+ unless ($r) {
+ $fail += 1;
+ print "ONG FAIL!\n";
+ }
+ make_static_pages($id);
+}
+print "\n";
+
+
+sub get_frame_data {
+ (my $id) = @_;
+
+ unless ($id =~ /^[0-9]+$/) {
+ return '';
+ }
+ my $f = int($id);
+
+ unless (($f >= 0) && ($f <= $last_frame)) {
+ return '';
+ }
+
+ my $r = $all_frame_data{$f};
+ if (ref ($r)) {
+ return $r;
}
- print $frame.' '.$framedata{'ongtime'}.' '.$framedata{'title'}."\n";
+ my %frame_data = read_data_file(
+ join_path(PATH_SEPARATOR(), DATA_PATH(), $f)
+ );
+ $all_frame_data{$f} = \%frame_data;
+ return \%frame_data;
+}
+
+sub get_words_data {
+ (my $id) = @_;
+
+ unless ($id =~ /^[0-9]+$/) {
+ return '';
+ }
+ my $f = int($id);
+
+ unless (($f >= 0) && ($f <= $last_frame)) {
+ return '';
+ }
+
+ my $r = $all_words_data{$f};
+ if (ref ($r)) {
+ return $r;
+ }
+
+ my %frame_data = read_data_file(
+ join_path(PATH_SEPARATOR(), DATA_WORDS_PATH(), $f),
+ '', # encoding,
+ 0, # no header
+ 1, # header only
+ 1, # as list; not relevant
+ );
+ $all_words_data{$f} = \%frame_data;
+ return \%frame_data;
+}
+
+sub make_static_page {
+ (my $id) = @_;
+ unless ($id =~ /^[0-9]+$/) {
+ return;
+ }
+ my $f = int($id);
+ unless (($f >= 0) && ($f <= $last_frame)) {
+ return;
+ }
+ my $r;
+
+ if (($f == 0) && ($ong_state > STATE->{'inactive'})) {
+ print 'index';
+ $r = write_index(
+ \%state,
+ \%settings,
+ );
+ print (($r) ? " OK\n" : " FAIL\n");
+ }
+ elsif ($f > 0) {
+ print 'static page '.$f;
+ $r = write_static_viewer_page (
+ $f,
+ \%state,
+ \%settings,
+ \%default,
+ get_frame_data($f),
+ get_frame_data($f-1),
+ get_frame_data($f+1),
+ get_words_data($f)
+ );
+ print (($r) ? " OK\n" : " FAIL\n");
+ }
+}
+
+sub make_static_pages {
+ (my $id) = @_;
+ unless ($id =~ /^[0-9]+$/) {
+ return;
+ }
+ my $f = int($id);
+ unless (($f >= 0) && ($f <= $last_frame)) {
+ return '';
+ }
- $gotolist{'title-'.$frame}=$framedata{'title'};
- $gotolist{'ongtime-'.$frame}=$framedata{'ongtime'};
+ make_static_page($f);
+ make_static_page($f-1);
+ make_static_page($f+1);
+ make_static_page($f);
}
-writedatafile (DATA_LIST_PATH,%gotolist);
+exit $fail;