/*****************************************************************************
 *
 * File ..................: bbs/filesub.c
 * Purpose ...............: All the file sub functions. 
 * Last modification date : 09-Aug-2001
 *
 *****************************************************************************
 * 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/mbse.h"
#include "../lib/structs.h"
#include "../lib/records.h"
#include "../lib/common.h"
#include "../lib/clcomm.h"
#include "filesub.h"
#include "funcs.h"
#include "language.h"
#include "funcs4.h"
#include "misc.h"
#include "timeout.h"
#include "exitinfo.h"
#include "change.h"



long	arecno = 1;		/* Area record number			     */
int	Hcolor = 9;		/* Color of area line in xxxScan() functions */


/*
 * Variables for file tagging
 */
int	Tagnr;
_Tag	Tagbuf[100];



/*
 * Reset the tag ringbuffer.
 */
void InitTag()
{
	int	i;

	Tagnr = 0;

	for (i = 0; i < 100; i++) {
		memset(&Tagbuf[i], 0, sizeof(_Tag));
	}
}



/*
 * Add a file in the tag ringbuffer.
 */
void SetTag(_Tag tag)
{
	if (Tagnr < 99)
		Tagnr++;
	else
		Tagnr = 1;

	Tagbuf[Tagnr] = tag;
}



int ForceProtocol()
{
	/*
	 * If user has no default protocol, make sure he has one.
	 */
	if (strcmp(sProtName, "") == 0) {
		Chg_Protocol();

		/*
		 * If the user didn't pick a protocol, quit.
		 */
		if (strcmp(sProtName, "") == 0) {
			return FALSE;
		}
	}
	return TRUE;
}



/*
 * Get string, no newline afterwards.
 */
void GetstrD(char *sStr, int iMaxlen)
{
	unsigned char	ch = 0;
	int		iPos = 0;

	fflush(stdout);

	if ((ttyfd = open ("/dev/tty", O_RDWR)) < 0) {
		perror("open 6");
		return;
	}
	Setraw();
	strcpy(sStr, "");

	alarm_on();
	while (ch != 13) {
		ch = Readkey();

		if (((ch == 8) || (ch == KEY_DEL) || (ch == 127)) && (iPos > 0)) {
			printf("\b \b");
			fflush(stdout);
			sStr[--iPos]='\0';
		}

		if (ch > 31 && ch < 127) {
			if (iPos <= iMaxlen) {
				iPos++;
				sprintf(sStr, "%s%c", sStr, ch);
				printf("%c", ch);
				fflush(stdout);
			} else
				ch=07;
		}
	}

	Unsetraw();
	close(ttyfd);
}



/*
 * Open FileDataBase.
 */
FILE *OpenFileBase(unsigned long Area, int Write)
{
	FILE	*pFile;
	char	*FileBase;

	FileBase = calloc(PATH_MAX, sizeof(char));
	sprintf(FileBase,"%s/fdb/fdb%ld.data", getenv("MBSE_ROOT"), Area);

	if (Write)
		pFile = fopen(FileBase, "r+");
	else
		pFile = fopen(FileBase, "r");

	if (pFile == NULL) {
		WriteError("$Can't open file: %s", FileBase);
		/* Can't open file database for this area */
		printf("%s\n\n", (char *) Language(237));
		sleep(2);
	}
	free(FileBase);
	return pFile;
}



/*
 * Open the fareas.data file for read or R/W and read the headerrecord.
 * The filepointer is at the start of the first record.
 */
FILE *OpenFareas(int Write)
{
	FILE	*pAreas;
	char	*FileArea;

	FileArea = calloc(PATH_MAX, sizeof(char));
	sprintf(FileArea, "%s/etc/fareas.data", getenv("MBSE_ROOT"));
		
	if (Write)
		pAreas = fopen(FileArea, "r+");
	else
		pAreas = fopen(FileArea, "r");
		
	if (pAreas == NULL) {
		WriteError("$Can't open FileBase %s", FileArea);
		/* FATAL: Unable to open areas database */
		printf("%s\n\n", (char *) Language(243));
		sleep(2);
	} else
	 	fread(&areahdr, sizeof(areahdr), 1, pAreas);

	free(FileArea); 	
 	return pAreas;
}



