#include <stdarg.h>
#include <stdlib.h>
#include <ctype.h>
#include <string.h>
#include <tlmpweb.h>
#include "../fdpass.h"
#include <string>
#include "util.h"
#include "../hostname.h"
#
using namespace std;

#include "../proto/trlid_client.protoch"
#include "../proto/trli-sessiond_client.protoch"

static W_SSTRING w_content("content");
static W_UNSIGNED w_offmain ("offmain");
static W_UNSIGNED w_offcom ("offcom");
static W_UNSIGNED w_order ("order");
static unsigned order = 0;
static W_SSTRING w_blogid ("blogid");
static W_UNSIGNED w_preview ("preview");


static const int step_main=1;
static const int step_viewblog=2;
static const int step_postcomment=3;

static const char *newscolor = "green";
static const char *blogcolor = "deepskyblue";
static const char *newsstats = "WhiteSmoke";

static void show_buttons_right(_F_websteps *c)
{
	/- <table border=0 cellspacing=0>
	/- <tr><td colspan=8>
	/- <font size=4 color=lightgray>
	if (userinfo.name.empty()){
		htmlprintf ("Anonymous, for your eyes only");
	}else{
		htmlprintf ("Welcome %s",userinfo.name.c_str());
		int nb = 40 - userinfo.name.size() - 8; 
		for (int i=0; i<nb; i++){
			htmlprintf ("&nbsp;");
		}
	}
	/- </font>
	/- </td></tr>
		
	/- </table><p>
}
static void show_buttons_context(_F_websteps *c)
{
	int step = c->getcurstep();
	/- <table border=0 cellspacing=0 width=100%>
	/- <tr>
		
	if (step < 2){
		/- <td align=left>
		unsigned old = w_order;
		w_order = order ? 0 : 1;
		print_aref (w_order ? "Switch order: old to new" : "Switch order: new to old",step_main,w_order);
		w_order = old;
	}
	if (step > 1){
		/- <td align=left>
		print_aref ("Blog main page",step_main,w_offmain);
	}
	if (step == step_viewblog){
		/- <td align=left>
		print_aref ("Add comment",step_postcomment,w_blogid);
	}
	/- <td align=right>
	/- <table border=0>
	/- <td align=right>
	printhref ("/about.html","About " TRUELIES,true);
	/- </table>
	/- </table><p>
}

static W_UNSIGNED w_tosubject("tosubject");

