#include <stdarg.h>
#include <stdlib.h>
#include <ctype.h>
#include <string.h>
#include <tlmpweb.h>
#include "../fdpass.h"
#include <string>

using namespace std;

//#include "../proto/trlid_client.protoch"
#include "../proto/trlid_admin.protoch"
#include "../proto/trli-sessiond_admin.protoch"

static string w_session;
static struct USERINFO{
	string name;
	string email;
	bool is_admin;
	int lang;
	USERINFO(){
		lang = 0;
		is_admin = false;
	}
} userinfo;
static W_SSTRING w_email("email");
static W_SSTRING w_password("password");
static W_SSTRING w_newsid("newsid");
static W_SSTRING w_title("title");
static W_SSTRING w_url("url");
static W_SSTRING w_content("content");

static W_SSTRING new_nickname("nickname");
static W_SSTRING new_email ("new_email");
static W_SSTRING new_password1 ("new_password1");
static W_SSTRING new_password2 ("new_password2");

static W_UNSIGNED w_sub1("sub1");
static W_UNSIGNED w_sub2("sub2");
static W_UNSIGNED w_sub3("sub3");
static W_UNSIGNED w_sub4("sub4");
static W_UNSIGNED w_sub5("sub5");
static W_UNSIGNED w_sub6("sub6");
static W_UNSIGNED w_sub7("sub7");


static const int step_approvenews=2;
static const int step_approveone=3;
static const int step_class=4;

static void print_aref (const char *title, int step, W_SSTRING &var)
{
	printf ("<a href=%s?webstep=%d&%s=%s>%s</a>\n",tlmpweb_curpage(),step,var.getname(),var.c_str(),title);
}
static void print_aref (const char *title, int step, W_SSTRING &var1, W_SSTRING &var2)
{
	printf ("<a href=%s?webstep=%d&%s=%s&%s=%s>%s</a>\n",tlmpweb_curpage(),step
		,var1.getname(),var1.c_str()
		,var2.getname(),var2.c_str()
		,title);
}
static void print_aref (const char *title, int step, W_SSTRING &var1, W_SSTRING &var2, W_SSTRING &var3)
{
	printf ("<a href=%s?webstep=%d&%s=%s&%s=%s&%s=%s>%s</a>\n",tlmpweb_curpage(),step
		,var1.getname(),var1.c_str()
		,var2.getname(),var2.c_str()
		,var3.getname(),var3.c_str()
		,title);
}

static void show_buttons(_F_websteps *c)
{
	int step = c->getcurstep();
	/- <table border=1>
	/- <td>
	printf ("<a href=%s/index.hc>Main page</a>\n",tlmpweb_curdir());
	if (step != 1){
		/- <td>
		c->url_gotostep (1," Admin menu");
	}
	if (step == step_approveone){
		c->url_gotostep (step_approvenews," Approvenews");
	}
		
	/- <td>
	printf ("session: %s",w_session.c_str());
	if (userinfo.name.size()>0) printf (" Welcome %s\n<br>",userinfo.name.c_str());
		
	/- </table><p>
}

