--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/getname.c	Sat Dec 06 04:37:03 1997 +0000
@@ -0,0 +1,287 @@
+/*--------------------------------------------------------------------------
+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
+--------------------------------------------------------------------------*/
+
+#include "config.h"
+#include <stdio.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <sys/file.h>
+#include <sys/ipc.h>
+#include <sys/shm.h>
+#include <sys/time.h>
+#ifndef ULTRIX
+#include <sys/fcntl.h>
+#endif
+#include <errno.h>
+#include <pwd.h>
+#include <string.h>
+#include <ctype.h>
+#include <time.h>
+#include "defs.h"
+#include "struct.h"
+#include "data.h"
+#include "packets.h"
+#include "path.h"
+#include "shmem.h"
+
+#define crypt(a, b) (a)
+
+void handleLogin();
+extern int exitGame();
+extern int isClientDead();
+extern int socketPause();
+extern int readFromClient();
+int lockout();
+extern int sendClientLogin();
+extern int flushSockBuf();
+#ifdef BAD_SVR4_HACKS
+int updateMOTD();
+#else
+extern int updateMOTD();
+#endif
+#ifndef	IRIX
+extern int printf();
+#endif
+extern int read();
+extern int close();
+extern off_t lseek();
+extern int write();
+extern time_t time();
+
+/* replace non-printable characters in string with spaces */
+static void
+remove_ctl(str)
+  char *str;
+{
+  while (*str)
+  {
+    if (!isgraph(*str))		/* not a printable character */
+      *str = ' ';		/* replace it with space */
+    str++;
+  }
+}
+
+void
+getname()
+/* Let person identify themselves from w */
+{
+  *(me->p_name) = 0;
+  while (*(me->p_name) == 0)
+  {
+    handleLogin();
+  }
+}
+
+void
+handleLogin()
+{
+  static struct statentry player;
+  static int position = -1;
+  int plfd;
+  int entries;
+  struct stat buf;
+  char *paths;
+
+  paths = build_path(PLAYERFILE);
+  *namePick = '\0';
+  inputMask = CP_LOGIN;
+  while (*namePick == '\0')
+  {
+    /* Been ghostbusted? */
+    if (me->p_status == PFREE)
+      exitGame();
+    if (isClientDead())
+      exitGame();
+    socketPause();
+    readFromClient();
+  }
+#ifdef REMOVE_CTL		/* untested */
+  /* Change those annoying control characters to spaces */
+  remove_ctl(namePick);
+#endif
+  if ((strcmp(namePick, "Guest") == 0 || strcmp(namePick, "guest") == 0) &&
+      !lockout())
+  {
+    hourratio = 5;
+    memset(&player.stats, 0, sizeof(struct stats));
+    player.stats.st_tticks = 1;
+    player.stats.st_flags = ST_INITIAL;
+    /*
+     * If this is a query on Guest, the client is screwed, but I'll send him
+     * some crud anyway.
+     */
+    if (passPick[15] != 0)
+    {
+      sendClientLogin(&player.stats);
+      flushSockBuf();
+      return;
+    }
+    sendClientLogin(&player.stats);
+
+    updateMOTD();		/* added here 1/19/93 KAO */
+
+    flushSockBuf();
+    strcpy(me->p_name, namePick);
+    me->p_pos = -1;
+    memcpy(&(me->p_stats), &player.stats, sizeof(struct stats));
+    return;
+  }
+  hourratio = 1;
+  /* We look for the guy in the stat file */
+  if (strcmp(player.name, namePick) != 0)
+  {
+    for (;;)
+    {				/* so I can use break; */
+      plfd = open(paths, O_RDONLY, 0644);
+      if (plfd < 0)
+      {
+	printf("I cannot open the player file!\n");
+	strcpy(player.name, namePick);
+	position = -1;
+	printf("Error number: %d\n", errno);
+	break;
+      }
+      position = 0;
+      while (read(plfd, (char *) &player, sizeof(struct statentry)) ==
+	     sizeof(struct statentry))
+      {
+#ifdef REMOVE_CTL		/* untested */
+	/*
+	 * this is a temporary thing to remove control chars from existing
+	 * entries in the player db
+	 */
+	remove_ctl(player.name);
+#endif
+	if (strcmp(namePick, player.name) == 0)
+	{
+	  close(plfd);
+	  break;
+	}
+	position++;
+      }
+      if (strcmp(namePick, player.name) == 0)
+	break;
+      close(plfd);
+      position = -1;
+      strcpy(player.name, namePick);
+      break;
+    }
+  }
+  /* Was this just a query? */
+  if (passPick[15] != 0)
+  {
+    if (position == -1)
+    {
+      sendClientLogin(NULL);
+    }
+    else
+    {
+      sendClientLogin(&player.stats);
+    }
+    flushSockBuf();
+    return;
+  }
+  /* A new guy? */
+  if ((position == -1) && !lockout())
+  {
+    strcpy(player.name, namePick);
+    strcpy(player.password, crypt(passPick, namePick));
+    memset(&player.stats, 0, sizeof(struct stats));
+    player.stats.st_tticks = 1;
+    player.stats.st_flags = ST_INITIAL;
+    player.stats.st_royal = 0;
+    plfd = open(paths, O_RDWR | O_CREAT, 0644);
+    if (plfd < 0)
+    {
+      sendClientLogin(NULL);
+    }
+    else
+    {
+      fstat(plfd, &buf);
+      entries = buf.st_size / sizeof(struct statentry);
+      lseek(plfd, entries * sizeof(struct statentry), 0);
+      write(plfd, (char *) &player, sizeof(struct statentry));
+      close(plfd);
+      me->p_pos = entries;
+      memcpy(&(me->p_stats), &player.stats, sizeof(struct stats));
+      strcpy(me->p_name, namePick);
+      sendClientLogin(&player.stats);
+      updateMOTD();		/* added here 1/19/93 KAO */
+    }
+    flushSockBuf();
+    return;
+  }
+  /* An actual login attempt */
+  if ((strcmp(player.password, crypt(passPick, player.password)) != 0) ||
+      lockout())
+  {
+    sendClientLogin(NULL);
+  }
+  else
+  {
+    strcpy(me->p_name, namePick);
+    me->p_pos = position;
+    memcpy(&(me->p_stats), &player.stats, sizeof(struct stats));
+
+    sendClientLogin(&player.stats);
+
+    updateMOTD();		/* st_flags&ST_NOBITMAPS */
+  }
+  flushSockBuf();
+
+#if 1
+  /* Try to make the first person in the player database an Emperor */
+  if (position == 0)
+    me->p_stats.st_royal = NUMROYALRANKS - 1;
+#endif
+
+  return;
+}
+
+void
+savestats()
+{
+  int fd;
+  char *paths;
+
+  if (me->p_pos < 0)
+    return;
+
+  paths = build_path(PLAYERFILE);
+
+  fd = open(paths, O_WRONLY, 0644);
+  if (fd >= 0)
+  {
+    me->p_stats.st_lastlogin = time(NULL);
+    lseek(fd, 32 + me->p_pos * sizeof(struct statentry), 0);
+    write(fd, (char *) &me->p_stats, sizeof(struct stats));
+    close(fd);
+  }
+}
+
+/* return true if we want a lockout */
+int
+lockout()
+{
+  return (
+  /*
+   * (strncmp (login, "bozo", 4) == 0) ||
+   */
+	  0
+  );
+}