/*
 * Pageheader for filelistings
 */
void Header()
{
	colour(4, 7);
	printf(" Area ");

	colour(4, 7);
	printf("%-5d   ", iAreaNumber);

	colour(1,7);
	printf("%-65s\n", sAreaDesc);

	colour(15,0);
	fLine(79);
}



/*
 * Searchheader for areas during xxxxScan().
 */
void Sheader()
{
	colour(Hcolor, 0);
	printf("\r  %-4ld", arecno);

	colour(9, 0);
	printf(" ... ");

	colour(Hcolor, 0);
	printf("%-40s", area.Name);
	fflush(stdout);

	if (Hcolor < 15)
		Hcolor++;
	else
		Hcolor = 9;
}



/*
 * Blank current line without newline.
 */
void Blanker(int count)
{
	int i;

	for (i = 0; i < count; i++)
		printf("\b");

	for (i = 0; i < count; i++)
		printf(" ");

	printf("\r");
	fflush(stdout);
}



/*
 * Mark one or more files for download by putting them into the "taglist"
 * in the users homedirectory. Check against dupe tags.
 */
void Mark()
{
	char	*temp;
	FILE	*fp;
	int	i, Found;
	int	Count, Size;

	temp = calloc(81, sizeof(char));

	/*
	 * First count the already tagged files.
	 */
	Count = Size = 0;
	if ((fp = fopen("taglist", "r")) != NULL) {
		while (fread(&Tag, sizeof(Tag), 1, fp) == 1) {
			if (Tag.Active) {
				Count++;
				Size += (Tag.Size / 1024);
			}
		}
		fclose(fp);
	}

	colour(CFG.HiliteF, CFG.HiliteB);
	/* Marked: */
	printf("%s%d, %dK; ", (char *) Language(360), Count, Size);

	/* Mark file number of press <Enter> to stop */
	printf("%s", (char *) Language(7));

	colour(CFG.InputColourF, CFG.InputColourB);
	GetstrD(temp, 10);
	Blanker(strlen(Language(7)) + strlen(temp));

	if (strlen(temp) == 0) {
		free(temp);
		return;
	}

	i = atoi(temp);

	if ((i > 0) && (i < 100)) {
		if ((Tagbuf[i].Area) && (strlen(Tagbuf[i].File))) {
			if (Access(exitinfo.Security, area.DLSec)) {
				if ((fp = fopen("taglist", "a+")) != NULL) {

					fseek(fp, 0, SEEK_SET);
					Found = FALSE;
					while (fread(&Tag, sizeof(Tag), 1, fp) == 1)
						if ((Tag.Area == Tagbuf[i].Area) && (strcmp(Tag.File, Tagbuf[i].File) == 0)) {
							Found = TRUE;
							Syslog('b', "Tagbuf[i].File already tagged");
						}

					if (!Found) {
						memset(&Tag, 0, sizeof(Tag));
						Tag = Tagbuf[i];
						Tag.Active = TRUE;
						fwrite(&Tag, sizeof(Tag), 1, fp);
						Syslog('+', "Tagged file %s from area %d", Tag.File, Tag.Area);
					}

					fclose(fp);
				}
			} else {
				colour(12, 0);
				/* You do not have enough access to download from this area. */
				printf("%s", (char *) Language(244));
				fflush(stdout);
				sleep(3);
				Blanker(strlen(Language(244)));
			}
		}
	}

	free(temp);
}



/* 
 * More prompt, returns 1 if user decides not to look any further.
 */
