3 # infobot -- copyright kevin lenzo (c) 1997-1999
4 # blootbot -- copyright david sobon (c) 1999-infinity
7 use vars qw($bot_base_dir $bot_src_dir $bot_misc_dir $bot_state_dir
8 $bot_data_dir $bot_config_dir $bot_log_dir $bot_run_dir
9 $bot_pid $memusage %param $fhs
15 if (@ARGV and -f $ARGV[0]) {
16 # source passed config to allow $bot_*_dir to be set.
20 # set any $bot_*_dir var's that aren't already set
21 $bot_base_dir ||= '.';
22 $bot_config_dir ||= 'files/';
23 $bot_data_dir ||= 'files/';
24 $bot_state_dir ||= 'files/';
26 $bot_src_dir ||= "$bot_base_dir/src";
27 $bot_log_dir ||= "$bot_base_dir/log";
28 $bot_misc_dir ||= "$bot_base_dir/files";
32 require "$bot_src_dir/logger.pl";
33 require "$bot_src_dir/core.pl";
34 require "$bot_src_dir/interface.pl";
35 require "$bot_src_dir/modules.pl";
37 # load the configuration (params) file.
40 &showProc(); # to get the first value.
41 &status("Initial memory usage: $memusage kB");
44 &loadFactoidsModules();
47 &status("Memory usage after loading modules: $memusage kB");
50 # prevent duplicate processes of the same bot
53 # initialize everything
54 &startup(); # first time initialization.
57 if (!&IsParam("Interface") or $param{'Interface'} =~ /IRC/) {
58 # launch the irc event loop
64 exit 0; # just so you don't look farther down in this file :)
66 # --- support routines
69 # add arguments, basically '-h' and '--help', heh.
75 my $file = $file{PID};
78 open(PIDFILE,$file) or die "error: cannot open $file.";
79 my $thispid = <PIDFILE> || "NULL\n";
83 if ($thispid =~ /^\D$/) {
84 &staus("warning: pidfile is invalid; wiping out.");
86 if ( -d "/proc/$thispid/") {
87 &ERROR("bot is already running from this directory.");
88 &ERROR("if this is incorrect, erase '*.pid'.");
89 &ERROR("verify with 'ps -axu | grep $thispid'.");
92 &status("warning: stale $file found; wiping.");
97 open(PIDFILE,">$file") or die "error: cannot write to $file.";
98 print PIDFILE "$pid\n";