/*
"Last Seen mod" plugin for Miranda IM
Copyright ( C ) 2002-03  micron-x
Copyright ( C ) 2005-07  Y.B.

This program 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
of the License, or ( at your option ) any later version.

This program 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 this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

File name      : $URL: http://svn.berlios.de/svnroot/repos/mgoodies/trunk/lastseen-mod/file.c $
Revision       : $Rev: 1570 $
Last change on : $Date: 2007-12-30 01:30:07 +0300 (Вс, 30 дек 2007) $
Last change by : $Author: y_b $
*/

#include "seen.h"
/*
Prepares the log file:
- calculates the absolute path (and store it in the db)
- creates the directory

*/
int InitFileOutput(void)
{
	TCHAR szfpath[256], szmpath[256];
	GetModuleFileName(NULL, szmpath, MAX_PATH);

	DBVARIANT dbv;
	_tcscpy(szfpath, !DBGetContactSettingTString(NULL, S_MOD, "FileName", &dbv) ? dbv.ptszVal : _T(DEFAULT_FILENAME));
	db_free(&dbv);

	if (szfpath[0] == '\\')
		_tcscpy(szfpath, szfpath+1);

	TCHAR *str = _tcsrchr(szmpath, '\\');
	if (str != NULL)
		*++str=0;

	_tcscat(szmpath, szfpath);
	_tcscpy(szfpath, szmpath);

	str = _tcsrchr(szmpath, '\\');
	if (str != NULL)
		*++str=0;

	db_set_ts(NULL, S_MOD, "PathToFile", szfpath);
	return 0;
}

/*
Writes a line into the log.
*/
void FileWrite(HANDLE hcontact)
{
	TCHAR szout[1024];

	DBVARIANT dbv;
	DBGetContactSettingTString(NULL, S_MOD, "PathToFile", &dbv);
	_tcscpy(szout, ParseString(dbv.ptszVal, hcontact, 1));

	HANDLE fhout = CreateFile(szout, GENERIC_WRITE, 0, NULL, OPEN_ALWAYS, 0, NULL);
	if (fhout == INVALID_HANDLE_VALUE){
		TCHAR fullpath[1024];
		_tcscpy(fullpath, szout);
		TCHAR *dirpath = _tcsrchr(fullpath, '\\');
		if (dirpath != NULL)
			*dirpath = '\0';
		CreateDirectoryTreeT(fullpath);
		fhout = CreateFile(szout, GENERIC_WRITE, 0, NULL, OPEN_ALWAYS, 0, NULL);
		if (fhout == INVALID_HANDLE_VALUE)
			return;
	}
	db_free(&dbv);
	SetFilePointer(fhout,0,0,FILE_END);

	if ( !DBGetContactSettingTString(NULL, S_MOD,"FileStamp", &dbv)) {
		_tcscpy(szout, ParseString(dbv.ptszVal, hcontact, 1));
		db_free(&dbv);
	}
	else _tcscpy(szout, ParseString( _T(DEFAULT_FILESTAMP), hcontact, 1));
	
	DWORD byteswritten;
	WriteFile(fhout, _T2A(szout), (DWORD)_tcslen(szout), &byteswritten, NULL);
	WriteFile(fhout, "\r\n", 2, &byteswritten, NULL);

	CloseHandle(fhout);
}