4 # copyright kevin lenzo (c) 1997-1999
5 # copyright david sobon (c) 1999-infinity
6 # Copyright (c) 2001-2008 Tim Riker <Tim@Rikers.org>
9 use vars qw($bot_base_dir $bot_src_dir $bot_misc_dir $bot_state_dir
10 $bot_data_dir $bot_config_dir $bot_log_dir $bot_run_dir
11 $bot_pid $memusage %param
14 # ancient Perl may not like these, but modern systems should have this
17 use Encode qw( decode FB_QUIET );
20 if ( @ARGV and -f $ARGV[0] ) {
22 # source passed config to allow $bot_*_dir to be set.
26 # set any $bot_*_dir var's that aren't already set
27 $bot_base_dir ||= `pwd`;
29 $bot_config_dir ||= "$bot_base_dir/files/";
30 $bot_data_dir ||= "$bot_base_dir/files/";
31 $bot_state_dir ||= "$bot_base_dir/files/";
32 $bot_run_dir ||= "$bot_base_dir";
33 $bot_src_dir ||= "$bot_base_dir/src";
34 $bot_log_dir ||= "$bot_base_dir/log";
35 $bot_misc_dir ||= "$bot_base_dir/files";
39 $bot_base_dir = $bot_state_dir;
41 unshift @INC,"$bot_src_dir","$bot_src_dir/Modules";
43 require "$bot_src_dir/logger.pl";
44 require "$bot_src_dir/core.pl";
45 require "$bot_src_dir/modules.pl";
47 # load the configuration (params) file.
50 &showProc(); # to get the first value.
51 &status("Initial memory usage: $memusage kB");
54 &loadFactoidsModules();
57 &status("Memory usage after loading modules: $memusage kB");
60 # prevent duplicate processes of the same bot
63 # initialize everything
64 &startup(); # first time initialization.
67 if ( !&IsParam("Interface") or $param{'Interface'} =~ /IRC/ ) {
69 # launch the irc event loop
76 exit 0; # just so you don't look farther down in this file :)
78 # --- support routines
80 # FIXME: add arguments, basically '-h' and '--help', heh.
85 my $file = $file{PID};
88 open( PIDFILE, $file ) or die "error: cannot open $file.";
89 my $thispid = <PIDFILE> || "NULL\n";
93 if ( $thispid =~ /^\D$/ ) {
94 &staus("warning: pidfile is invalid; wiping out.");
97 if ( -d "/proc/$thispid/" ) {
98 &ERROR("bot is already running from this directory.");
99 &ERROR("if this is incorrect, erase '*.pid'.");
100 &ERROR("verify with 'ps -axu | grep $thispid'.");
104 &status("warning: stale $file found; wiping.");
109 open( PIDFILE, ">$file" ) or die "error: cannot write to $file.";
110 print PIDFILE "$pid\n";