int iLC(int Lines)
{
	int	x, z;

	x = strlen(Language(131));
	iLineCount += Lines;
 
	if ((iLineCount >= exitinfo.iScreenLen) && (iLineCount < 1000)) {
		iLineCount = 0;

		while(TRUE) {
			/* More (Y/n/=) M=Mark */
			pout(CFG.MoreF, CFG.MoreB, (char *) Language(131));

			fflush(stdout);
			alarm_on();
			z = toupper(Getone());
			Blanker(x);

			if (z == Keystroke(131, 1)) {
				printf("\n");
				return 1;
			}

			if (z == Keystroke(131, 2)) {
				iLineCount = 1000;
				return 0;
			}

			if ((z == Keystroke(131, 0)) || (z == '\r') || (z == '\n')) {
				return 0;
			}

			if (z == Keystroke(131, 3)) {
				Mark();
			}
		}
	}
	return 0;
}



/*
 * Show one file, return 1 if user wants to stop, 0 to show next file.
 */
int ShowOneFile()
{
	int	y, z, fg, bg;

	if ((!file.Deleted) && (!file.Missing)) {

		colour(7, 0);
		printf(" %02d ", Tagnr);

		colour(CFG.FilenameF, CFG.FilenameB);
		if(strlen(file.Name) < 25)
	 		printf("%-15s", file.Name);
		else {
	 		printf("%-75s", file.Name);
			if (iLC(1) == 1)
				return 1;
		}

		colour(CFG.FilesizeF, CFG.FilesizeB);
		if(strlen(file.Name) < 25)
			printf("%10lu ", (long)(file.Size));
		else
			printf("%25lu ", (long)(file.Size));

		colour(CFG.FiledateF, CFG.FiledateB);
		printf("%-10s  ", StrDateDMY(file.UploadDate));

		colour(12, 0);
		if(file.TimesDL < 10)
			printf(" ");

		if(file.TimesDL < 100)
			printf(" ");

		if(file.TimesDL < 1000)
			printf(" ");

		if(file.TimesDL > 9999)
			file.TimesDL = 9999;

		printf("[%ld] ", file.TimesDL);

		if((strcmp(file.Uploader, "")) == 0)
			strcpy(file.Uploader, "SysOp");

		colour(CFG.HiliteF, CFG.HiliteB);
		printf("%s%s\n", (char *) Language(238), file.Uploader);

		if (iLC(1) == 1) 
			return 1;

		for(z = 0; z <= 25; z++) {
			if ((y = strlen(file.Desc[z])) > 1) {
				if ((file.Desc[z][0] == '@') && (file.Desc[z][1] == 'X')) {
					/*
					 *  Color formatted description lines.
					 */
					if (file.Desc[z][3] > '9')
						fg = (int)file.Desc[z][3] - 55;
					else
						fg = (int)file.Desc[z][3] - 48;
					bg = (int)file.Desc[z][2] - 48;
					colour(fg, bg);
					printf("    %s\n",file.Desc[z]+4);
				} else {
					colour(CFG.FiledescF, CFG.FiledescB);
					printf("    %s\n",file.Desc[z]);
				}

				if (iLC(1) == 1) 
					return 1;
		   	}
		}
	}
	return 0;
}



int CheckBytesAvailable(long CostSize)
{
	if((exitinfo.DownloadKToday <= 0) || ((CostSize / 1024) > exitinfo.DownloadKToday)) {

		/* You do not have enough bytes to download \" */
		pout(12, 0, (char *) Language(252));
		Enter(1);
		Syslog('+', "Not enough bytes to download %ld", CostSize);

		colour(15, 0);
		/* You must upload before you can download. */
		pout(12, 0, (char *) Language(253));
		Enter(2);

		colour(14, 0);
		/* Kilobytes currently available: */
		printf("%s%lu Kbytes.\n\n", (char *) Language(254), exitinfo.DownloadKToday);

		Pause();
		return FALSE;
	}
	
	return TRUE;
}



/*
 * Change back to users homedir.
 */
void Home()
{
	char	*temp;

	temp = calloc(PATH_MAX, sizeof(char));
	sprintf(temp, "%s/%s", CFG.bbs_usersdir, exitinfo.Name);
	chdir(temp);
	free(temp);
}



