#include <all_far.h>


#include "Int.h"

//--- 4.06.2003 by Oleg Hohloff

// 0         1         2
// 0123456789012345678901234
// Tue May 31 06:22:00 1994

BOOL net_parse_pctcp_date_time(char *datestr, Time_t& decoded)
{
	SYSTEMTIME st;
	WINPORT(GetSystemTime)(&st);
	st.wMilliseconds = 0;
	CHECK((datestr[3]!=' ' || datestr[7]!=' ' || datestr[10]!=' ' || datestr[19]!=' '), FALSE)
	CHECK((datestr[13] != ':' || datestr[16] != ':'), FALSE)
	// месяц
	datestr[7] = 0;
	st.wMonth = NET_MonthNo(datestr+4);
	datestr[7] = ' ';
	CHECK((st.wMonth > 12), FALSE)

	// день
	if(!NET_IS_DIGIT(datestr[8]) || !NET_IS_DIGIT(datestr[9])) return FALSE;

	st.wDay = ((datestr[8]-'0')*10) + (datestr[9]-'0');

	if(st.wDay==0 || st.wDay>31) return FALSE;

	// год
	st.wYear = AtoI(datestr+20,MAX_WORD);

	if(st.wYear == MAX_WORD) return FALSE;

	// время
	st.wHour   = ((datestr[11]-'0')*10) + (datestr[12]-'0');
	st.wMinute = ((datestr[14]-'0')*10) + (datestr[15]-'0');
	st.wSecond = ((datestr[17]-'0')*10) + (datestr[18]-'0');
	//
	st.wDayOfWeek = 0;

	if(!WINPORT(SystemTimeToFileTime)(&st, decoded))
	{
		Log(("!time: %d-%d-%d %d:%d:%d", st.wYear, st.wMonth, st.wDay, st.wHour, st.wMinute, st.wSecond));
	}

	return TRUE;
}

/* PC/TCP ftpsrv.exe
 * looks like:
 *
 *            1         2         3         4         5         6
 *  0123456789012345678901234567890123456789012345678901234567890
 *       40774              IO.SYS   Tue May 31 06:22:00 1994
 *       38138           MSDOS.SYS   Tue May 31 06:22:00 1994
 *       54645         COMMAND.COM   Tue May 31 06:22:00 1994
 *  <dir>                     UTIL   Thu Feb 20 09:55:02 2003
 */
BOOL WINAPI idPRParcePCTCP(const FTPServerInfo* Server, FTPFileInfo* p, char *entry, int entry_len)
{
	NET_FileEntryInfo  entry_info;
	char              *e;
	CHECK((entry_len<56 || entry[10]!=' ' || entry[30]!=' ' || entry[32]!=' '), FALSE)
	// парсим дату-время
	CHECK((!net_parse_pctcp_date_time(entry+33, entry_info.date)), FALSE)
	// имя
	entry[30] = 0;
	e = SkipSpace(entry+11);
	CHECK((e[0]==0), FALSE)
	StrCpy(entry_info.FindData.cFileName, e, ARRAYSIZE(entry_info.FindData.cFileName));

	// размер или признак директория
	if(StrCmp(entry, "<dir> ",6,FALSE) == 0)
	{
		entry_info.FileType = NET_DIRECTORY;
	}
	else
	{
		e = SkipSpace(entry);
		entry_info.size = AtoI(e, (int64_t)-1);
		CHECK((entry_info.size == -1), FALSE)
	}

	return ConvertEntry(&entry_info,p);
}

BOOL WINAPI idDirParcePCTCP(const FTPServerInfo* Server, LPCSTR Line, char *CurDir, size_t CurDirSize)
{
// если строка начинается с 'Current Working Directory is ',
// то копируем текст после этой строки
	if(memcmp(Line, PCTCP_PWD_Title, PCTCP_PWD_TITLE_LEN)==0)
	{
		StrCpy(CurDir, Line+PCTCP_PWD_TITLE_LEN, (int)CurDirSize);
		return TRUE;
	}

	return FALSE;
}