static void trli_title (const char *title, _F_websteps *c)
{
	string tmp = string_f (TRUELIES ": %s",title);
	tlmpweb_title (tmp.c_str());
	util_google_code();
	util_defstyles();
	tlmpweb_body("white",NULL);
	htmlprintf ("<table width=100%% bgcolor=%s cellspacing=0><tr><td align=left>\n",newscolor);
		/- <table border=0><tr><td><a href=/7s.html style=\"text-decoration:none\"><img src=/favicon.ico></a></td><td align=left>
		tmp = string_f ("<a href=/index.hc style=\"text-decoration:none\"><font size=15 color=\"white\">Truelies.news</font></a>&nbsp;&nbsp;&nbsp; %s",title);
		htmlprintf ("%s",tmp.c_str());
		/- <td>
		printhref ("/about.html","<font color=white>Where the truth lies...</font>",true);
		/- </td></tr></table>
	/- </td><td align=right valign=top>
	show_buttons_right (c);
	/- </td></tr>
	/- <tr><td align=left>
	if (!tlmpweb_isrobot()){
		trli_subjects (13, 1000, false,true,w_tosubject);
	}
	/- </td></tr></table><br>
	show_buttons_context (c);
}
<mod>
static void show_currentblog(CONNECT_INFO &con)
{
	<call trlid_client_getblog>(con,w_blogid.c_str());
	<f ok>
		/- <table border=1 width=100%><tr><td>
		/- <table border=0 width=100%>
		htmlprintf ("<tr bgcolor=%s><td align=left><font color=white size=4>\n",blogcolor);
		format_line (title);
		/- </font></td>
		/- </tr>
		//news_secondline (nickname,submit,url,nbproof,nbcomment);
		/- <tr><td>
			/- <table width=95% align=center bgcolor=white border=0><tr><td><td>
				/- <table width=100%>
				/- <tr><td bgcolor=white>
				/- <p><p>
				format_content (content);
				/- <p>
				/- </td></tr>
				/- </table>
			/- </td></tr></table>
		/- </td></tr>
		/- </table>
		/- </table>
	</f>
	</call>
}
</mod>
static void show_onecomment (const char *blogid, const char *nickname, const char *submit, const char *content)
{
	/- <table border=0 width=100%>
	//htmlprintf ("<tr bgcolor=lightblue><td align=left><a href=%s?webstep=%d&blogid=%s style=\"text-decoration:none\">\n"
	//	,tlmpweb_curpage(),0,w_blogid.c_str());
	///- </a></td>
	///- </tr>
	htmlprintf ("<tr bgcolor=%s><td>%s <font color=gray>on</font>\n",newsstats,nickname);
	print_date (submit);
	/- <tr><td>
		/- <table width=95% align=center bgcolor=white border=0><tr><td>
			/- <table width=100%>
			/- <tr><td bgcolor=white align=left>
			/- <p><p>
			format_content (content);
			/- <p>
			/- </td></tr>
			/- </table>
		/- </td></tr></table>
	/- </td></tr>
	/- </table>
}
<mod>

