join debugging

[infobot.git] / infobot

diff --git a/infobot b/infobot
index 7fc8989620ba232a27501471b6ebb4502ede2bd2..2c58f3921cb7e3d493e96eb1f357d711d0d2f279 100755 (executable)
--- a/infobot
+++ b/infobot
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 # infobot
 # copyright kevin lenzo (c) 1997-1999
@@ -11,6 +11,10 @@ use vars qw($bot_base_dir $bot_src_dir $bot_misc_dir $bot_state_dir
   $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] ) {
 
@@ -19,17 +23,22 @@ BEGIN {
     }
 
     # 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";
@@ -104,5 +113,3 @@ sub duperuncheck {
 }
 
 1;
-
-# vim:ts=4:sw=4:expandtab:tw=80