<mod>
extern "C" void webmain()
{
	glocal CONNECT_INFO con;
	glocal CONNECT_INFO con_sess;
	glocal.con.port = "/dev/trlid.sock";
	glocal.con.secret = "adm";
	glocal.con_sess.port = "/dev/sessiond.sock";
	glocal.con_sess.secret = "adm";

	const char *ptsession = tlmpweb_getcookie("session");
	if (ptsession == NULL){
		/- No session
	}else{
		w_session=ptsession;
		<call trli_sessiond_admin_getsessioninfo>(glocal.con_sess,w_session.c_str());
		<f ok>
			if (success){
				userinfo.lang = lang;
				userinfo.name = name;
				userinfo.email = email;
				userinfo.is_admin = admin;
			}else{
				/- Invalid session
			}
		</f>
		</call>
	}
	if (w_session.empty()) return;
	if (!userinfo.is_admin){
		/- No right to be there
		return;
	}
	/- <p>
	<call websteps>();
	<f setstep>
		if (step > 3){
			step = 1;
		}
	</f>
	<f step1>
		show_buttons(this);
		/- Menu	
		/- <ul>
		/- <li>
		url_gotostep(step_approvenews,"Approve news");
		/- <li>
		url_gotostep(step_class,"Classification");
		/- </ul>
	</f>
	<f step2>
		show_buttons(this);
		/- News to approve
		/- <ul>
		<call trlid_admin_listnewnews>(glocal.con,w_session.c_str(),0,10);
		<f ok>
			for (unsigned i=0; i<newsids.size(); i++){
				/- <li>
				w_newsid=newsids[i];
				glocal.websteps.url_gotostep (step_approveone,w_newsid,newsids[i]);
			}
		</f>
		</call>
		/- </ul>
	</f>
	<f step3>
		show_buttons(this);
		<call trlid_admin_getnewnews>(glocal.con,w_session.c_str(),w_newsid.c_str());
		<f ok>
			if (success){
				glocal const char *nickname = nickname;
				glocal const char *title = title;
				glocal const char *url = url;
				glocal const char *content = content;
				glocal const char *submit = submit;
				<call form>("acceptnews");
				<f setup>
					bool valsub[7];
					if (first){
						w_title = glocal.title;
						w_url = glocal.url;
						w_content = glocal.content;
						for (auto &b:valsub) b=false;
					}else{
						valsub[0] = w_sub1;
						valsub[1] = w_sub2;
						valsub[2] = w_sub3;
						valsub[3] = w_sub4;
						valsub[4] = w_sub5;
						valsub[5] = w_sub6;
						valsub[6] = w_sub7;
					}
					field_hidden (w_newsid);
					printf ("newsid %s<br>\n",w_newsid.c_str());
					printf ("nickname %s submit %s\n<br>\n",glocal.nickname,glocal.submit);
					/- <br>title
					field_string (w_title,"size=100");
					/- <br>url
					field_string (w_url,"size=100");
					/- <br>content
					field_textarea (w_content,10,120,"");
					/- <br>
					static const char *tbsub[]={"Peoples","Technology","Politic","Sports","Arts","Economy","Science"};
					for (int i=0; i<7; i++){
						printf ("%s",tbsub[i]);
						char tmp[10];
						snprintf (tmp,sizeof(tmp)-1,"sub%d",i+1);
						field_checkbox (tmp,valsub[i],"");
						/- &nbsp;&nbsp;&nbsp;
					}
					/- <br>
					button_submit ("ok");
				</f>
				<f validate>
					bool ret = true;
					if (w_sub1 == 0
						&& w_sub2 == 0
						&& w_sub3 == 0
						&& w_sub4 == 0
						&& w_sub5 == 0
						&& w_sub6 == 0
						&& w_sub7 == 0){
						/- <font color=red>You must assign this news to at least one subject</font>
						ret = false;
					}
					return ret;
				</f>
				<f process>
					<call trlid_admin_approvenews>(glocal.con,w_session.c_str(),w_newsid.c_str());
					<f ok>
						::printf ("approve success %d<br>\n",success);
						if (success){
							vector<string> subjects;
							if (w_sub1 != 0) subjects.push_back("Peoples");
							if (w_sub2 != 0) subjects.push_back("Technology");
							if (w_sub3 != 0) subjects.push_back("Politic");
							if (w_sub4 != 0) subjects.push_back("Sports");
							if (w_sub5 != 0) subjects.push_back("Arts");
							if (w_sub6 != 0) subjects.push_back("Economy");
							if (w_sub7 != 0) subjects.push_back("Science");
							<call trlid_admin_assignsubjects>(glocal.con,w_session.c_str(),w_newsid.c_str(),subjects);
							<f ok>
								::printf ("assignsubject success %d<br>\n",success);
							</f>
							</call>
						}
					</f>
					</call>
				</f>
				</call>
			}else{
				printf ("Internal error\n");
			}
		</f>
		</call>
	</f>
	<f step4>
	</f>
	<f step5>
	</f>	
	<f step6>
	</f>
	<f step7>
	</f>
	</call>
}
</mod>