/*
 * Ayttm 
 *
 * Copyright (C) 2003, the Ayttm team
 * 
 * Ayttm is derivative of Everybuddy
 * Copyright (C) 2003, Colin Leroy <colin@colino.net>
 *
 * 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
 *
 */

#include "intl.h"
 
#include <stdlib.h>
#include <string.h>
#include <errno.h>

#include "util.h"
#include "globals.h"
#include "action.h"
#include "prefs.h"
#include "mem_util.h"
#include "messages.h"
#include "edit_list_window.h"

#include "gtk/gtkutils.h"


static void action_do_action(char * value, void * data)
{
#ifndef __MINGW32__
	char *filename_html;
	char *filename_plain;
	char **files = data;
	char *begin = NULL, *end = NULL, *cmd = NULL, *tvalue = NULL;
	int found = FALSE;
	pid_t child;
	
	filename_html = files[0];
	filename_plain = files[1];
	
	tvalue = strdup(value);
	if (strstr(tvalue, "%s") != NULL) {
		begin = g_strndup(tvalue, (int)(strstr(tvalue, "%s") - tvalue));
		end   = strstr(tvalue, "%s")+2; /* don't free */
		cmd = g_strdup_printf("%s%s%s", begin, filename_html, end);
		eb_debug(DBG_CORE, "action command: %s\n",cmd);	
		
		/* replace tvalue */
		free(tvalue);
		tvalue = strdup(cmd);
		
		found = TRUE;
	} 
	if (strstr(tvalue, "%p") != NULL) {
		begin = g_strndup(tvalue, (int)(strstr(tvalue, "%p") - tvalue));
		end   = strstr(tvalue, "%p")+2; /* don't free */
		if (found) /* free last cmd */
			g_free(cmd);
		cmd = g_strdup_printf("%s%s%s", begin, filename_plain, end);
		eb_debug(DBG_CORE, "action command: %s\n",cmd);	
		found = TRUE;
	} 
	
	free(filename_html);
	free(filename_plain);
	
	if (!found) {
		ay_do_error( _("Action Error"), _("Command line is invalid (missing %s and %p).") );
		return;
	}

	child = fork();
	if (child == 0) {
		/* in child */
		system(cmd);
		g_free(cmd);
		_exit(0);
	} else if (child > 0) {
		g_free(begin);
	} else {
		ay_do_error( _("Action Error"), _("Cannot run command : fork() failed.") );
		perror("fork");
	}		
#endif
}

