Adapted for new config tool.

[ott/bsta] / updlist.1.pl

diff --git a/updlist.1.pl b/updlist.1.pl
index 8e8e6a2b0e6c7a98e6472e4262784d1a07b9009f..1f3ff5e51205663b41e771dd78adbbacbf064bc8 100644 (file)
--- a/updlist.1.pl
+++ b/updlist.1.pl
@@ -1,44 +1,39 @@
-###PERL;
-#
+###RUN_PERL: #!/usr/bin/perl
+
 # updlist.pl is generated from updlist.1.pl.
-# 29.06.2017
 #
 # The framelist update bot
 #
-#    Copyright (C) 2016-2017  Balthasar Szczepański
+# Copyright (C) 2016, 2017, 2023  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
-#    published by the Free Software Foundation, either version 3 of the
-#    License, or (at your option) any later version.
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as
+# published by the Free Software Foundation, either version 3 of the
+# License, or (at your option) any later version.
 #
-#    This program is distributed in the hope that it will be useful,
-#    but WITHOUT ANY WARRANTY; without even the implied warranty of
-#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-#    GNU Affero General Public License for more details.
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
 #
-#    You should have received a copy of the GNU Affero General Public License
-#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+# You should have received a copy of the GNU Affero General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 use strict;
 #use warnings;
-###LIB;
+###PERL_LIB: use lib /botm/lib/bsta
 use bsta_lib qw(readdatafile writedatafile);
 use File::Copy;
 
-###DATA_PATH;
-###WWW_PATH;
-###SETTINGS_PATH;
-###STATE_PATH;
-###DEFAULT_PATH;
-###LIST_PATH;
+###PERL_DATA_PATH:      DATA_PATH      = /botm/data/bsta/
+###PERL_DATA_LIST_PATH: DATA_LIST_PATH = /botm/data/bsta/list
 
 my %framedata;
 my %gotolist;
 
 my $frame;
 
-%gotolist=readdatafile(LIST_PATH);
+%gotolist=readdatafile(DATA_LIST_PATH);
 
 for($frame=0; ; ++$frame) {
        %framedata=readdatafile(DATA_PATH.$frame);
@@ -52,4 +47,4 @@ for($frame=0; ; ++$frame) {
        $gotolist{'ongtime-'.$frame}=$framedata{'ongtime'};
 }
 
-writedatafile (LIST_PATH,%gotolist);
+writedatafile (DATA_LIST_PATH,%gotolist);