X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2Fcore.pl;h=b95f06f0c2170f2b8f7003cf8143e9eaaae5dbc7;hb=f0a00b56d1497c3b3f0d33e0d57e5d31a0161a55;hp=de835cbf772303a13b8f45f6bb29d83a96d22791;hpb=0a241de1cc04678cd76aaff8a55d449afb99e2f1;p=infobot.git

diff --git a/src/core.pl b/src/core.pl
index de835cb..b95f06f 100644
--- a/src/core.pl
+++ b/src/core.pl
@@ -11,9 +11,9 @@ use strict;
 ### TODO: reorder.
 use vars qw(
 	$answer $correction_plausible $loggingstatus $talkchannel
-	$statcount $memusage $user $memusageOld $infobot_version $dbh
-	$shm $host $msg $infobot_misc_dir $infobot_pid $infobot_base_dir 
-	$infobot_src_dir $conn $irc $learnok $nick $ident $no_syscall
+	$statcount $memusage $user $memusageOld $bot_version $dbh
+	$shm $host $msg $bot_misc_dir $bot_pid $bot_base_dir $noreply
+	$bot_src_dir $conn $irc $learnok $nick $ident $no_syscall
 	$force_public_reply $addrchar $userHandle $addressedother
 	$floodwho $chan $msgtime $server $firsttime $wingaterun
 );
@@ -35,6 +35,7 @@ $SIG{'KILL'} = 'doExit';  #  9. DOES NOT WORK. 'man perlipc' for details.
 $SIG{'TERM'} = 'doExit';  # 15.
 $SIG{'__WARN__'} = 'doWarn';
 
+# initialize variables.
 $last{buflen}	= 0;
 $last{say}	= "";
 $last{msg}	= "";
@@ -42,7 +43,10 @@ $userHandle	= "default";
 $msgtime	= time();
 $wingaterun	= time();
 $firsttime	= 1;
-$infobot_version = "blootbot 1.0.0 (20000725) -- $^O";
+
+### CHANGE TO STATIC.
+$bot_version = "blootbot 1.0.0 (20000725) -- $^O";
+$noreply	 = "NOREPLY";
 
 ##########
 ### misc commands.
@@ -51,9 +55,9 @@ $infobot_version = "blootbot 1.0.0 (20000725) -- $^O";
 sub doExit {
     my ($sig) = @_;
 
-    if (!defined $infobot_pid) {	# independent.
+    if (!defined $bot_pid) {	# independent.
 	exit 0;
-    } elsif ($infobot_pid == $$) {	# parent.
+    } elsif ($bot_pid == $$) {	# parent.
 	&status("parent caught SIG$sig (pid $$).") if (defined $sig);
 
 	my $type;
@@ -137,10 +141,10 @@ sub setup {
     &openLog();		# write, append.
 
     # read.
-    &loadIgnore($infobot_misc_dir."/infobot.ignore");
-    &loadLang($infobot_misc_dir."/infobot.lang");
-    &loadIRCServers($infobot_misc_dir."/ircII.servers");
-    &loadUsers($infobot_misc_dir."/infobot.users");
+    &loadIgnore($bot_misc_dir.		"/blootbot.ignore");
+    &loadLang($bot_misc_dir.		"/blootbot.lang");
+    &loadIRCServers($bot_misc_dir.	"/ircII.servers");
+    &loadUsers($bot_misc_dir.		"/blootbot.users");
 
     $shm = &openSHM();
     &openDB();
@@ -151,7 +155,7 @@ sub setup {
 }
 
 sub setupConfig {
-    &loadConfig($infobot_misc_dir."/infobot.config");
+    &loadConfig($bot_misc_dir."/blootbot.config");
 
     foreach ("ircNick", "ircUser", "ircName", "DBType") {
 	next if &IsParam($_);
@@ -160,8 +164,8 @@ sub setupConfig {
     }
 
     # static scalar variables.
-    $file{utm}	= "$infobot_base_dir/$param{'ircUser'}.uptime";
-    $file{PID}	= "$infobot_base_dir/$param{'ircUser'}.pid";
+    $file{utm}	= "$bot_base_dir/$param{'ircUser'}.uptime";
+    $file{PID}	= "$bot_base_dir/$param{'ircUser'}.pid";
 }
 
 sub startup {
@@ -188,7 +192,7 @@ sub shutdown {
 sub restart {
     my ($sig) = @_;
 
-    if ($$ == $infobot_pid) {
+    if ($$ == $bot_pid) {
 	&status("$sig called.");
 
 	### crappy bug in Net::IRC?
@@ -200,7 +204,7 @@ sub restart {
 	}
 
 	&shutdown();
-	&loadConfig($infobot_misc_dir."/infobot.config");
+	&loadConfig($bot_misc_dir."/blootbot.config");
 	&reloadModules() if (&IsParam("DEBUG"));
 	&setup();
 
@@ -216,8 +220,8 @@ sub loadConfig {
 
     if (!open(FILE, $file)) {
 	&ERROR("FAILED loadConfig ($file): $!");
-	&status("Please copy files/sample.config to files/infobot.config");
-	&status("  and edit files/infobot.config, modify to tastes.");
+	&status("Please copy files/sample.config to files/blootbot.config");
+	&status("  and edit files/blootbot.config, modify to tastes.");
 	exit 0;
     }