void conversation_action( log_file *li, int to_end )
{
#ifndef __MINGW32__
	char		buf[4096];
	char		*output_html = NULL;
	char		*output_plain = NULL;
	int			firstline = 1;
	char		*tempdir = NULL;
	char		**files = NULL;
	log_file	*logfile = NULL;
	FILE 		*output_fhtml = NULL;
	FILE 		*output_fplain = NULL;
	int			err = 0;

	
	if ( !li || !li->filename )
		return;
	
	logfile = ay_log_file_create( li->filename );
	logfile->log_started = li->log_started;
	err = ay_log_file_open( logfile, "r" );

	logfile->filepos = li->filepos;
	
	
	if ( err != 0 )
	{
		ay_do_error( _("Action Error"), _("Cannot use log: no logfile available.") );
		ay_log_file_destroy( &logfile );
		return;
	}
	
	eb_debug(DBG_CORE,"printing %s (trying to start from %lu)\n", 
			logfile->filename, 
			logfile->filepos); 
	
	logfile->filepos = fseek( logfile->fp, logfile->filepos, SEEK_SET );
	
	if ( logfile->filepos < 0 )
	{
		ay_do_error( _("Action Error"), _("Cannot use log: logfile too short (!?).") );
		ay_log_file_destroy( &logfile );
		return;
	}
	
	tempdir = getenv("TEMP");
	if (!tempdir)
		tempdir = getenv("TMP");
	if (!tempdir)
		tempdir = "/tmp";
	
	output_html = g_strdup_printf("%s/tmp_htmlXXXXXX", tempdir);
	output_plain = g_strdup_printf("%s/tmp_plainXXXXXX", tempdir);
	close(mkstemp(output_html));
	close(mkstemp(output_plain));
	
	snprintf(buf, 4096, "%s.html", output_html);
	rename(output_html, buf);
	g_free(output_html);
	output_html = g_strdup(buf);
	
	snprintf(buf, 4096, "%s.txt", output_plain);
	rename(output_plain, buf);
	g_free(output_plain);
	output_plain = g_strdup(buf);
	
	output_fhtml = fopen(output_html, "w");
	output_fplain = fopen(output_plain, "w");
	
	if (output_fhtml == NULL || output_fplain == NULL) {
		perror("fopen");
		printf(" %s %s\n", output_html, output_plain);
		ay_do_error( _("Action Error"), _("Cannot use log: Impossible to create temporary file.") );
		ay_log_file_destroy( &logfile );
		return;
	}
	
	fprintf(output_fhtml, "<html><head><title>Ayttm conversation</title></head><body>\n");
	
	while (fgets(buf, sizeof(buf), logfile->fp)) {
		char *smil = NULL;
		/* smiley tags won't be so long */
		char *bhide = "<!--", *ehide = "-->";
		char *txt = NULL;
		int addbr = FALSE;
		
		if (!to_end && strstr(buf, _("Conversation ended on ")) != NULL)
			break;
		if (strstr(buf, _("Conversation started on ")) != NULL) {
			if (firstline) {
				firstline = 0;
			} else if (!to_end && !firstline) {
				break;
			}
		}
		while ( (smil = strstr(buf, "<body")) != NULL) {
			strncpy(smil, "<p   ", 5);
		}
		while ( (smil = strstr(buf, "</body")) != NULL) {
			strncpy(smil, "</p   ", 6);
		}
		while ( (smil = strstr(buf, "<smiley name=")) != NULL) {
			char *alt = strstr(smil, "\" alt=\"");
			
			if (alt) {
				alt+=4;
			} else {
				break; /* not normal ... */
			}
			strncpy(smil, bhide, strlen(bhide));
			strncpy(alt, ehide, strlen(ehide));

			smil = alt + strlen(ehide);
			alt = strstr(smil, "\">");
			if (alt)
				strncpy(alt, "  ", 2);
		}
		if (!strncmp(buf,"<P>",3)) {
			char *alt = strstr(buf, "</P>");
			if ((alt+5-buf) == strlen(buf)) {
				/* replace <P>...</P> by ...<BR> */
				strncpy(buf, "   ", 3);
				strncpy(alt, "<BR>", 4);
			}
		} else if (!strncmp(buf,"<HR WIDTH", 9)) {
			/* add <BR> */
			addbr = TRUE;
		}
		
		eb_debug(DBG_CORE,"=>%s\n",buf);
		fprintf(output_fhtml, "%s",buf);
		if (addbr)
			fprintf(output_fhtml, "<br>");
		
		strip_html(buf);
		
		txt = buf;
		while (txt && *txt==' ')
			txt++;
		fprintf(output_fplain, "%s",txt);
		
		firstline = 0;
	}
	
	if (errno) {
		ay_do_error( _("Action Error"), strerror(errno) );
		ay_log_file_destroy( &logfile );
		fclose(output_fhtml);
		fclose(output_fplain);
		return;
	}
	
	fprintf(output_fhtml, "</body></html>\n");
	fclose(output_fhtml);
	fclose(output_fplain);
	
	files = ay_new(char *, 2);
	files[0] = output_html;	/* free after callback */
	files[1] = output_plain;
	
	if (ftell(logfile->fp) == logfile->filepos) {
		ay_do_error( _("Action Error"), _("No data available to use.") );
	} else	{
		char fname[255];
		snprintf(fname, 255, "%sactions_list", config_dir);

		show_data_choicewindow(fname, 
					_("Action"), _("Execute"), 
					_("Enter the command to run here:\n"
					  " %s = displayed conversation's file (as HTML)\n"
					  " %p = displayed conversation's file (as text)"), 
					"ACTION", "COMMAND", action_do_action, files);
	}
	
	ay_log_file_destroy( &logfile );
#endif
}