/* ************************************************************************
*  file: listrent.c                                      EmpireMUD AD 1.0 *
*  Usage: list player rent files                                          *
*  Written by Jeremy Elson                                                *
*  All Rights Reserved                                                    *
*                                                                         *
*  Code base by Paul Clarke.  EmpireMUD Project, a tbgMUD Production.     *
*  Based upon CircleMUD 3.0, beta patch level 17, by Jeremy Elson.        *
*                                                                         *
*  Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University *
*  CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991.               *
************************************************************************ */

#include "conf.h"
#include "sysdep.h"

#include "structs.h"

void Crash_listrent(char *fname);

int main(int argc, char **argv) {
	int x;

	for (x = 1; x < argc; x++)
		Crash_listrent(argv[x]);

	return (0);
	}


void Crash_listrent(char *fname) {
	FILE *fl;
	char buf[MAX_STRING_LENGTH];
	struct obj_file_elem object;
	struct rent_info rent;

	if (!(fl = fopen(fname, "rb"))) {
		sprintf(buf, "%s has no rent file.\r\n", fname);
		printf("%s", buf);
		return;
		}
	sprintf(buf, "%s\r\n", fname);
	if (!feof(fl))
		fread(&rent, sizeof(struct rent_info), 1, fl);
	switch (rent.rentcode) {
		case RENT_RENTED:
			strcat(buf, "Rent\r\n");
			break;
		case RENT_CRASH:
			strcat(buf, "Crash\r\n");
			break;
		default:
			strcat(buf, "Undef\r\n");
			break;
		}
	while (!feof(fl)) {
		fread(&object, sizeof(struct obj_file_elem), 1, fl);
		if (ferror(fl)) {
			fclose(fl);
			return;
			}
		if (!feof(fl))
			sprintf(buf, "%s[%5d] %s\n", buf, object.item_number, fname);
		}
	printf("%s", buf);
	fclose(fl);
	}