-#!/usr/bin/perl
+#!/usr/bin/perl -w
# infobot
# copyright kevin lenzo (c) 1997-1999
$bot_pid $memusage %param
);
+# ancient Perl may not like these, but modern systems should have this
+use open ':utf8';
+use open ':std';
+
BEGIN {
if ( @ARGV and -f $ARGV[0] ) {
}
# set any $bot_*_dir var's that aren't already set
- $bot_base_dir ||= '/SOME/DIRECTORY/HERE';
+ $bot_base_dir ||= `pwd`;
+ chomp($bot_base_dir);
$bot_config_dir ||= "$bot_base_dir/files/";
$bot_data_dir ||= "$bot_base_dir/files/";
$bot_state_dir ||= "$bot_base_dir/files/";
$bot_log_dir ||= "$bot_base_dir/log";
$bot_misc_dir ||= "$bot_base_dir/files";
- require "$bot_config_dir/directories";
-
$bot_pid = $$;
$bot_base_dir = $bot_state_dir;