/*--------------------------------------------------------------------------
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
  );
}