Setting up 3.5.0 as trunk

2006-12-19 22:56:18 +00:00
parent 0ddbd8b56e
commit 99e3aa4d8b
1336 changed files with 514917 additions and 0 deletions
--- a/autorun.pl
+++ b/autorun.pl
@@ -0,0 +1,108 @@
+#!/usr/bin/perl
+# autorun -- maintain a Circle V3.0 mud server
+# Copyright (c)1995 Vi'Rage Studios
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+# csh original by Fred C. Merkel, PERL conversion by D. Hall
+
+# .fastboot	sleep for only 5 seconds, instead of the default 20
+# .killscript	script will exit, and mud will not reboot
+# .pause	pause (sleep 1 minute intervals) until .pause it removed
+
+$port	= 4000;
+$flags	= "-q";
+
+$home	= ".";
+$bin	= "$home/bin";
+$lib	= "$home/lib";
+$log	= "$home/log";
+
+chdir $home;
+
+while (1) {
+
+  # Open SYSLOG and dup STDERR into SYSLOG
+  open (SYSLOG, ">> syslog");
+  open (STDERR, ">& SYSLOG");
+  
+  print SYSLOG "autoscript starting game ", `date`;
+  open (SERVER, "bin/circle $flags $port |");
+  
+  while (<SERVER>) {
+    print SYSLOG;
+  }
+  
+  # First we open everything
+  open (SYSLOG, "<syslog");
+  open (DELETE, ">>log/delete");
+  open (DTRAPS, ">>log/dtraps");
+  open (DEATHS, ">>log/deaths");
+  open (REBOOT, ">>log/reboots");
+  open (LEVELS, ">>log/levels");
+  open (NORENT, ">>log/norent");
+  open (USAGE,  ">>log/usage");
+  open (NEWPLR, ">>log/newplrs");
+  open (SYSERR, ">>log/errors");
+  open (GODCMD, ">>log/godcmds");
+  open (BADPWS, ">>log/badpws");
+  
+  # Then we stash everything
+  while (<SYSLOG>) {
+    print DELETE if /self-delete/;
+    print DELETE if /PCLEAN/;
+    print DTRAPS if /death trap/;
+    print DEATHS if /killed/;
+    print REBOOT if /Running/;
+    print LEVELS if /advanced/;
+    print NORENT if /equipment lost/;
+    print USAGE  if /usage/;
+    print NEWPLR if /new player/;
+    print SYSERR if /SYSERR/;
+    print GODCMD if /\(GC\)/;
+    print BADPWs if /Bad PW/;
+  }
+  close (SYSLOG);
+  
+  # Rotate SYSLOG files
+  unlink ('log/syslog.6');
+  rename ('log/syslog.5', 'log/syslog.6');
+  rename ('log/syslog.4', 'log/syslog.5');
+  rename ('log/syslog.3', 'log/syslog.4');
+  rename ('log/syslog.2', 'log/syslog.3');
+  rename ('log/syslog.1', 'log/syslog.2');
+  rename ('syslog'      , 'log/syslog.1');
+  
+  # should we stay dead?
+  if (-r '.killscript') {
+    unlink '.killscript';
+    open (SYSLOG, '>> log/syslog.1');
+    print SYSLOG "autoscript killed ", `date`;
+    exit;
+  }
+  
+  # or just play dead?
+  while (-r '.pause') {
+    sleep 60;
+  }
+
+  # or reboot as soon as possible?
+  if (-r '.fastboot') {
+    unlink '.fastboot';
+    sleep 5;
+  } else {
+    sleep 20
+  }
+}