/*
 * Scan a .COM or .EXE file in users upload directory.
 */
int ScanDirect(char *fn)
{
	FILE	*fp;
	int	err, Found = FALSE;
	char	*temp, *temp1;

	temp  = calloc(PATH_MAX, sizeof(char));
	temp1 = calloc(PATH_MAX, sizeof(char));
	sprintf(temp, "%s/%s/upl/%s", CFG.bbs_usersdir, exitinfo.Name, fn);
	sprintf(temp1, "%s/etc/virscan.data", getenv("MBSE_ROOT"));

	if ((fp = fopen(temp1, "r")) != NULL) {
		fread(&virscanhdr, sizeof(virscanhdr), 1, fp);

		while (fread(&virscan, virscanhdr.recsize, 1, fp) == 1) {

			sprintf(temp1, "%s %s %s >/dev/null", virscan.scanner, virscan.options, temp);
			colour(CFG.TextColourF, CFG.TextColourB);
					      /* Scanning */               /* with */
			printf("%s %s %s %s ", (char *) Language(132), fn, (char *) Language(133), virscan.comment);
			fflush(stdout);
			Syslog('b', "%s ", temp1);

			if ((err = system(temp1))) {
				Syslog('?', "VIRUS ALERT: Result %d", err);
				colour(CFG.HiliteF, CFG.HiliteB);
				/* Possible VIRUS found! */
				printf("%s\n", (char *) Language(199));
				Found = TRUE;
			} else
				/* Ok */
				printf("%s\n", (char *) Language(200));
			fflush(stdout);
		}
		fclose(fp);
	}

	free(temp);
	free(temp1);
	return Found;
}



/*
 * Scan archive using users ./tmp directory.
 * Return codes:
 *   0 - All seems well
 *   1 - Error unpacking archive
 *   2 - Possible virus found
 *   3 - Not a known archive format.
 */
int ScanArchive(char *fn, char *ftype)
{
	FILE	*fp;
	int	err, Found = FALSE;
	char	*temp;
	char	*cwd = NULL;


	/*
	 * First search for the right archiver program
	 */
	temp = calloc(PATH_MAX, sizeof(char));
	sprintf(temp, "%s/etc/archiver.data", getenv("MBSE_ROOT"));
	if ((fp = fopen(temp, "r")) == NULL) {
		free(temp);
		return 3;
	}

	fread(&archiverhdr, sizeof(archiverhdr), 1, fp);

	while (fread(&archiver, archiverhdr.recsize, 1, fp) == 1) {
		if ((strcmp(ftype, archiver.name) == 0) && (archiver.available)) {
			break;
		}
	}
	fclose(fp);
	if ((strcmp(ftype, archiver.name)) || (!archiver.available)) {
		free(temp);
		return 3;
	}

	Syslog('b', "Archiver %s", archiver.comment);

	cwd = getcwd(cwd, 80);
	Syslog('b', "Current directory is %s", cwd);

	sprintf(temp, "%s/%s/tmp", CFG.bbs_usersdir, exitinfo.Name);
	if (chdir(temp)) {
		WriteError("$Can't chdir(%s)", temp);
		free(temp);
		return 1;
	}

	colour(CFG.TextColourF, CFG.TextColourB);
	/* Unpacking archive */
	printf("%s %s ", (char *) Language(201), fn);
	fflush(stdout);
	sprintf(temp, "%s %s/%s >/dev/null", archiver.funarc, cwd, fn);
	Syslog('b', "Unarc %s", temp);

	if ((err = system(temp))) {
		WriteError("$Failed %s", temp);
		system("rm -f -r *");
		chdir(cwd);
		free(cwd);
		colour(CFG.HiliteF, CFG.HiliteB);
		/* ERROR */
		printf("%s\n", (char *) Language(217));
		fflush(stdout);
		return 1;
	}
	/* Ok */
	printf("%s\n", (char *) Language(200));
	fflush(stdout);

	sprintf(temp, "%s/etc/virscan.data", getenv("MBSE_ROOT"));

	if ((fp = fopen(temp, "r")) != NULL) {
		fread(&virscanhdr, sizeof(virscanhdr), 1, fp);

		while (fread(&virscan, virscanhdr.recsize, 1, fp) == 1) {

			sprintf(temp, "%s %s * >/dev/null", virscan.scanner, virscan.options);
			colour(CFG.TextColourF, CFG.TextColourB);
						/* Scanning */		   /* with */
			printf("%s %s %s %s ", (char *) Language(132), fn, (char *) Language(133), virscan.comment);
			fflush(stdout);
			Syslog('b', "%s ", temp);

			if ((err = system(temp))) {
				Syslog('?', "VIRUS ALERT: Result %d", err);
				colour(CFG.HiliteF, CFG.HiliteB);
				/* Possible VIRUS found! */
				printf("%s\n", (char *) Language(199));
				Found = TRUE;
			} else
				/* Ok */
				printf("%s\n", (char *) Language(200));
			fflush(stdout);
		}
		fclose(fp);
	}

	system("rm -f -r *");
	chdir(cwd);
	free(cwd);
	free(temp);

	if (Found)
		return 2;
	else
		return 0;
}



