--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/tool-trim.c	Sat Dec 06 04:37:05 1997 +0000
@@ -0,0 +1,162 @@
+/*--------------------------------------------------------------------------
+NETREK II -- Paradise
+
+Permission to use, copy, modify, and distribute this software and its
+documentation, or any derivative works thereof, for any NON-COMMERCIAL
+purpose and without fee is hereby granted, provided that this copyright
+notice appear in all copies.  No representations are made about the
+suitability of this software for any purpose.  This software is provided
+"as is" without express or implied warranty.
+
+    Xtrek Copyright 1986                            Chris Guthrie
+    Netrek (Xtrek II) Copyright 1989                Kevin P. Smith
+                                                    Scott Silvey
+    Paradise II (Netrek II) Copyright 1993          Larry Denys
+                                                    Kurt Olsen
+                                                    Brandon Gillespie
+--------------------------------------------------------------------------*/
+
+/*
+ * Kevin P. Smith      12/05/88
+ * 
+ * Modified for Paradise by Rob Forsman 1993 Cleaned up by Brandon Gillespie
+ * Sept 17 1994
+ */
+
+#include "config.h"
+
+#include <stdio.h>
+#include <sys/types.h>
+#include <sys/file.h>
+#include <pwd.h>
+#include "defs.h"
+#include "data.h"
+#include "struct.h"
+
+struct statentry player2;
+/* struct status globals; */
+struct rawdesc *output = NULL;
+char mode;
+
+/* prototypes */
+void trimblanks2(char *str);
+void trimblanks(char *str);
+void usage(char *me);
+
+main(argc, argv)
+  int argc;
+  char **argv;
+{
+  int fd;
+  struct statentry plstats;
+  int i;
+  char buf[512];
+  int harsh = 10;		/* How strict we will be with player trimming */
+  char *me;
+  char *path;
+  FILE *infile = stdin;		/* these used to actually read in from the
+				 * actual file, Rob changed them to
+				 * stdin/out, and I don't mind them that way
+				 * (it actually makes it a little easier */
+  FILE *outfile = stdout;
+
+  me = *argv;
+
+  if (argc == 2)
+  {
+    if (*argv[1] == '-')
+      usage(me);
+    else
+      harsh = atoi(argv[1]);
+  }
+
+  if (argc > 2 || harsh <= 0)
+    usage(me);
+
+  fprintf(stderr, "%s: If you do not know how to use this program, break now and type '%s -h'\n", me, me);
+
+  i = 0;
+  while (1 == fread(&plstats, sizeof(plstats), 1, infile))
+  {
+    /* Player 0 is always saved. */
+    /*
+     * This formula reads: If (deadtime - (10 + rank^2 + playtime/2.4)*n days
+     * > 0), nuke him.
+     */
+    if (i != 0
+	&& harsh < 100
+	&& ((time(NULL) - plstats.stats.st_lastlogin) >
+	    (10 +
+	     plstats.stats.st_rank * plstats.stats.st_rank +
+	     (plstats.stats.st_tticks +
+	      plstats.stats.st_sbticks +
+	      plstats.stats.st_wbticks +
+	      plstats.stats.st_jsticks) / 2.4) * harsh * 24 * 60 * 60)
+      )
+    {
+      fprintf(stderr,
+	      "%-16.16s %7.2f   %4d   %4d   %4d   %4d\n",
+	      plstats.name,
+	      plstats.stats.st_tticks / 36000.0,
+	      plstats.stats.st_tplanets,
+	      player2.stats.st_tarmsbomb,
+	      player2.stats.st_tkills,
+	      player2.stats.st_tlosses);
+      continue;
+    }
+    if (outfile)
+    {
+      fwrite(&plstats, sizeof(plstats), 1, outfile);
+    }
+    i++;
+  }
+  exit(0);
+}
+
+void 
+usage(char *me)
+{
+  int x;
+  char message[][255] = {
+    "\n\t'%s [n] < old-playerdb > new-playerdb'\n",
+    "\nThis program trims a player database file.  The level of niceness is\n",
+    "determined by 'n' (default: 10).  The old player database is read from stdin,\n",
+    "the new player database is written to stdout, a quick description of players\n",
+    "who were removed is written to stderr.  It will remove any character who\n",
+    "has not played for n*10 days, as well as giving some other consideration\n",
+    "to their varied statistics.  The actual formula is:\n\n",
+    "\tIf (deadtime - (10 + rank^2 + playtime/2.4)*n days > 0), nuke him.\n\n"
+  };
+
+  fprintf(stderr, "-- NetrekII (Paradise), %s --\n", PARAVERS);
+  for (x = 0; *message[x] != '\0'; x++)
+    fprintf(stderr, message[x], me);
+
+  exit(0);
+}
+
+void 
+trimblanks2(char *str)
+{
+  *str = 0;
+  str--;
+  while (*str == ' ')
+  {
+    *str = 0;
+    str--;
+  }
+  if (*str == '_')
+    *str = 0;
+}
+
+void 
+trimblanks(char *str)
+{
+  *str = 0;
+  str--;
+  while (*str == ' ')
+  {
+    *str = 0;
+    str--;
+  }
+}