<mod>
static bool valid_context (CONNECT_INFO &con, _F_websteps *c, const char *subject, bool check_blog)
{
	glocal bool ret = true;
	if (userinfo.name.empty()){
		trli_title ("",c);
		/- <p>You must be logged to
		printf ("%s<p>\n",subject);
		glocal.ret = false;
	}
	if (check_blog){
		<call trlid_client_getblog>(con,w_blogid.c_str());
		<f ok>
			if (!success) glocal.ret = false;	
		</f>
		</call>
	}
	return glocal.ret;
}
</mod>
<mod>
extern "C" void webmain()
{
	glocal string w_session;
	glocal CONNECT_INFO con;
	glocal CONNECT_INFO con_sess;
	glocal.con.port = "/dev/trlid.sock";
	glocal.con.secret = "foo";
	glocal.con_sess.port = "/dev/sessiond.sock";
	glocal.con_sess.secret = "foo";

	if (util_getsessioninfo (glocal.con,glocal.con_sess,glocal.w_session,"order",order)==-1) return;
	if (w_order.isset() && order != w_order){
		string s = w_order.getvalstr();
		<call trli_sessiond_client_setvar>(glocal.con_sess,glocal.w_session.c_str(),"order",s.c_str());
		<f ok>
			if (!success) printf ("Can't set variable order: %s\n",msg);
		</f>
		</call>
		order = w_order;
	}
	/- <p>
	<call websteps>();
	<f setstep>
		if (step > 3){
			step = 1;
		}
	</f>
	<f step1>
		trli_title ("",this);
		if (w_offmain > 0){
			unsigned off = w_offmain;
			if (off > 20){
				off -= 20;
			}else{
				off = 0;
			}
			htmlprintf ("<a href=%s?webstep=1&offmain=%u style=\"text-decoration:none\">Previous blog entries</a>\n"
				,tlmpweb_curpage(),off);
		}
		<call trlid_client_listblogs>(glocal.con,w_offmain,20,order);
		<f ok>
			/- <table width=100%>
			for (unsigned i=0; i<blogids.size(); i++){
				htmlprintf ("<tr bgcolor=%s><td align=left><a href=%s?webstep=%d&blogid=%s&offmain=%u style=\"text-decoration:none\"><font color=white size=4>\n"
					,blogcolor,tlmpweb_curpage(),step_viewblog,blogids[i],w_offmain.getval());
				format_line (titles[i]);
				/- </font></a></td>
				/- <td align=right>
				htmlprintf ("%u&nbsp;comments",nbcomments[i]);
				/- </tr>
				htmlprintf ("<tr bgcolor=%s><td colspan=2><font color=gray>Submit on</font>\n",newsstats);
				print_date (submits[i]);
				//news_secondline (nicknames[i],submits[i],urls[i],nbproofs[i],nbcomments[i]);
				/- <tr><td>
					/- <table width=95% align=center bgcolor=white border=0><tr><td><td>
						/- <table width=100%>
						/- <tr bgcolor=white><td>
						/- <p><p>
						bool more;
						format_content (contents[i],10,more);
						if (more){
							htmlprintf ("<br><a href=%s?webstep=%d&blogid=%s&offmain=%u>More ...</a>\n"
								,tlmpweb_curpage(),step_viewblog,blogids[i],w_offmain.getval());
						}
						/- <p>
						/- </td></tr>
						/- </table>
					/- </td></tr></table>
				/- </td></tr>
			}
			/- </table>
			if (blogids.size() == 20){
				htmlprintf ("<a href=%s?webstep=1&offmain=%u style=\"text-decoration:none\">Next blog entries</a>\n"
					,tlmpweb_curpage(),w_offmain+20);
			}
		</f>
		</call>
	</f>
	<f step2>
		trli_title ("",this);
		show_currentblog (glocal.con);
		<call trlid_client_listblogcomments>(glocal.con,w_blogid.c_str(),w_offcom,20);
		<f ok>
			for (unsigned i=0; i<nicknames.size(); i++){
				show_onecomment (w_blogid.c_str(),nicknames[i],submits[i],contents[i]);
			}
		</f>
		</call>
	</f>
	<f step3>
		if (valid_context(glocal.con,this,"add a comment",true)){
			<call form>("comment");
			<f top>
				trli_title ("",&glocal.websteps);
				/- <p> sesssion
				htmlprintf (" %s<p>\n",glocal.w_session.c_str());
				show_currentblog(glocal.con);
				/- <p>
				<call button_row>(0);
				<f draw>
					split();
					print_aref("Back to current blog",step_viewblog,w_blogid);
					split();
					formatting_tips();
				</f>
				</call>
				/- <br>
			</f>
			<f bottom>
				/- <table border=1 align=center width=50%><tr><td>
				/- <font size=4>Preview</font><p>
				format_content (w_content.c_str());
				/- </td></tr></table>
			</f>
			<f setup>
				if (first){
					<call trlid_client_getblogcomment>(glocal.con,glocal.w_session.c_str(),w_blogid.c_str());
					<f ok>
						if (success){
							w_content = content;
						}
					</f>
					</call>
				}
				/- <table border=0 align=center>
				field_hidden(w_blogid);
				/- <tr><td>
				field_textarea (w_content,20,120,"");
				/- <tr><td>
				button_submit ("Post");
				button_preview (step_postcomment);
				/- </table>
			</f>
			<f buttons>
				if (w_preview.getval() != 0) nothingtodo = false;
			</f>
			<f validate>
				bool ret = false;
				if (!w_content.empty()){
					ret = true;
				}
				return ret;
			</f>
			<f process>
				<call trlid_client_addblogcomment>(glocal.con,glocal.w_session.c_str(),w_blogid.c_str(),w_content.c_str());
				<f ok>
					if (success){
						glocal.websteps.gotostep(step_viewblog);
					}else{
						::printf ("success %d msg=%s\n",success,msg);
					}
				</f>
				</call>
			</f>	
			</call>
		}
	</f>
	<f step4>
	</f>
	<f step5>
	</f>	
	<f step6>
	</f>
	<f step7>
	</f>
	</call>
}
</mod>