/*
 * Try to find out the type of uploaded file.
 */
char *GetFileType(char *fn)
{
	unsigned char	buf[8], dbuf[80];
	FILE		*fp;
	int		i;

	if ((fp = fopen(fn, "r")) == NULL) {
		WriteError("$Can't open file %s", fn);
		return NULL;
	}

	if (fread(buf, 1, sizeof(buf), fp) != sizeof(buf)) {
		WriteError("$Can't read head of file %s", fn);
		return NULL;
	}

	fclose(fp);
	dbuf[0] = '\0';

	for (i = 0; i < sizeof(buf); i++)
		if ((buf[i] >= ' ') && (buf[i] <= 127))
			sprintf((char*)dbuf+strlen(dbuf), "  %c", buf[i]);
		else
			sprintf((char*)dbuf+strlen(dbuf), " %02x", buf[i]);

	Syslog('b', "file head: %s", dbuf);

	/*
	 * Various expected uploads. Not that the standard MS-DOS archivers
	 * must return the exact format, ie "ZIP" for PKZIP. These strings
	 * are tested against the archivers database. Others that aren't
	 * compressed files are not important, they just pop up in your
	 * logfiles.
	 */
 	if (memcmp(buf, "PK\003\004", 4) == 0)		return (char *)"ZIP";
	if (*buf == 0x1a)				return (char *)"ARC";
	if (memcmp(buf+2, "-l", 2) == 0)		return (char *)"LZH";
	if (memcmp(buf, "ZOO", 3) == 0)			return (char *)"ZOO";
	if (memcmp(buf, "`\352", 2) == 0)		return (char *)"ARJ";
	if (memcmp(buf, "Rar!", 4) == 0)		return (char *)"RAR";
	if (memcmp(buf, "MZ", 2) == 0)			return (char *)"EXE";
	if (memcmp(buf, "\000\000\001\263", 4) == 0)	return (char *)"MPEG";
	if (memcmp(buf, "MOVI", 4) == 0)		return (char *)"MOVI";
	if (memcmp(buf, "\007\007\007", 3) == 0)	return (char *)"CPIO";
	if (memcmp(buf, "\351,\001JAM", 6) == 0)	return (char *)"JAM";
	if (memcmp(buf, "SQSH", 4) == 0)		return (char *)"SQSH";
	if (memcmp(buf, "UC2\0x1a", 4) == 0)		return (char *)"UC2";
	if (memcmp(buf, ".snd", 4) == 0)		return (char *)"SND";
	if (memcmp(buf, "MThd", 4) == 0)		return (char *)"MID";
	if (memcmp(buf, "RIFF", 4) == 0)		return (char *)"WAV";
	if (memcmp(buf, "EMOD", 4) == 0)		return (char *)"MOD";
	if (memcmp(buf, "MTM", 3) == 0)			return (char *)"MTM";
	if (memcmp(buf, "#/bin/", 6) == 0)		return (char *)"UNIX script";
	if (memcmp(buf, "\037\235", 2) == 0)		return (char *)"Compressed data";
	if (memcmp(buf, "\037\213", 2) == 0)		return (char *)"gzip compress";
	if (memcmp(buf, "\177ELF", 4) == 0)		return (char *)"ELF";
	if (memcmp(buf, "%!", 2) == 0)			return (char *)"PostScript";
	if (memcmp(buf, "GIF8", 4) == 0)		return (char *)"GIF";
	if (memcmp(buf, "\377\330\377\340", 4) == 0)	return (char *)"JPEG";
	if (memcmp(buf, "\377\330\377\356", 4) == 0)	return (char *)"JPG";
	if (memcmp(buf, "BM", 2) == 0)			return (char *)"Bitmap";
	if (memcmp(buf, "%PDF", 4) == 0)		return (char *)"PDF";
	if (memcmp(buf, "THNL", 4) == 0)		return (char *)"ThumbNail";
	if ((memcmp(buf, "<html>", 6) == 0) ||
	    (memcmp(buf, "<HTML>", 6) == 0))		return (char *)"HTML";

	/*
	 * .COM formats. Should cover about 2/3 of COM files.
	 */
	if ((*buf == 0xe9) || (*buf == 0x8c) ||
	    (*buf == 0xeb) || (*buf == 0xb8))		return (char *)"COM";
	
	return NULL;
}



