/*****************************************************************************
 *
 * $Id$
 * Purpose ...............: Creates allfiles listings
 *
 *****************************************************************************
 * Copyright (C) 1997-2001
 *   
 * Michiel Broek		FIDO:		2:280/2802
 * Beekmansbos 10
 * 1971 BV IJmuiden
 * the Netherlands
 *
 * This file is part of MBSE BBS.
 *
 * This BBS is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the
 * Free Software Foundation; either version 2, or (at your option) any
 * later version.
 *
 * MBSE BBS is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with MBSE BBS; see the file COPYING.  If not, write to the Free
 * Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 *****************************************************************************/

#include "../lib/libs.h"
#include "../lib/structs.h"
#include "../lib/mbse.h"
#include "../lib/records.h"
#include "../lib/common.h"
#include "../lib/dbcfg.h"
#include "../lib/clcomm.h"
#include "mball.h"


extern int	do_quiet;		/* Supress screen output	*/
int		do_zip   = FALSE;	/* Create ZIP archives		*/
int		do_list  = FALSE;	/* Create filelist		*/
extern	int	e_pid;			/* Pid of child			*/
extern	int	show_log;		/* Show logging			*/
time_t		t_start;		/* Start time			*/
time_t		t_end;			/* End time			*/
struct		tm *l_date;		/* Structure for Date		*/


void ProgName()
{
	if (do_quiet)
		return;

	colour(15, 0);
	printf("\nMBALL: MBSE BBS %s Allfiles Listing Creator\n", VERSION);
	colour(14, 0);
	printf("       %s\n", COPYRIGHT);
}



void die(int onsig)
{
	/*
	 * First check if a child is running, if so, kill it.
	 */
	if (e_pid) {
		if ((kill(e_pid, SIGTERM)) == 0)
			Syslog('+', "SIGTERM to pid %d succeeded", e_pid);
		else {
			if ((kill(e_pid, SIGKILL)) == 0)
				Syslog('+', "SIGKILL to pid %d succeded", e_pid);
			else
				WriteError("$Failed to kill pid %d", e_pid);
		}

		/*
		 * In case the child had the tty in raw mode...
		 */
		system("stty sane");
	}

	signal(onsig, SIG_IGN);

	if (onsig) {
		if (onsig <= NSIG)
			WriteError("$Terminated on signal %d (%s)", onsig, SigName[onsig]);
		else
			WriteError("Terminated with error %d", onsig);
	}

	t_end = time(NULL);
	Syslog(' ', "MBALL finished in %s", t_elapsed(t_start, t_end));

	if (!do_quiet) {
		colour(7, 0);
		printf("\n");
	}
	ExitClient(onsig);
}



void Help()
{
	do_quiet = FALSE;
	ProgName();

	colour(11, 0);
	printf("\nUsage:	mball [command] <options>\n\n");
	colour(9, 0);
	printf("	Commands are:\n\n");
	colour(3, 0);
	printf("	l  list		Create allfiles and newfiles lists\n");
	colour(9, 0);
	printf("\n	Options are:\n\n");
	colour(3, 0);
	printf("	-q -quiet	Quiet mode\n");
	printf("	-z -zip		Create .zip archives\n");
	colour(7, 0);
	printf("\n");
	die(0);
}



int main(int argc, char **argv)
{
	int	i;
	char	*cmd;
	struct	passwd *pw;

#ifdef MEMWATCH
	mwInit();
#endif

	InitConfig();
	TermInit(1);
	t_start = time(NULL);
	umask(000);

	/*
	 * Catch all signals we can, and ignore the rest.
	 */
	for (i = 0; i < NSIG; i++) {
		if ((i == SIGHUP) || (i == SIGKILL) || (i == SIGBUS) ||
		    (i == SIGILL) || (i == SIGSEGV) || (i == SIGTERM))
			signal(i, (void (*))die);
		else
			signal(i, SIG_IGN);
	}

	if(argc < 2)
		Help();

	cmd = xstrcpy((char *)"Command line: mball");

	for (i = 1; i < argc; i++) {

		cmd = xstrcat(cmd, (char *)" ");
		cmd = xstrcat(cmd, argv[i]);

		if (!strncasecmp(argv[i], "l", 1))
			do_list = TRUE;
		if (!strncasecmp(argv[i], "-q", 2))
			do_quiet = TRUE;
		if (!strncasecmp(argv[i], "-z", 2))
			do_zip = TRUE;
	}

	if (!do_list)
		Help();

	ProgName();
	pw = getpwuid(getuid());
	InitClient(pw->pw_name, (char *)"mball", CFG.location, CFG.logfile, CFG.util_loglevel, CFG.error_log);

	Syslog(' ', " ");
	Syslog(' ', "MBALL v%s", VERSION);
	Syslog(' ', cmd);
	free(cmd);

	if (!do_quiet) {
		colour(3, 0);
		printf("\n");
	}

	if (do_list) {
		Masterlist();
		if (do_zip)
			MakeArc();
		CreateSema((char *)"mailin");
	}

	if (!do_quiet)
		printf("Done!\n");

	die(0);
	return 0;
}



