#!/usr/bin/perl
-# infobot -- copyright kevin lenzo (c) 1997-infinity
-# no warrantee expressed or implied. terms as the
-# license for X11R6 when needed.
+# infobot -- copyright kevin lenzo (c) 1997-1999
+# blootbot -- copyright david sobon (c) 1999-infinity
use strict;
-use vars qw($infobot_base_dir $infobot_src_dir $infobot_misc_dir
- $infobot_pid $memusage %param
+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";
- $infobot_base_dir = '.';
- $infobot_src_dir = "$infobot_base_dir/src";
- $infobot_misc_dir = "$infobot_base_dir/files";
- $infobot_pid = $$;
+ $bot_pid = $$;
- require "$infobot_src_dir/logger.pl";
- require "$infobot_src_dir/core.pl";
- require "$infobot_src_dir/interface.pl";
- require "$infobot_src_dir/modules.pl";
+ require "$bot_src_dir/logger.pl";
+ require "$bot_src_dir/core.pl";
+ require "$bot_src_dir/modules.pl";
# load the configuration (params) file.
&setupConfig();
# 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 {