# blootbot -- copyright david sobon (c) 1999-infinity
use strict;
-use vars qw($bot_base_dir $bot_src_dir $bot_misc_dir
+use vars qw($bot_base_dir $bot_src_dir $bot_misc_dir $bot_state_dir
+ $bot_data_dir $bot_config_dir $bot_log_dir $bot_run_dir
$bot_pid $memusage %param
);
BEGIN {
- # set this to the absolute path if you need it; especially
- # if . is not in your path
+ if (@ARGV and -f $ARGV[0]) {
+ # source passed config to allow $bot_*_dir to be set.
+ do $ARGV[0];
+ }
+
+ # set any $bot_*_dir var's that aren't already set
+ $bot_base_dir ||= '.';
+ $bot_config_dir ||= 'files/';
+ $bot_data_dir ||= 'files/';
+ $bot_state_dir ||= 'files/';
+ $bot_run_dir ||= '.';
+ $bot_src_dir ||= "$bot_base_dir/src";
+ $bot_log_dir ||= "$bot_base_dir/log";
+ $bot_misc_dir ||= "$bot_base_dir/files";
- $bot_base_dir = '.';
- $bot_src_dir = "$bot_base_dir/src";
- $bot_misc_dir = "$bot_base_dir/files";
$bot_pid = $$;
require "$bot_src_dir/logger.pl";
require "$bot_src_dir/core.pl";
- require "$bot_src_dir/interface.pl";
require "$bot_src_dir/modules.pl";
# load the configuration (params) file.
# prevent duplicate processes of the same bot
&duperuncheck();
-# initialize everything
+# initialize everything
&startup(); # first time initialization.
&setup();
# --- support routines
-# FIXME.
-# add arguments, basically '-h' and '--help', heh.
-#
+# FIXME: add arguments, basically '-h' and '--help', heh.
# added by the xk
sub duperuncheck {