/*
 * Import file in area. Returns TRUE if successfull.
 */
int ImportFile(char *fn, int Area, int fileid, time_t iTime, off_t Size)
{
	char	*temp, *temp1;
	int	i, x;
	char	*token;

	temp  = calloc(PATH_MAX, sizeof(char));
	temp1 = calloc(PATH_MAX, sizeof(char));
	sprintf(temp, "%s/%s", area.Path, fn);
	sprintf(temp1, "%s/%s/upl/%s", CFG.bbs_usersdir, exitinfo.Name, fn);

	Syslog('b', "Move %s to %s", temp1, temp);
	if ((file_mv(temp1, temp))) {
		WriteError("$Can't move %s to %s", fn, area.Path);
	} else {
		if (Addfile(fn, Area, fileid)) {

			ReadExitinfo();

			/*
			 * If Size is equal to Zero, don't increase file counters else
			 * Increase file counters if any other size
			 */
			if (Size) {
				exitinfo.Uploads++;
				exitinfo.UploadK += (Size / 1024);
				exitinfo.UploadKToday += (Size / 1024);
				Syslog('b', "Uploads %d, Kb %d, Kb today %d", exitinfo.Uploads, 
						exitinfo.UploadK, exitinfo.UploadKToday);
	
				/*
				 * Give back the user his bytes from the upload
				 * Work out byte ratio, then give time back to user
				 */
				strcpy(temp, CFG.sByteRatio);
				token = strtok(temp, ":");
			  		i = atoi(token);
			 	token = strtok(NULL, "\0");
					x = atoi(token);
				Size *= i / x;
				/* You have */  /* extra download KBytes. */
				printf("%s %ld %s\n", (char *) Language(249), (long)(Size / 1024), (char *) Language(250));
	
				exitinfo.DownloadKToday += (Size / 1024);
				Syslog('b', "DownloadKToday %d", exitinfo.DownloadKToday);
			}

			/*
			 * Give back the user his time that he used to upload
			 * Work out time ratio, then give time back to user
			 * Ratio 3:1, Upload time: times by 3 / 1
			 */
			strcpy(temp, CFG.sTimeRatio);
			token = strtok(temp, ":");
		 	i = atoi(token);
		  	token = strtok(NULL, "\0");
				x = atoi(token);

			iTime *= i / x;
			iTime /= 60; /* Divide Seconds by 60 to give minutes */
			/* You have */ /* extra minutes. */
			printf("%s %ld %s\n", (char *) Language(249), iTime, (char *) Language(259));
	
			exitinfo.iTimeLeft += iTime;

			WriteExitinfo();
			return TRUE;
		}
	}

	free(temp);
	free(temp1);
	return FALSE;
}



