From 1b856e06618251478b066c9eedf23d1f46c31ee4 Mon Sep 17 00:00:00 2001
From: gmlb <gmlb@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Mon, 31 Jul 2000 14:57:17 +0000
Subject: [PATCH] Removed old infobot. We are now using blootbot as the main
script
git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@23 c11ca15a-4712-0410-83d8-924469b57eb5
---
infobot | 93 ---------------------------------------------------------
1 file changed, 93 deletions(-)
delete mode 100755 infobot
diff --git a/infobot b/infobot
deleted file mode 100755
index e53ed5b..0000000
--- a/infobot
+++ /dev/null
@@ -1,93 +0,0 @@
-#!/usr/bin/perl
-
-# infobot -- copyright kevin lenzo (c) 1997-infinity
-# no warrantee expressed or implied. terms as the
-# license for X11R6 when needed.
-
-use strict;
-use vars qw($infobot_base_dir $infobot_src_dir $infobot_misc_dir
- $infobot_pid $memusage %param
-);
-
-BEGIN {
- # set this to the absolute path if you need it; especially
- # if . is not in your path
-
- $infobot_base_dir = '.';
- $infobot_src_dir = "$infobot_base_dir/src";
- $infobot_misc_dir = "$infobot_base_dir/files";
- $infobot_pid = $$;
-
- require "$infobot_src_dir/logger.pl";
- require "$infobot_src_dir/core.pl";
- require "$infobot_src_dir/interface.pl";
- require "$infobot_src_dir/modules.pl";
-
- # load the configuration (params) file.
- &setupConfig();
-
- &showProc(); # to get the first value.
- &status("Initial memory usage: $memusage kB");
- &loadCoreModules();
- &loadDBModules();
- &loadFactoidsModules();
- &loadIRCModules();
-
- &status("Memory usage after loading modules: $memusage kB");
-}
-
-# prevent duplicate processes of the same bot
-&duperuncheck();
-
-# initialize everything
-&startup(); # first time initialization.
-&setup();
-
-if (!&IsParam("Interface") or $param{'Interface'} =~ /IRC/) {
- # launch the irc event loop
- &ircloop();
-} else {
- &cliloop();
-}
-
-exit 0; # just so you don't look farther down in this file :)
-
-# --- support routines
-
-# FIXME.
-# add arguments, basically '-h' and '--help', heh.
-#
-
-# added by the xk
-sub duperuncheck {
- my $pid = $$;
- my $file = $file{PID};
-
- if ( -f $file) {
- open(PIDFILE,$file) or die "error: cannot open $file.";
- my $thispid = <PIDFILE> || "NULL\n";
- close PIDFILE;
- chop $thispid;
-
- if ($thispid =~ /^\D$/) {
- &staus("warning: pidfile is invalid; wiping out.");
- } else {
- if ( -d "/proc/$thispid/") {
- &ERROR("bot is already running from this directory.");
- &ERROR("if this is incorrect, erase '*.pid'.");
- &ERROR("verify with 'ps -axu | grep $thispid'.");
- exit 1;
- } else {
- &status("warning: stale $file found; wiping.");
- }
- }
- }
-
- open(PIDFILE,">$file") or die "error: cannot write to $file.";
- print PIDFILE "$pid\n";
- close PIDFILE;
-
- return 0;
-}
-
-1;
--
2.39.5