Done comment system

[ott/bsta] / reset.1.pl

diff --git a/reset.1.pl b/reset.1.pl
index b289b5e5ec7fa6a35b871c59e41b384659a206e3..00f612988f81fcb311e18cc7675842040c79d349 100644 (file)
--- a/reset.1.pl
+++ b/reset.1.pl
@@ -27,6 +27,8 @@ use Encode ('encode', 'decode');
 ###PERL_LIB: use lib /botm/lib/bsta
 use botm_common (
        'read_data_file', 'write_data_file',
+       'opendir_encoded', 'readdir_decoded', 'unlink_encoded',
+       'join_path'
 );
 use bsta_lib (
        'STATE', 'INTF_STATE', 'CHAT_STATE',
@@ -38,11 +40,14 @@ binmode STDOUT, ':encoding(UTF-8)';
 binmode STDERR, ':encoding(UTF-8)';
 decode_argv();
 
+###PERL_PATH_SEPARATOR:     PATH_SEPARATOR     = /
+
 ###PERL_DATA_CHAT_PATH:     DATA_CHAT_PATH     = /botm/data/bsta/chat
 ###PERL_DATA_LIST_PATH:     DATA_LIST_PATH     = /botm/data/bsta/list
 ###PERL_DATA_SETTINGS_PATH: DATA_SETTINGS_PATH = /botm/data/bsta/state
 ###PERL_DATA_STATE_PATH:    DATA_STATE_PATH    = /botm/data/bsta/state
 ###PERL_DATA_STORY_PATH:    DATA_STORY_PATH    = /botm/data/bsta/story
+###PERL_DATA_WORDS_PATH:    DATA_WORDS_PATH    = /botm/data/bsta/words/
 
 ###PERL_RESET_PASSWORD:     RESET_PASSWORD     = ''
 
@@ -91,10 +96,10 @@ unless (
 %goto_list = (
 );
 
-write_data_file(DATA_STATE_PATH(), '', '', \%state);
-write_data_file(DATA_STORY_PATH(), '', '', \%story);
-write_data_file(DATA_CHAT_PATH() , '', '', \%chat);
-write_data_file(DATA_LIST_PATH() , '', '', \%goto_list);
+write_data_file(DATA_STATE_PATH(), \%state);
+write_data_file(DATA_STORY_PATH(), \%story);
+write_data_file(DATA_CHAT_PATH() , \%chat);
+write_data_file(DATA_LIST_PATH() , \%goto_list);
 
 write_index(
        \%state,
@@ -103,3 +108,16 @@ write_index(
        $story{'state'},
        0 # pause
 );
+
+if (opendir_encoded(my $dir, DATA_WORDS_PATH())) {
+       print DATA_WORDS_PATH()."\n";
+       while (my $file_name = readdir_decoded($dir)) {
+               print $file_name."\n";
+               if ($file_name !~ /^[0-9]+$/) {
+                       next;
+               }
+               my $full_path = join_path(PATH_SEPARATOR(), DATA_WORDS_PATH(), $file_name);
+               print $full_path."\n";
+               unlink_encoded ($full_path);
+       }
+}
\ No newline at end of file