/*
 * Add file to the FileDataBase. If fileid is true, then try to
 * get the filedescription from FILE_ID.DIZ if it is in the
 * archive, else the user must supply the description.
 * Returns TRUE is successfull.
 */
int Addfile(char *File, int AreaNum, int fileid)
{
	FILE	*id, *pFileDB, *pPrivate;
	int	err, iDesc = 1, iPrivate = FALSE, GotId = FALSE;
	char	*Filename, *temp1;
	char	*Desc[26]; 
	struct	stat statfile; 
	int	i;
	char	temp[81];

	Filename = calloc(PATH_MAX, sizeof(char));
	temp1    = calloc(PATH_MAX, sizeof(char));  

	
	sprintf(Filename, "%s/%s", area.Path, File);

	if ((pFileDB = OpenFileBase(AreaNum, TRUE)) != NULL) {
		/*
		 * Do a physical check of file to see if it exists
		 * if it fails it will return a zero which will not
		 * increase his uploads stats
		 */
		if(stat(Filename, &statfile) != 0) {

			colour(10, 0);
			/* Upload was unsuccessful for: */
			printf("\n%s%s\n\n", (char *) Language(284), File);

			fclose(pFileDB);
			free(Filename);
			free(temp1);
			return FALSE;
		}

		memset(&file, 0, sizeof(file));
		strcpy(file.Name, File);
		sprintf(temp1,"%ld",(long)(statfile.st_size));
		file.Size = atoi(temp1);
		file.FileDate = statfile.st_mtime;
		strcpy(file.Uploader, exitinfo.sUserName);
		time(&file.UploadDate);

		if(area.PwdUP) {
			colour(9,0);
			/* Do you want to password protect your upload ? [y/N]: */
			printf("\n%s", (char *) Language(285));
			fflush(stdout);

			if (toupper(Getone()) == Keystroke(285, 0)) {
				colour(10, 0);
				/* REMEMBER: Passwords are "CaSe SeNsITiVe!" */
				printf("\n%s\n", (char *) Language(286));
				colour(14,0);
				/* Password: */
				printf("%s", (char *) Language(8));
				fflush(stdout);
				fflush(stdin);
				GetstrC(file.Password, 20);
			}
		}

		if (fileid) {
			/*
			 * The right unarchiver is still in memory,
			 * get the FILE_ID.DIZ if it exists.
			 */
			sprintf(temp, "%s %s/%s FILE_ID.DIZ >/dev/null", archiver.iunarc, area.Path, File);
			Syslog('b', "%s", temp);
			if ((err = system(temp))) {
				WriteError("$Unpack error %s", temp);
			} else {
				Syslog('+', "Found FILE_ID.DIZ");
				GotId = TRUE;
				colour(CFG.TextColourF, CFG.TextColourB);
				/* Found FILE_ID.DIZ in */
				printf("%s %s\n", (char *) Language(257), File);
				fflush(stdout);
			}
		}

		if (GotId) {
			if ((id = fopen("FILE_ID.DIZ", "r")) != NULL) {
				/*
				 * Import FILE_ID.DIZ, format to max. 25
				 * lines, 48 chars width.
				 */
				while ((fgets(temp1, 256, id)) != NULL) {
					if (iDesc < 26) {
						Striplf(temp1);
						temp1[48] = '\0';
						strcpy(file.Desc[iDesc - 1], temp1);
					}
					iDesc++;
				}
			}
			fclose(id);
			unlink("FILE_ID.DIZ");
		} else {
			/*
			 * Ask the user for a description.
			 */
			for (i = 0; i < 26; i++)
				*(Desc + i) = (char *) calloc(49, sizeof(char));

			colour(12,0);
			/* Please enter description of file */
			printf("\n%s %s\n\n", (char *) Language(287), File);
			while (TRUE) {
				colour(10,0);
				printf("%2d> ", iDesc);
				fflush(stdout);
				colour(CFG.InputColourF, CFG.InputColourB);

				GetstrC(*(Desc + iDesc), 48);

				if((strcmp(*(Desc + iDesc), "")) == 0) 
					break;

				iDesc++;

				if(iDesc >= 26)
					break;
			}

			for(i = 1; i < iDesc; i++)
				strcpy(file.Desc[i - 1], Desc[i]);

			for (i = 0; i < 26; i++)
				free(Desc[i]);
		}

		fseek(pFileDB, 0, SEEK_END);
		fwrite(&file, sizeof(file), 1, pFileDB);
		fclose(pFileDB);

		sprintf(temp, "%s/log/uploads.log", getenv("MBSE_ROOT"));
		if ((pPrivate = fopen(temp, "a+")) == NULL)
			WriteError("$Can't open %s", temp);
		else {
			iPrivate = TRUE;
			fprintf(pPrivate, "****************************************************");
			fprintf(pPrivate, "\nUser        : %s", file.Uploader);
			fprintf(pPrivate, "\nFile        : %s", file.Name);
			fprintf(pPrivate, "\nSize        : %lu", (long)(file.Size));
			fprintf(pPrivate, "\nUpload Date : %s\n\n", StrDateDMY(file.UploadDate));
				
			for(i = 0; i < iDesc - 1; i++)
				fprintf(pPrivate, "%2d: %s\n", i, file.Desc[i]);

			fclose(pPrivate);
		}

		Enter(1);
		/* Your upload time has been returned to you. Thank you for your upload! */
		pout(10, 0, (char *) Language(288));
		Enter(1);
	}

	free(Filename);
	free(temp1);
	return TRUE;
}



