/* ************************************************************************
*  file: purgeplay.c                                    Part of CircleMUD * 
*  Usage: purge useless chars from playerfile                             *
*  All Rights Reserved                                                    *
*  Copyright (C) 1992, 1993 The Trustees of The Johns Hopkins University  *
************************************************************************* */

#include <stdio.h>
#include <ctype.h>
#include "../structs.h"
#include "../utils.h"

void	purge(char *filename, int mode)
{
   FILE * fl;
   FILE * outfile;
   struct char_file_u player;
   int	okay, num = 0, i, j;
   long	timeout;
   char	*ptr, reason[80], *name[500];

   if (!(fl = fopen(filename, "r+"))) {
      printf("Can't open %s.", filename);
      exit();
   }

   outfile = fopen("players.new", "w");
   printf("Deleting: \n");
   i = 0;
   for (; ; ) {
      fread(&player, sizeof(struct char_file_u ), 1, fl);
      if (feof(fl)) {
	 fclose(fl);
	 fclose(outfile);
	 puts("Done.");
	 exit();
      }

      okay = 1;
      *reason = '\0';

      for (ptr = player.name; *ptr; ptr++)
	 if (!isalpha(*ptr) || *ptr == ' ') {
	    okay = 0;
	    strcpy(reason, "Invalid name");
	 }
      /* duplicate check */
      if (mode){
	  CREATE(name[i], char, strlen(player.name) +1 );
	  strcpy(name[i], player.name);
	  for (j = i-1;j > 0 && okay; j--){
	      if (!strcmp(name[j],name[i])){
		  okay = 0;
		  strcpy(reason,"Duplicated entry");
		  free(name[i]);
		  i--;
		  break;
	      }
	  }
	  i++;
      }
      else {
	  if (player.level == 0) {
	      okay = 0;
	      strcpy(reason, "Never entered game");
	  }

	  if (player.level > LEVEL_IMPL) {
	      okay = 0;
	      strcpy(reason, "Invalid level");
	  }
	  
      /* now, check for timeouts.  They only apply if the char is not
       cryo-rented.   Lev 32-34 do not time out.  */

	  if (okay && player.level <= LEVEL_IMMORT) {

	      if (!(player.specials2.act & PLR_CRYO)) {
		  if (player.level == 1)
		      timeout = 4;	/* Lev   1 : 4 days */
		  else if (player.level <= 4)	
		      timeout = 7;	/* Lev 2-4 : 7 days */
		  else if (player.level <= 10)	
		      timeout = 30;	/* Lev 5-10: 30 days */
		  else if (player.level <= LEVEL_IMMORT - 1) 
		      timeout = 60;	/* Lev 11-30: 60 days */
		  else if (player.level <= LEVEL_IMMORT)   
		      timeout = 90;	/* Lev 31: 90 days */
	      } else
		  timeout = 90;
	      
	      timeout *= SECS_PER_REAL_DAY;

	      if ((time(0) - player.last_logon) > timeout) {
		  okay = 0;
		  sprintf(reason, "Level %2d idle for %3d days", player.level,
			  ((time(0) - player.last_logon) / SECS_PER_REAL_DAY));
	      }
	  }

	  if (player.specials2.act & PLR_DELETED) {
	      okay = 0;
	      sprintf(reason, "Deleted flag set");
	  }
	  
	  if (!okay && (player.specials2.act & PLR_NODELETE)) {
	      okay = 2;
	      strcat(reason, "; NOT deleted.");
	  }
      }
      if (okay)
	 fwrite(&player, sizeof(struct char_file_u ), 1, outfile);
      else
	 printf("%4d. %-20s %s\n", ++num, player.name, reason);

      if (okay == 2)
	 fprintf(stderr, "%-20s %s\n", player.name, reason);
   }
}



main(int argc, char *argv[])
{
   if (argc != 2)
      printf("Usage: %s playerfile-name\n", argv[0]);
   else if (strcmp("dup-purge", argv[0]) == 0)
      purge(argv[1], 1);
   else
      purge(argv[1], 0);       
}