-#!/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 ||= '.';
- $bot_config_dir ||= 'files/';
- $bot_data_dir ||= 'files/';
- $bot_state_dir ||= 'files/';
- $bot_run_dir ||= '.';
+ $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_run_dir ||= "$bot_base_dir";
$bot_src_dir ||= "$bot_base_dir/src";
$bot_log_dir ||= "$bot_base_dir/log";
- $bot_misc_dir ||= "$bot_base_dir/files";
+ $bot_misc_dir ||= "$bot_base_dir/files";
$bot_pid = $$;
+ $bot_base_dir = $bot_state_dir;
+
+ unshift @INC,"$bot_src_dir","$bot_src_dir/Modules";
+
require "$bot_src_dir/logger.pl";
require "$bot_src_dir/core.pl";
require "$bot_src_dir/modules.pl";
}
1;
-
-# vim:ts=4:sw=4:expandtab:tw=80