/*
 * Set file area number, set global area description and path.
 */
void SetFileArea(unsigned long AreaNum)
{
	FILE	*pArea;
	long	offset;

	memset(&area, 0, sizeof(area));

	if ((pArea = OpenFareas(FALSE)) == NULL)
		return;

	offset = areahdr.hdrsize + ((AreaNum - 1) * areahdr.recsize);
	if (fseek(pArea, offset, 0) != 0) {
		WriteError("$Seek error in fareas.data, area %ld", AreaNum);
		return;
	}

	fread(&area, areahdr.recsize, 1, pArea);
	strcpy(sAreaDesc, area.Name);
	strcpy(sAreaPath, area.Path);
	iAreaNumber = AreaNum;
	fclose(pArea);
}



unsigned long Quota()
{
	DIR		*dirp;
	char		*FileName, *temp;
	unsigned long	Bytes = 0;
	struct dirent	*dp;
	struct stat	statfile;

	FileName = calloc(PATH_MAX, sizeof(char));
	temp	 = calloc(PATH_MAX, sizeof(char));

	sprintf(temp, "%s/%s/wrk", CFG.bbs_usersdir, exitinfo.Name);

	if ((dirp = opendir(temp)) == NULL) {
		WriteError("$Can't open dir %s", temp);
	} else {
		while ((dp = readdir(dirp)) != NULL) {
			sprintf(FileName, "%s/%s", temp, dp->d_name);

			if (*(dp->d_name) != '.')
				if (stat(FileName, &statfile) == 0)
					Bytes += statfile.st_size;
		}

		closedir(dirp);
	}

	free(FileName);
	free(temp);
	return Bytes;
}



void ImportHome(char *fn)
{
	char	*temp1, *temp2;

	temp1 = calloc(PATH_MAX, sizeof(char));
	temp2 = calloc(PATH_MAX, sizeof(char));
	sprintf(temp1, "%s/%s/wrk/%s", CFG.bbs_usersdir, exitinfo.Name, fn);
	sprintf(temp2, "%s/%s/upl/%s", CFG.bbs_usersdir, exitinfo.Name, fn);

	Syslog('+', "Move %s to home, result %d", fn, file_mv(temp2, temp1));
	free(temp1);
	free(temp2);
}