1 ###RUN_PERL: #!/usr/bin/perl
3 # reset is generated from reset.1.pl.
7 # Copyright (C) 2016, 2017, 2018, 2023, 2024 Balthasar SzczepaĆski
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.
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.
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/>.
24 use Encode::Locale ('decode_argv');
25 use Encode ('encode', 'decode');
27 ###PERL_LIB: use lib /botm/lib/bsta
29 'read_data_file', 'write_data_file',
30 'opendir_encoded', 'readdir_decoded', 'unlink_encoded',
34 'STATE', 'INTF_STATE', 'CHAT_STATE',
38 binmode STDIN, ':encoding(UTF-8)';
39 binmode STDOUT, ':encoding(UTF-8)';
40 binmode STDERR, ':encoding(UTF-8)';
43 ###PERL_PATH_SEPARATOR: PATH_SEPARATOR = /
45 ###PERL_DATA_CHAT_PATH: DATA_CHAT_PATH = /botm/data/bsta/chat
46 ###PERL_DATA_LIST_PATH: DATA_LIST_PATH = /botm/data/bsta/list
47 ###PERL_DATA_SETTINGS_PATH: DATA_SETTINGS_PATH = /botm/data/bsta/state
48 ###PERL_DATA_STATE_PATH: DATA_STATE_PATH = /botm/data/bsta/state
49 ###PERL_DATA_STORY_PATH: DATA_STORY_PATH = /botm/data/bsta/story
50 ###PERL_DATA_WORDS_PATH: DATA_WORDS_PATH = /botm/data/bsta/words/
52 ###PERL_RESET_PASSWORD: RESET_PASSWORD = ''
60 delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
61 ###PERL_SET_PATH: $ENV{'PATH'} = /usr/local/bin:/usr/bin:/bin;
63 %settings = read_data_file(DATA_SETTINGS_PATH());
66 ($ARGV[0] eq $settings{'password'}) ||
67 ($ARGV[0] eq RESET_PASSWORD())
70 print STDERR "Wrong password; no reset.\n";
75 'state' => STATE->{'inactive'},
86 'lastip' => '0.0.0.0',
89 'state' => INTF_STATE->{'X'}
93 'state' => CHAT_STATE->{'disconnected'},
99 write_data_file(DATA_STATE_PATH(), \%state);
100 write_data_file(DATA_STORY_PATH(), \%story);
101 write_data_file(DATA_CHAT_PATH() , \%chat);
102 write_data_file(DATA_LIST_PATH() , \%goto_list);
112 if (opendir_encoded(my $dir, DATA_WORDS_PATH())) {
113 while (my $file_name = readdir_decoded($dir)) {
114 if ($file_name !~ /^[0-9]+$/) {
117 my $full_path = join_path(PATH_SEPARATOR(), DATA_WORDS_PATH(), $file_name);
118 unlink_encoded ($full_path);