void MidLine(char *txt, FILE *fp, int doit)
{
	char	temp[81];
	int	x, y, z;

	if (!doit)
		return;

	z = strlen(txt);
	x = 77 - z;
	x /= 2;
	strcpy(temp, "");

	for (y = 0; y < x; y++)
		strcat(temp, " ");

	strcat(temp, txt);
	z = strlen(temp);
	x = 77 - z;

	for (y = 0; y < x; y++)
		strcat(temp, " ");

	fprintf(fp, "%c", 179);
	fprintf(fp, "%s", temp);
	fprintf(fp, "%c\r\n", 179);
}



void TopBox(FILE *fp, int doit)
{
	int	y;
	
	if (!doit)
		return;

	fprintf(fp, "\r\n%c", 213);
	for(y = 0; y < 77; y++)
		fprintf(fp, "%c", 205);
	fprintf(fp, "%c\r\n", 184);
}



void BotBox(FILE *fp, int doit)
{
	int	y;

	if (!doit)
		return;

	fprintf(fp, "%c", 212);
	for (y = 0; y < 77; y++)
		fprintf(fp, "%c", 205);
	fprintf(fp, "%c\r\n\r\n", 190);
}



void Masterlist()
{
	FILE	*fp, *np, *pAreas, *pFile, *pHeader;
	int	AreaNr = 0, z, x = 0, New;
	long	AllFiles = 0, AllBytes = 0, NewFiles = 0, NewBytes = 0;
	int	AllAreaFiles, AllAreaBytes, popdown, down;
	int	NewAreaFiles, NewAreaBytes;
	char	*sAreas, *fAreas;
	char	temp[81], pop[81];

	sAreas	= calloc(PATH_MAX, sizeof(char));
	fAreas	= calloc(PATH_MAX, sizeof(char));

	IsDoing("Create Allfiles list");

	sprintf(sAreas, "%s/etc/fareas.data", getenv("MBSE_ROOT"));

	if(( pAreas = fopen (sAreas, "r")) == NULL) {
		WriteError("Can't open File Areas File: %s", sAreas);
		colour(7,0);
		die(1);
	}
	fread(&areahdr, sizeof(areahdr), 1, pAreas);

	if (!do_quiet)
		printf("Processing file areas\n");

	if ((fp = fopen("allfiles.tmp", "a+")) == NULL) {
	 	WriteError("$Can't open allfiles.tmp");
		die(1);
	}
	if ((np = fopen("newfiles.tmp", "a+")) == NULL) {
		WriteError("$Can't open newfiles.tmp");
		fclose(fp);
		die(1);
	}

	TopBox(fp, TRUE);
	TopBox(np, TRUE);
	sprintf(temp, "All available files at %s", CFG.bbs_name);
	MidLine(temp, fp, TRUE);
	sprintf(temp, "New available files since %d days at %s", CFG.newdays, CFG.bbs_name);
	MidLine(temp, np, TRUE);
	BotBox(fp, TRUE);
	BotBox(np, TRUE);

	sprintf(temp, "%s/etc/header.txt", getenv("MBSE_ROOT"));
	if(( pHeader = fopen(temp, "r")) != NULL) {
		Syslog('+', "Inserting %s", temp);

		while( fgets(temp, 80 ,pHeader) != NULL) {
			Striplf(temp);
			fprintf(fp, "%s\r\n", temp);
			fprintf(np, "%s\r\n", temp);
		}
	}

	while (fread(&area, areahdr.recsize, 1, pAreas) == 1) {
		AreaNr++;
		AllAreaFiles = 0;
		AllAreaBytes = 0;
		NewAreaFiles = 0;
		NewAreaBytes = 0;

		if (area.Available && (area.LTSec.level <= CFG.security.level)) {

			sprintf(fAreas, "%s/fdb/fdb%d.data", getenv("MBSE_ROOT"), AreaNr);

			if ((pFile = fopen (fAreas, "r")) == NULL) {
				WriteError("$Can't open Area %d (%s)! Skipping ...", AreaNr, area.Name);
			} else {
				popdown = 0;
				while (fread(&file, sizeof(file), 1, pFile) == 1) {
					if ((!file.Deleted) && (!file.Missing)) {
						/*
						 * The next is to reduce system
						 * loading.
						 */
						x++;
						if (CFG.slow_util && do_quiet && ((x % 3) == 0))
							usleep(1);
						AllFiles++;
						AllBytes += file.Size;
						AllAreaFiles++;
						AllAreaBytes += file.Size;
						down = file.TimesDL + file.TimesFTP + file.TimesReq;
						if (down > popdown) {
							popdown = down;
							sprintf(pop, "%s", file.Name);
						}
						if (((t_start - file.UploadDate) / 84400) <= CFG.newdays) {
							NewFiles++;
							NewBytes += file.Size;
							NewAreaFiles++;
							NewAreaBytes += file.Size;
						}
					}
				}

				/*
				 * If there are files to report do it.
				 */
				if (AllAreaFiles) {
					TopBox(fp, TRUE);
					TopBox(np, NewAreaFiles);

					sprintf(temp, "Area %d - %s", AreaNr, area.Name);
					MidLine(temp, fp, TRUE);
					MidLine(temp, np, NewAreaFiles);

					sprintf(temp, "File Requests allowed");
					MidLine(temp, fp, area.FileReq);
					MidLine(temp, np, area.FileReq && NewAreaFiles);

					sprintf(temp, "%d KBytes in %d files", AllAreaBytes / 1024, AllAreaFiles);
					MidLine(temp, fp, TRUE);
					sprintf(temp, "%d KBytes in %d files", NewAreaBytes / 1024, NewAreaFiles);
					MidLine(temp, np, NewAreaFiles);
					if (popdown) {
						sprintf(temp, "Most popular file is %s", pop);
						MidLine(temp, fp, TRUE);
					}

					BotBox(fp, TRUE);
					BotBox(np, NewAreaFiles);

					fseek(pFile, 0, SEEK_SET);
					while (fread(&file, sizeof(file), 1, pFile) == 1) {
						if((!file.Deleted) && (!file.Missing)) {
							New = (((t_start - file.UploadDate) / 84400) <= CFG.newdays);
							sprintf(temp, "%-12s%10lu K %s [%04ld] Uploader: %s",
								file.Name, (long)(file.Size / 1024), StrDateDMY(file.UploadDate), 
								file.TimesDL + file.TimesFTP + file.TimesReq, 
								strlen(file.Uploader)?file.Uploader:"");
							fprintf(fp, "%s\r\n", temp);
							if (New)
								fprintf(np, "%s\r\n", temp);
	
							for (z = 0; z <= 25; z++) {
								if (strlen(file.Desc[z])) {
									if ((file.Desc[z][0] == '@') && (file.Desc[z][1] == 'X')) {
										fprintf(fp, "                         %s\r\n",file.Desc[z]+4);
										if (New)
											fprintf(np, "                         %s\r\n",file.Desc[z]+4);
									} else {
										fprintf(fp, "                         %s\r\n",file.Desc[z]);
										if (New)
											fprintf(np, "                         %s\r\n",file.Desc[z]);
									}
								}
						   	}
					  	}
					}
				}
				fclose(pFile);
			}
		}
	} /* End of While Loop Checking for Areas Done */

	fclose(pAreas);

	TopBox(fp, TRUE);
	TopBox(np, TRUE);
	sprintf(temp, "Total %ld files, %ld KBytes", AllFiles, AllBytes / 1024);
	MidLine(temp, fp, TRUE);
	sprintf(temp, "Total %ld files, %ld KBytes", NewFiles, NewBytes / 1024);
	MidLine(temp, np, TRUE);

	MidLine((char *)"", fp, TRUE);
	MidLine((char *)"", np, TRUE);

	sprintf(temp, "Created by MBSE BBS v%s (Linux) at %s", VERSION, StrDateDMY(t_start));
	MidLine(temp, fp, TRUE);
	MidLine(temp, np, TRUE);

	BotBox(fp, TRUE);
	BotBox(np, TRUE);

	sprintf(temp, "%s/etc/footer.txt", getenv("MBSE_ROOT"));
	if(( pHeader = fopen(temp, "r")) != NULL) {
		Syslog('+', "Inserting %s", temp);

		while( fgets(temp, 80 ,pHeader) != NULL) {
			Striplf(temp);
			fprintf(fp, "%s\r\n", temp);
			fprintf(np, "%s\r\n", temp);
		}
	}

	fclose(fp);
	fclose(np);

	if ((rename("allfiles.tmp", "allfiles.txt")) == 0)
		unlink("allfiles.tmp");
	if ((rename("newfiles.tmp", "newfiles.txt")) == 0)
		unlink("newfiles.tmp");

	Syslog('+', "Allfiles: %ld, %ld MBytes", AllFiles, AllBytes / 1048576);
	Syslog('+', "Newfiles: %ld, %ld MBytes", NewFiles, NewBytes / 1048576);
	free(sAreas);
	free(fAreas);
}



void MakeArc()
{
	char	*cmd;

	if (!getarchiver((char *)"ZIP")) {
		WriteError("ZIP Archiver not available");
		return;
	}

	cmd = xstrcpy(archiver.farc);

	if (cmd == NULL) {
		WriteError("ZIP archive command not available");
		return;
	}

	if (!do_quiet)
		printf("Creating allfiles.zip\n");
	if (!execute(cmd, (char *)"allfiles.zip allfiles.txt", (char *)NULL, (char *)"/dev/null", 
			(char *)"/dev/null", (char *)"/dev/null") == 0)
		WriteError("Create allfiles.zip failed");

	if (!do_quiet)
		printf("Creating newfiles.zip\n");
	if (!execute(cmd, (char *)"newfiles.zip newfiles.txt", (char *)NULL, (char *)"/dev/null", 
			(char *)"/dev/null", (char  *)"/dev/null") == 0)
		WriteError("Create newfiles.zip failed");
	free(cmd);
}