bicyclesonthemoon.info Git - ott/bsta/blob - ong.1.pl

   1 ###RUN_PERL: #!/usr/bin/perl
   2
   3 # ong.pl is generated from ong.1.pl.
   4 #
   5 # The ONG bot
   6 #
   7 # Copyright (C) 2016, 2017, 2023, 2024  Balthasar Szczepański
   8 #
   9 # This program is free software: you can redistribute it and/or modify
  10 # it under the terms of the GNU Affero General Public License as
  11 # published by the Free Software Foundation, either version 3 of the
  12 # License, or (at your option) any later version.
  13 #
  14 # This program is distributed in the hope that it will be useful,
  15 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 # GNU Affero General Public License for more details.
  18 #
  19 # You should have received a copy of the GNU Affero General Public License
  20 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  21
  22 use strict;
  23 use utf8;
  24 # use Encode::Locale ('decode_argv');
  25 use Encode ('encode', 'decode');
  26
  27 ###PERL_LIB: use lib /botm/lib/bsta
  28 use botm_common (
  29         'read_data_file', 'write_data_file',
  30         'open_encoded',
  31         'join_path'
  32 );
  33 use bsta_lib (
  34         'STATE',
  35         'ong',
  36         'write_static_viewer_page', 'write_index', 'write_static_goto'
  37 );
  38
  39 ###PERL_PATH_SEPARATOR:     PATH_SEPARATOR     = /
  40
  41 ###PERL_DATA_PATH:          DATA_PATH          = /botm/data/bsta/
  42 ###PERL_DATA_DEFAULT_PATH:  DATA_DEFAULT_PATH  = /botm/data/bsta/default
  43 ###PERL_DATA_LIST_PATH:     DATA_LIST_PATH     = /botm/data/bsta/list
  44 ###PERL_DATA_SETTINGS_PATH: DATA_SETTINGS_PATH = /botm/data/bsta/settings
  45 ###PERL_DATA_STATE_PATH:    DATA_STATE_PATH    = /botm/data/bsta/state
  46
  47 binmode STDIN,  ':encoding(UTF-8)';
  48 binmode STDOUT, ':encoding(UTF-8)';
  49 binmode STDERR, ':encoding(UTF-8)';
  50 # decode_argv();
  51
  52 my $time = time();
  53 srand ($time-$$);
  54
  55 my %settings;
  56 my %state;
  57 my %new_state;
  58 # my %goto_list;
  59 my %default;
  60 my %frame_data;
  61 my %frame_1_data;
  62 my %frame_2_data;
  63 my %frame_3_data;
  64
  65 my $fh;
  66 my $ongstate;
  67 my $frame;
  68 my $next_ong;
  69 my $ongtime;
  70 my $static_timer;
  71 my $timer;
  72 my $last;
  73 my $r = 0;
  74
  75 $ongtime = int($time / 3600) * 3600; # check time as if it was last full hour!
  76
  77 print $time.' - '.$ongtime."\n";
  78
  79 delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
  80 ###PERL_SET_PATH: $ENV{'PATH'} = /usr/local/bin:/usr/bin:/bin;
  81
  82 unless (open_encoded($fh, "+<:encoding(UTF-8)", DATA_STATE_PATH())) {
  83         print "NO STATEFILE\n\n";
  84         exit;
  85 }
  86 unless (flock($fh, 2)) {
  87         print "NO STATELOCK\n\n";
  88         close ($fh);
  89         exit;
  90 }
  91 %state = read_data_file($fh);
  92 $ongstate = int($state{'state'});
  93 print 'state: '.$ongstate."\n";
  94 unless ($ongstate > STATE->{'inactive'}) {
  95         print "INACTIVE\n\n";
  96         close ($fh);
  97         exit;
  98 }
  99 $next_ong = int($state{'nextong'});
 100 print 'ongtime: '.$next_ong."\n";
 101
 102 unless ($ongtime >= $next_ong) {
 103         print "WAIT\n\n";
 104         close ($fh);
 105         exit;
 106 }
 107
 108 %settings = read_data_file(DATA_SETTINGS_PATH());
 109 $static_timer = int($settings{'ongtime'});
 110 $timer        = int($settings{'dynamicongtime'});
 111 $last         = int($settings{'last'});
 112 $frame        = int($state   {'last'})+1;
 113
 114 if (($timer > 0) && ($frame < $last)) {
 115         $timer = int($timer / ($last - $frame));
 116 }
 117 else {
 118         $timer=0;
 119 }
 120
 121 if ($static_timer > $timer) {
 122         $timer = $static_timer;
 123 }
 124 $next_ong = $ongtime + ($timer*3600);
 125 $state{'nextong'} = $next_ong;
 126 print 'next ongtime: '.$next_ong.' (+'.$timer.")\n";
 127 $state{'ongtime'}=$timer;
 128
 129 if ($ongstate == STATE->{'ready'}) {
 130         print 'next frame: '.$frame."\n";
 131
 132         %default = read_data_file(DATA_DEFAULT_PATH());
 133         %frame_data = read_data_file(
 134                 join_path(PATH_SEPARATOR(), DATA_PATH(), $frame)
 135         );
 136         # %goto_list = read_data_file(DATA_LIST_PATH());
 137
 138         $new_state{'last'}   = $frame;
 139         $new_state{'state'}  = 1;
 140         $new_state{'ip1'}    = '';
 141         $new_state{'ip2'}    = '';
 142         $new_state{'ip3'}    = '';
 143         $new_state{'ongtime'}= $timer;
 144
 145         if ($frame >= 1) {
 146                 %frame_1_data = read_data_file(
 147                         join_path(PATH_SEPARATOR(), DATA_PATH(), $frame-1)
 148                 );
 149         }
 150         if ($frame >= 2) {
 151                 %frame_2_data = read_data_file(
 152                         join_path(PATH_SEPARATOR(), DATA_PATH(), $frame-2)
 153                 );
 154         }
 155         if ($frame >= 3) {
 156                 %frame_3_data = read_data_file(
 157                         join_path(PATH_SEPARATOR(), DATA_PATH(), $frame-3)
 158                 );
 159         }
 160
 161         $r = ong (
 162                 $frame, # frame ID
 163                 $time,  # ONG time
 164                 $timer, # timer to next ONG
 165                 0,      # update
 166                 1,      # print
 167                 \%settings,
 168                 \%default,
 169                 \%frame_data,
 170                 '' # \%goto_list
 171         );
 172         if ($r && ($frame >= 2)) {
 173                 print 'static page '.($frame-1);
 174                 $r = write_static_viewer_page(
 175                         $frame-1, # frame ID
 176                         \%new_state,
 177                         \%settings,
 178                         \%default,
 179                         \%frame_1_data, # frame data
 180                         \%frame_2_data, # prev frame data
 181                         \%frame_data,   # next frame data
 182                         '' # words data
 183                 );
 184                 print (($r) ? " OK\n" : " FAIL\n");
 185         }
 186         if ($r && ($frame >= 3)) {
 187                 print 'static page '.($frame-2);
 188                 $r = write_static_viewer_page(
 189                         $frame-2, # frame ID
 190                         \%new_state,
 191                         \%settings,
 192                         \%default,
 193                         \%frame_2_data, # frame data
 194                         \%frame_3_data, # prev frame data
 195                         \%frame_1_data, # next frame data
 196                         '' # words data
 197                 );
 198                 print (($r) ? " OK\n" : " FAIL\n");
 199         }
 200         if ($r && ($frame <= 2)) {
 201                 print 'index';
 202                 $r = write_index(
 203                         \%new_state,
 204                         \%settings
 205                 );
 206                 print (($r) ? " OK\n" : " FAIL\n");
 207         }
 208         if ($r) {
 209                 print 'static GOTO';
 210                 $r = write_static_goto(
 211                         \%new_state,
 212                         \%settings,
 213                         '' # \%goto_list
 214                 );
 215                 print (($r) ? " OK\n" : " FAIL\n");
 216         }
 217         if ($r) {
 218                 %state = %new_state;
 219                 print "ONG\n\n";
 220         }
 221         else {
 222                 print "NO ONG\n\n";
 223         }
 224 }
 225 write_data_file($fh, \%state);
 226 close ($fh);