/*
	Command line client to test trlid
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <misc.h>
#include <ctime>
#include <sys/wait.h>
#include <tlmplib.h>
#include <tlmpnet.h>
#include <string>
#include "fdpass.h"
#include "hostname.h"


using namespace std;

#define trlid_client_listnews_v1_NOTNEED
#define trlid_client_listnews_v2_NOTNEED
#define trlid_client_listnews_v3_NOTNEED
#define trlid_client_getnews_NOTNEED
#define trlid_client_getnews_v2_NOTNEED
#define trlid_client_validextraurl_NOTNEED
#include "proto/trlid_client.protoch"
#include "proto/trlid_admin.protoch"
#define trli_sessiond_admin_getsessioninfo_NOTNEED
#define trli_sessiond_admin_test_NOTNEED
#define trli_sessiond_admin_createsession_NOTNEED
#define trli_sessiond_admin_deletesessions_NOTNEED
#define trli_sessiond_admin_setsession_NOTNEED
#define trli_sessiond_admin_getsession_NOTNEED
#include "proto/trli-sessiond_admin.protoch"

<mod>
static string trlid_createsession(CONNECT_INFO &con)
{
	glocal string ret;
	<call trlid_client_createsession>(con);
	<f ok>
		glocal.ret = sessionid;
	</f>
	</call>
	return glocal.ret;
}
</mod>
<mod>
static void trlid_deletesession(CONNECT_INFO &con, string &sessionid)
{
	<call trli_sessiond_admin_deletesession>(con,sessionid);
	<f ok>
	</f>
	</call>
}
</mod>
static bool verbose = true;
<mod>
static string trlid_login (CONNECT_INFO &con, PARAM_STRING email, PARAM_STRING password)
{
	glocal string ret;
	glocal const char *email = email.ptr;
	glocal string sessionid = trlid_createsession(con);
	<call trlid_client_login>(con,glocal.sessionid,email,password);
	<f ok>
		if (verbose || !success) printf ("\tlogin %s success=%d sessionid=%s\n",glocal.email,success,glocal.sessionid.c_str());
		if (success) glocal.ret = glocal.sessionid;
	</f>
	</call>
	return glocal.ret;
}
</mod>
<mod>
static string trlid_login (CONNECT_INFO &con, const char *user_suffix)
{
	glocal string ret;
	if (user_suffix == NULL){
		tlmp_error ("trlid_login user_suffix=NULL\n");
		exit (-1);
	}else if (strcmp(user_suffix,"admin")==0){
		glocal.ret = trlid_login(con,"admin@" TRUELIES,"admin");
	}else if (strcmp(user_suffix,"anonymous")==0){
		glocal.ret = trlid_createsession(con);
	}else{
		glocal const char *user_suffix = user_suffix;
		string email=string("jacques-")+user_suffix+string("@" TRUELIES);
		string password=string("pass-")+user_suffix;
		glocal.ret = trlid_login(con,email.c_str(),password.c_str());
	}
	return glocal.ret;
}
</mod>

<mod>
static void trlid_logout (CONNECT_INFO &con, const PARAM_STRING sessionid)
{
	<call trlid_client_logout>(con,sessionid);
	<f ok>
		if (verbose) printf ("\tlogout\n");
	</f>
	</call>
}
</mod>

static void test_execute (const char *cmd)
{
	if (cmd != NULL) system(cmd);
}

struct XURL{
	string url;
	string content;
	XURL (const char *_url){
		url = _url;
	}
};

<mod>
int main (int argc, char *argv[])
{
	glocal int ret = -1;
	glocal const char *cli_port = "9000";
	glocal const char *adm_port = "9000";
	glocal const char *sessport = "9200";
	glocal const char *host = "192.168.4.1";
	glocal const char *client_bind = "192.168.5.5";
	glocal const char *admin_bind = "192.168.5.6";
	glocal const char *sess_bind = "192.168.5.3";
	glocal const char *testadduser = NULL;
	glocal const char *testaddincomplete = NULL;
	glocal const char *testlogin = NULL;
	glocal const char *testdeleteuser = NULL;
	glocal const char *testaddnews = NULL;
	glocal const char *testaddnewsurl = NULL;
	glocal const char *testvalidnews = NULL;
	glocal const char *testaddblog = NULL;
	glocal const char *testaddblogcomment = NULL;
	glocal const char *testaddproof = NULL;
	glocal const char *testaddcomment = NULL;
	glocal const char *testaddargument = NULL;
	glocal const char *testlistarguments = NULL;
	glocal const char *testgetnews = NULL;
	glocal const char *testgetnewnews = NULL;
	glocal bool testapprovenews = false;
	glocal bool testapprovenewsurl = false;
	glocal bool testgetextraurls = false;
	glocal bool testrejectnews = false;
	glocal bool testlistsubjects = false;
	glocal bool testlistnews = false;
	glocal const char *testlistnewsv2 = NULL;
	glocal bool testlistnewnews = false;
	glocal bool testlistblog = false;
	glocal const char *testlistblogcomments=NULL;
	glocal const char *testlistproofs = NULL;
	glocal const char *testlistcomments = NULL;
	glocal bool testsystem = false;
	glocal bool testcreatesessions = false;
	glocal bool testgetstats = false;
	glocal const char *exec1 = NULL;
	glocal const char *exec2 = NULL;
	glocal string client_secret;
	glocal string admin_secret;
	glocal int workers = 1;
	glocal int nbrep = 1;
	glocal int nbrows = 10;
	glocal const char *extra = "";
	glocal const char *extra2 = "";
	glocal bool idonly = false;
	glocal const char *loadnewsdir = NULL;
	glocal const char *loadblogdir = NULL;
	glocal const char *loaduserfile = NULL;
	glocal.ret = <call tlmpprogram>(argc,argv);
	<f init>
		setproginfo ("trlid-client",VERSION
			,"Command line client to test trlid\n"
			"\n"
			"\tlogin email password\n"
			"\tlogout user\n"
			"\tadduser name email password = confirmid\n"
			"\tconfirmuser id\n"
			"\tdeleteuser userid = confirmid\n"
			"\tconfirmdelete id\n"
			"\taddnews sessionid url title text\n"
			"\taddproof sessionid newsid valid type title text\n"
			"\taddcomment sessionid proofid vote text\n"
			"\tlistnews offset nb = newsid title url\n"
			"\tlistproofs newsid offset nb\n"
			"\tlistcomments proofid offset nb\n");

		setarg ('h',"host","Host name of IP of trlid server",glocal.host,false);
		setarg ('p',"cli_port","client TCP port of trlid server (or unix path)",glocal.cli_port,false);
		setarg (' ',"adm_port","admin TCP port of trlid server (or unix path)",glocal.adm_port,false);
		setarg (' ',"sessport","TCP port of sessiond server",glocal.sessport,false);
		setarg (' ',"client_secret","Secret used to sign client requests",glocal.client_secret,true);
		setarg (' ',"client_bind","Client IP used to reach the host",glocal.client_bind,false);
		setarg (' ',"admin_secret","Secret used to sign admin requests",glocal.admin_secret,true);
		setarg (' ',"admin_bind","Client IP used to reach the host",glocal.admin_bind,false);
		setarg (' ',"sess_bind","Client IP used to reach sessiond",glocal.sess_bind,false);
		setgrouparg ("File operations");
		setarg (' ',"loadnews","Load news from files",glocal.loadnewsdir,false);
		setarg (' ',"loadusers","Load user accounts from file",glocal.loaduserfile,false);
		setarg (' ',"loadblog","Load blog from files",glocal.loadblogdir,false);
		setgrouparg ("Tests");
		setarg (' ',"exec1","Execute a command in the middle of the test",glocal.exec1,false);
		setarg (' ',"exec2","Execute a command in the middle of the test",glocal.exec2,false);
		setarg (' ',"testadduser","Sequence adduser confirmuser",glocal.testadduser,false);
		setarg (' ',"testaddincomplete","Sequence adduser without confirm",glocal.testaddincomplete,false);
		setarg (' ',"testlogin","Sequence login logout",glocal.testlogin,false);
		setarg (' ',"testdeleteuser","Sequence login deleteuser",glocal.testdeleteuser,false);
		setarg (' ',"testaddnews","Sequence addnews",glocal.testaddnews,false);
		setarg (' ',"testaddnewsurl","Sequence addnews url",glocal.testaddnewsurl,false);
		setarg (' ',"testvalidnews","Sequence validnews",glocal.testvalidnews,false);
		setarg (' ',"testaddblog","Sequence addblog",glocal.testaddblog,false);
		setarg (' ',"testaddblogcomment","Sequence addblogcomment",glocal.testaddblogcomment,false);
		setarg (' ',"testaddproof","Sequence addproof",glocal.testaddproof,false);
		setarg (' ',"testaddcomment","Sequence addcomment",glocal.testaddcomment,false);
		setarg (' ',"testaddargument","Sequence addargument",glocal.testaddargument,false);
		setarg (' ',"testlistarguments","Sequence listarguments",glocal.testlistarguments,false);
		setarg (' ',"testapprovenews","Approve all pending news",glocal.testapprovenews,false);
		setarg (' ',"testrejectnews","Reject first pending news",glocal.testrejectnews,false);
		setarg (' ',"testapprovenewsurl","Approve all pending extra news url",glocal.testapprovenewsurl,false);
		setarg (' ',"testgetextraurls","Get the extra URLs for all news",glocal.testgetextraurls,false);
		setarg (' ',"testgetnews","get one news",glocal.testgetnews,false);
		setarg (' ',"testgetnewnews","get one news to approve",glocal.testgetnewnews,false);
		setarg (' ',"testlistsubjects","List all subjects",glocal.testlistsubjects,false);
		setarg (' ',"testlistnews","List all news",glocal.testlistnews,false);
		setarg (' ',"testlistnewsv2","List all news for one subject",glocal.testlistnewsv2,false);
		setarg (' ',"testlistnewnews","List all new news",glocal.testlistnewnews,false);
		setarg (' ',"testlistproofs","List all proofs for a news",glocal.testlistproofs,false);
		setarg (' ',"testlistcomments","List all comments for a proof",glocal.testlistcomments,false);
		setarg (' ',"testlistblog","List all blogs",glocal.testlistblog,false);
		setarg (' ',"testlistblogcomments","List all comments for a blog",glocal.testlistblogcomments,false);
		setarg (' ',"testsystem","Test components",glocal.testsystem,false);
		setarg (' ',"testcreatesessions","Create many sessions",glocal.testcreatesessions,false);
		setarg (' ',"testgetstats","Get statistics about news",glocal.testgetstats,false);
		setarg (' ',"workers","Test concurent access",glocal.workers,false);
		setarg (' ',"nbrep","Number of repetition per worker",glocal.nbrep,false);
		setarg (' ',"nbrows","Number of rows requested",glocal.nbrows,false);
		setarg (' ',"extra","Extra string when adding something",glocal.extra,false);
		setarg (' ',"extra2","Extra second string when adding something",glocal.extra2,false);
		setarg (' ',"idonly","Shows only ID when listing records",glocal.idonly,false);
	</f>
	<f main_noarg>
		glocal int ret = -1;
		// Used for testing
		glocal CONNECT_INFO con_cli;
		glocal CONNECT_INFO con_adm;
		glocal CONNECT_INFO con_sess;
		glocal.con_cli.secret = glocal.client_secret;
		glocal.con_cli.host = glocal.host;
		glocal.con_cli.port = glocal.cli_port;
		glocal.con_cli.bind = glocal.client_bind;

		glocal.con_adm.secret = glocal.admin_secret;
		glocal.con_adm.host = glocal.host;
		glocal.con_adm.port = glocal.adm_port;
		glocal.con_adm.bind = glocal.admin_bind;

		glocal.con_sess.secret = glocal.admin_secret;
		glocal.con_sess.host = glocal.host;
		glocal.con_sess.port = glocal.sessport;
		glocal.con_sess.bind = glocal.sess_bind;
		if (glocal.loaduserfile != NULL){
			<call loadfile>(glocal.loaduserfile,true);
			<f oneline>
				vector<string> tb;
				int n = str_splitline(line,' ',tb);
				if (n == 3){
					glocal string name  = tb[0];
					string &email = tb[1];
					string &pass  = tb[2];
					string sessionid = trlid_createsession(glocal.con_cli);
					if (sessionid.size() > 0){
						<call trlid_client_adduser>(glocal.con_cli,sessionid,glocal.name,email,pass);
						<f ok>
							//printf ("\tid=%s msg=%s\n",confirmid,msg);
							if (confirmid[0] == '\0'){
								printf ("\tEmpty confirmid msg=%s\n",msg);
							}else{
								<call trlid_client_confirmuser>(glocal.con_cli,confirmid);
								<f ok>
									printf ("\t%-15s %s\n",glocal.name.c_str(),msg);
								</f>
								</call>
							}
						</f>
						</call>
						trlid_deletesession(glocal.con_sess,sessionid);
					}
				}
				return 0;
			</f>
			</call>
		}else if (glocal.loadnewsdir != NULL){
			verbose = false;
			glocal string admin_sessionid = trlid_login(glocal.con_cli,"admin@" TRUELIES,glocal.extra);
			if (glocal.admin_sessionid.size() > 0){
				<call walkfs>(glocal.loadnewsdir);
				<f onefile>
					if (strcmp(basename,"copy.sh")==0) return;
					glocal string user;
					glocal string password;
					glocal string title;
					glocal string url;
					glocal string content;
					glocal vector<string> subjects;
					glocal const char *filename = basename;
					glocal bool error = false;
					glocal vector<XURL> xurls;
					<call loadfile>(path,true);
					<f oneline>
						if (noline == 0){
							glocal.user = line;
						}else if (noline == 1){
							vector<string> tb;
							int n = str_splitlineq (line,tb);
							if (n >= 1){
								glocal.password = tb[0];
								for (int i=1; i<n; i++) glocal.subjects.push_back(tb[i]);
							}else{
								tlmp_error ("*** File %s, empty password line\n",glocal.filename);
							}
						}else if (noline == 2){
							glocal.title = line;
							if (strlen(line) < 15){
								tlmp_error ("*** File %s, title too short: %s\n",glocal.filename,line);
								glocal.error = true;
							}
						}else if (noline == 3){
							if (strncmp(line,"http://",7)!=0
								&& strncmp(line,"https://",8)!=0){
								tlmp_error ("*** File %s, url line invalid: %s\n",glocal.filename,line);
								glocal.error = true;
							}
							glocal.url = line;
						}else if (strncmp(line,"XURL:",5)==0){
							const char *newurl = str_skip(line+5);
							for (auto &s:glocal.xurls){
								if (strcmp(s.url.c_str(),newurl)==0){
									tlmp_error ("*** File %s, Url repeated: %s\n",glocal.filename,newurl);
									glocal.error = true;
									break;
								}
							}
							glocal.xurls.push_back(XURL(str_skip(newurl)));
						}else if (glocal.xurls.size() > 0){
							string &c = glocal.xurls[glocal.xurls.size()-1].content;
							c += line;
							c += "\n";
						}else{
							glocal.content += line;
							glocal.content += "\n";
						}
						return 0;
					</f>
					</call>
					if (glocal.content.empty()){
						tlmp_error ("*** Invalid news, empty content: %s\n",path);
					}else if (glocal.error){
						tlmp_error ("!!! File %s not processed\n",path);
					}else{
						// Removes trailing blank lines
						strip_end (glocal.content);
						glocal.content += "\n";
						for (auto &x:glocal.xurls){
							strip_end(x.content);
							x.content += "\n";
						}
						glocal string sessionid = trlid_login (glocal.con_cli,glocal.user,glocal.password);
						if (glocal.sessionid.size() > 0){
							<call trlid_client_validnews> (glocal.con_cli,glocal.url);
							<f ok>
								glocal string newsid = newsid;
								if (success){
									<call trlid_admin_modifynews> (glocal.con_adm,glocal.admin_sessionid,newsid,glocal.content);
									<f ok>
										if (!success || strcasecmp(msg,"content identical")!=0){
											printf ("%s modifynews: success=%d msg=%s %s\n"
												,success ? "   " : "***"
												,success,msg,glocal.filename);
										}
									</f>
									</call>
								}else{
									<call trlid_client_addnews> (glocal.con_cli,glocal.sessionid,glocal.url,glocal.title,glocal.content);
									<f ok>
										printf ("%s addnews:success=%d newsid=%s msg=%s %s\n"
											,success ? "   " : "***"
											,success,newsid,msg,glocal.filename);
										if (success){
											glocal.newsid = newsid;
											glocal const char *newsid = newsid;
											<call trlid_admin_approvenews>(glocal.con_adm,glocal.admin_sessionid,glocal.newsid);
											<f ok>
												printf ("%s approvenews %s success=%d msg=%s %s\n"
													,success ? "   " : "***"
													,glocal.newsid,success,msg,glocal.filename);
											</f>
											</call>
										}
									</f>
									</call>
								}
								if (glocal.newsid.size() > 0){
									if (glocal.subjects.size() > 0){
										<call trlid_admin_assignsubjects>(glocal.con_adm,glocal.admin_sessionid,glocal.newsid.c_str(),glocal.subjects);
										<f ok>
											if (!success || strcasecmp(msg,"no change")!=0){
												printf ("%s assignsubject success=%d msg=%s %s\n"
													,success ? "   " : "***"
													,success,msg,glocal.filename);
											}
										</f>
										</call>
									}
									for (auto x:glocal.xurls){
										glocal const char *url = x.url.c_str();
										<call trlid_client_addnewsurl>(glocal.con_cli,glocal.admin_sessionid,glocal.newsid,x.url,x.content);
										<f ok>
											if (success
												|| strncmp(msg,"Url al",6)!=0){
												printf ("\t\txurl: %s success=%d msg=%s url=%s\n",glocal.filename,success,msg,glocal.url);
											}
										</f>
										</call>
									}
								}
							</f>
							</call>
							trlid_logout (glocal.con_cli,glocal.sessionid);
						}
					}
				</f>
				</call>
				trlid_logout (glocal.con_cli,glocal.admin_sessionid);
			}
		}else if (glocal.testadduser){
			string name=string("jacques-")+glocal.testadduser;
			string email=string("jacques-")+glocal.testadduser+string("@" TRUELIES);
			string password=string("pass-")+glocal.testadduser;
			if (strcmp(glocal.testadduser,"admin")==0){
				name="admin";
				email="admin@" TRUELIES;
				password="admin";
			}
			printf ("testadduser email=%s\n",email.c_str());
			string sessionid = trlid_createsession(glocal.con_cli);
			if (sessionid.size() > 0){
				<call trlid_client_adduser>(glocal.con_cli,sessionid,name,email,password);
				<f ok>
					printf ("\tid=%s msg=%s\n",confirmid,msg);
					if (confirmid[0] == '\0'){
						printf ("\tEmpty confirmid\n");
					}else{
						<call trlid_client_confirmuser>(glocal.con_cli,confirmid);
						<f ok>
							printf ("\tsuccess=%d %s\n",success,msg);
						</f>
						</call>
					}
				</f>
				</call>
				trlid_deletesession(glocal.con_sess,sessionid);
			}
		}else if (glocal.testaddincomplete){
			string name=string("jacques-")+glocal.testaddincomplete;
			string email=string("jacques-")+glocal.testaddincomplete+string("@" TRUELIES);
			string password=string("pass-")+glocal.testaddincomplete;
			printf ("testaddincomplete email=%s\n",email.c_str());
			string sessionid = trlid_createsession(glocal.con_cli);
			if (sessionid.size() > 0){
				<call trlid_client_adduser>(glocal.con_cli,sessionid,name,email,password);
				<f ok>
					if (confirmid[0] == '\0'){
						printf ("\tEmpty confirmid: msg=%s\n",msg);
					}else{
						printf ("\tid=%s msg=%s\n",confirmid,msg);
					}
				</f>
				</call>
				trlid_deletesession(glocal.con_sess,sessionid);
			}
		}else if (glocal.testlogin){
			glocal string sessionid = trlid_createsession(glocal.con_cli);
			string email=string("jacques-")+glocal.testlogin+string("@" TRUELIES);
			string password=string("pass-")+glocal.testlogin;
			<call trlid_client_login>(glocal.con_cli,glocal.sessionid,email,password);
			<f ok>
				printf ("testlogin success=%d\n",success);
				test_execute (glocal.exec1);
				if (success){
					<call trlid_client_logout>(glocal.con_cli,glocal.sessionid);
					<f ok>
						printf ("\tlogout ok\n");
					</f>
					</call>
				}
			</f>
			</call>
		}else if (glocal.testdeleteuser){
			// We log twice with the same account and then delete the account (A user is allowed to do so)
			glocal string email=string("jacques-")+glocal.testdeleteuser+string("@" TRUELIES);
			glocal string password=string("pass-")+glocal.testdeleteuser;
			glocal string sessionid1 = trlid_createsession(glocal.con_cli);
			if (strcmp(glocal.testdeleteuser,"admin")==0){
				glocal.email="admin@" TRUELIES;
				glocal.password="admin";
			}
			// We start with a login to get a session id
			<call trlid_client_login>(glocal.con_cli,glocal.sessionid1,glocal.email,glocal.password);
			<f ok>
				printf ("login1 success=%d sessionid=%s\n",success,glocal.sessionid1.c_str());
				glocal string sessionid2 = trlid_createsession(glocal.con_cli);
				<call trlid_client_login>(glocal.con_cli,glocal.sessionid2,glocal.email,glocal.password);
				<f ok>
					printf ("login2 success=%d sessionid=%s\n",success,glocal.sessionid2.c_str());
					if (success){
						test_execute (glocal.exec1);
						<call trlid_client_deleteuser>(glocal.con_cli,glocal.sessionid2);
						<f ok>
							printf ("deleteuser email=%s deleteid=%s\n",email,confirmid);
							<call trlid_client_confirmdelete>(glocal.con_cli,confirmid);
							<f ok>
								printf ("delete done success=%d msg=%s\n",success,msg);
								test_execute (glocal.exec2);
							</f>
							</call>
						</f>
						</call>
					}
				</f>
				</call>
			</f>
			</call>
		}else if (glocal.testaddnews){
			printf ("addnews %s extra=%s\n",glocal.testaddnews,glocal.extra);
			string sessionid = trlid_login (glocal.con_cli,glocal.testaddnews);
			if (sessionid.size() > 0){
				string url = string_f ("url-%s-%s",glocal.testaddnews,glocal.extra);
				string title = string_f("title-%s %s",glocal.testaddnews,glocal.extra);
				string text = string_f("text-%s %s",glocal.testaddnews,glocal.extra2);
				<call trlid_client_addnews> (glocal.con_cli,sessionid,url,title,text);
				<f ok>
					printf ("\tsuccess=%d newsid=%s msg=%s\n",success,newsid,msg);
				</f>
				</call>
				trlid_logout (glocal.con_cli,sessionid);
			}
		}else if (glocal.testaddnewsurl){
			const char *newsid = glocal.testaddnewsurl;
			printf ("addnewsurl %s extra=%s\n",newsid,glocal.extra);
			string sessionid = trlid_login (glocal.con_cli,glocal.extra);
			if (sessionid.size() > 0){
				string url = string_f ("extraurl-{%s}-%s",newsid,glocal.extra);
				string text = string_f("text-{%s} %s",newsid,glocal.extra2);
				<call trlid_client_addnewsurl> (glocal.con_cli,sessionid,newsid,url,text);
				<f ok>
					printf ("\tsuccess=%d msg=%s\n",success,msg);
				</f>
				</call>
				trlid_logout (glocal.con_cli,sessionid);
			}
		}else if (glocal.testvalidnews){
			<call trlid_client_validnews>(glocal.con_cli,glocal.testvalidnews);
			<f ok>
				printf ("\tsuccess=%d validnews=%s\n",success,glocal.testvalidnews);
			</f>
			</call>
		}else if (glocal.testaddproof){
			printf ("addproof %s extra %s\n",glocal.testaddproof,glocal.extra);
			glocal string sessionid = trlid_login (glocal.con_cli,glocal.testaddproof);
			if (glocal.sessionid.size() > 0){
				<call trlid_client_listnews>(glocal.con_cli,0,1);
				<f ok>
					if (newsids.size() == 1){
						printf ("\tnewsid = %s title = %s\n",newsids[0],titles[0]);
						string url = string_f("url-%s-%s",glocal.testaddproof,glocal.extra);
						string title = string_f("title-%s %s",glocal.testaddproof,glocal.extra);
						string text = string_f("text-%s %s",glocal.testaddproof,glocal.extra);
						unsigned valid = 1;
						unsigned type = 0;
						// sessionid newsid valid type title text
						<call trlid_client_addproof> (glocal.con_cli,glocal.sessionid,newsids[0],valid,type,title,text);
						<f ok>
							printf ("\taddproof success=%d proofid=%s msg=%s\n",success,proofid,msg);
						</f>
						</call>
					}
				</f>
				</call>
				trlid_logout (glocal.con_cli,glocal.sessionid);
			}
		}else if (glocal.testaddcomment){
			printf ("addcomment %s extra=%s\n",glocal.testaddcomment,glocal.extra);
			string sessionid = trlid_login (glocal.con_cli,glocal.testaddcomment);
			if (sessionid.size() > 0){
				string text = string("text-")+glocal.testaddcomment;
				glocal string proofid;
				<call trlid_client_listnews>(glocal.con_cli,0,1);
				<f ok>
					if (newsids.size() == 1){
						printf ("\tnewsid=%s\n",newsids[0]);
						<call trlid_client_listproofs>(glocal.con_cli,newsids[0],0,1);
						<f ok>
							if (proofids.size()==1){
								glocal.proofid = proofids[0];
							}
						</f>
						</call>
					}
				</f>
				</call>
				printf ("\tproofid=%s\n",glocal.proofid.c_str());
				unsigned vote = 1;
				// addcomment sessionid proofid vote:u text = success:b commentid msg
				<call trlid_client_addcomment> (glocal.con_cli,sessionid,glocal.proofid,vote,text);
				<f ok>
					printf ("\taddcomment success=%d commentid=%s msg=%s\n",success,commentid,msg);
				</f>
				</call>
				trlid_logout (glocal.con_cli,sessionid);
			}
		}else if (glocal.testrejectnews){
			printf ("rejectnews (first pending)\n");
			// Reject the first pending news
			glocal string sessionid = trlid_login(glocal.con_cli,"admin@" TRUELIES,"admin");
			if (glocal.sessionid.size() > 0){
				<call trlid_admin_listnewnews>(glocal.con_adm,glocal.sessionid,0,10);
				<f ok>
					for (auto n:newsids){
						glocal const char *newsid = n;
						<call trlid_admin_rejectnews>(glocal.con_adm,glocal.sessionid,glocal.newsid);
						<f ok>
							printf ("\trejectnews %s success=%d msg=%s\n",glocal.newsid,success,msg);
						</f>
						</call>
						break;
					}
				</f>
				</call>
				trlid_logout (glocal.con_cli,glocal.sessionid);
			}
		}else if (glocal.testapprovenews){
			printf ("Approvenews (all pending)\n");
			// Approve all pending news
			glocal string sessionid = trlid_login(glocal.con_cli,"admin@" TRUELIES,"admin");
			if (glocal.sessionid.size() > 0){
				<call trlid_admin_listnewnews>(glocal.con_adm,glocal.sessionid,0,200);
				<f ok>
					printf ("\tlistnewnews newsids size=%lu\n",newsids.size());
					for (auto n:newsids){
						glocal const char *newsid = n;
						<call trlid_admin_approvenews>(glocal.con_adm,glocal.sessionid,glocal.newsid);
						<f ok>
							printf ("\tapprovenews %s success=%d msg=%s\n",glocal.newsid,success,msg);
						</f>
						</call>
					}
				</f>
				</call>
				trlid_logout (glocal.con_cli,glocal.sessionid);
			}
		}else if (glocal.testapprovenewsurl){
			printf ("Approvenewsurl (all pending)\n");
			// Approve all pending news extra urls
			glocal string sessionid = trlid_login(glocal.con_cli,"admin@" TRUELIES,"admin");
			if (glocal.sessionid.size() > 0){
				<call trlid_admin_listnewnewsurl>(glocal.con_adm,glocal.sessionid,0,200);
				<f ok>
					printf ("\tlistnewnewsurl success=%d newsids size=%lu\n",success,newsids.size());
					for (unsigned i=0; i<newsids.size(); i++){
						glocal const char *newsid = newsids[i];
						for (auto u:urls[i]){
							glocal const char *url = u;
							<call trlid_admin_approvenewsurl>(glocal.con_adm,glocal.sessionid,glocal.newsid,u);
							<f ok>
								printf ("\tapprovenewsurl %s url %s success=%d msg=%s\n",glocal.newsid,glocal.url,success,msg);
							</f>
							</call>
						}
					}
				</f>
				</call>
				trlid_logout (glocal.con_cli,glocal.sessionid);
			}
		}else if (glocal.testgetextraurls){
			<call trlid_client_listnews_v4>(glocal.con_cli,0,200,0,1);
			<f ok>
				for (auto n:newsids){
					printf ("newsid: %s\n",n);
					<call trlid_client_getextraurls>(glocal.con_cli,n,0,20);
					<f ok>
						for (unsigned i=0; i<urls.size(); i++){
							printf ("\turl=%s nickname=%s submit=%s content=%s\n"
								,urls[i],nicknames[i],submits[i],contents[i]);
						}
					</f>
					</call>
				}
			</f>
			</call>
		}else if (glocal.testgetnews){
			printf ("Getnews %s\n",glocal.testgetnews);
			<call trlid_client_getnews_v3>(glocal.con_cli,glocal.testgetnews);
			<f ok>
				printf ("\tsuccess=%d nickname=%s title=%s url=%s submit=%s nbopinion=%u,votes=%u,arguments=%u,nbextraurls=%u\n\t%s\n"
					,success,nickname,title,url,submit,nbproof,nbcomment,nbargument,nbextraurl,content); 
			</f>
			</call>
		}else if (glocal.testgetnewnews){
			printf ("Getnewnews %s\n",glocal.testgetnewnews);
			glocal string sessionid = trlid_login(glocal.con_cli,"admin@" TRUELIES,"admin");
			if (glocal.sessionid.size() > 0){
				<call trlid_admin_getnewnews>(glocal.con_adm,glocal.sessionid,glocal.testgetnewnews);
				<f ok>
					printf ("\tsuccess=%d nickname=%s title=%s url=%s submit=%s\n\t%s\n",success,nickname,title,url,submit,content); 
				</f>
				</call>
				trlid_logout (glocal.con_cli,glocal.sessionid);
			}
		}else if (glocal.testlistnews){
			for (int i=0; i<glocal.workers; i++){
				if (fork()==0){
					for (int j=0; j<glocal.nbrep; j++){
						<call trlid_client_listnews>(glocal.con_cli,0,glocal.nbrows);
						<f ok>
							if (glocal.idonly){
								for (auto n:newsids){
									printf ("%s\n",n);
								}
							}else{
								printf ("internal_error=%d\n",internal_error);
								for (unsigned i=0; i<newsids.size(); i++){
									printf ("nickname=%s newid=%s title=%s url=%s submit=%s\n\t%s\n"
										,nicknames[i],newsids[i],titles[i],urls[i],submits[i],contents[i]);
								}
							}
						</f>
						</call>
					}
					fflush (stdout);
					_exit (0);
				}
			}
			int st;
			while (wait(&st)!=-1);
		}else if (glocal.testlistnewsv2){
			unsigned subject = atoi(glocal.testlistnewsv2);
			for (int i=0; i<glocal.workers; i++){
				if (fork()==0){
					for (int j=0; j<glocal.nbrep; j++){
						<call trlid_client_listnews_v4>(glocal.con_cli,0,glocal.nbrows,subject,1);
						<f ok>
							if (glocal.idonly){
								for (auto n:newsids){
									printf ("%s\n",n);
								}
							}else{
								printf ("internal_error=%d\n",internal_error);
								for (unsigned i=0; i<newsids.size(); i++){
									printf ("nickname=%s newid=%s title=%s url=%s submit=%s\n\t%s\n"
										,nicknames[i],newsids[i],titles[i],urls[i],submits[i],contents[i]);
								}
							}
						</f>
						</call>
					}
					fflush (stdout);
					_exit (0);
				}
			}
			int st;
			while (wait(&st)!=-1);
		}else if (glocal.testlistsubjects){
			<call trlid_client_listsubjects>(glocal.con_cli);
			<f ok>
				for (unsigned i=0; i<ids.size(); i++) printf (" %u-%s",ids[i],subjects[i]);
				printf ("\n");
			</f>
			</call>
		}else if (glocal.testlistnewnews){
			glocal string sessionid = trlid_login(glocal.con_cli,"admin@" TRUELIES,"admin");
			if (glocal.sessionid.size() > 0){
				glocal bool stop=false;
				for (unsigned i=0; !glocal.stop && i<10000; i++){
					<call trlid_admin_listnewnews>(glocal.con_adm,glocal.sessionid,i,1);
					<f ok>
						for (auto n:newsids){
							printf ("%s\n",n);
						}
						if (newsids.size() == 0) glocal.stop = true;
					</f>
					</call>
				}
				trlid_logout (glocal.con_cli,glocal.sessionid);
			}
		}else if (glocal.testlistproofs){
			// listproofs newsid offset nb
			<call trlid_client_listproofs>(glocal.con_cli,glocal.testlistproofs,0,10);
			<f ok>
				for (unsigned i=0; i<proofids.size(); i++){
					printf ("nickname=%s proofid=%s newsid=%s title=%s content=%s\n"
						,nicknames[i],proofids[i],newsids[i],titles[i],contents[i]);
				}
			</f>
			</call>
		}else if (glocal.testlistcomments){
			// listcomments proofid offset:u nb:u = nickname:v commentid:v proofid:v content:v submits:v
			<call trlid_client_listcomments>(glocal.con_cli,glocal.testlistcomments,0,10);
			<f ok>
				for (unsigned i=0; i<nicknames.size(); i++){
					printf ("nickname=%s commentid=%s proofid=%s vote=%u content=%s submit=%s\n"
						,nicknames[i],commentids[i],proofids[i],votes[i],contents[i],submits[i]);
				}
			</f>
			</call>
		}else if (glocal.testsystem){
			for (int i=0; i<glocal.nbrep; i++){
				<call trlid_admin_test>(glocal.con_adm);
				<f ok>
					if (internal_error){
						printf ("Can't talk to trlid server\n");
					}else{
						printf ("internal_error1=%d writed=%d bdtrli1=%d bdtrli2=%d bdusers=%d sessiond1=%d sessiond2=%d compute=%d\n"
							,internal_error1,writed,bdtrli1,bdtrli2,bdusers,sessiond1,sessiond2,compute);
					}
				</f>
				</call>
			}
		}else if (glocal.testcreatesessions){
			printf ("testcreatesessions nbrep=%d\n",glocal.nbrep);
			for (int i=0; i<glocal.nbrep; i++){
				string sessionid = trlid_createsession(glocal.con_cli);
				trlid_deletesession(glocal.con_sess,sessionid);
			}
		}else if (glocal.testaddblog){
			glocal string blogid = string_f ("blogid-%s",glocal.testaddblog);
			glocal string title = string_f ("This is the title for blogid-%s",glocal.testaddblog);
			glocal string content = string_f ("This is the content for blogid-%s",glocal.testaddblog);
			glocal string created = string_f ("2017/01/%02d-12:00:00",atoi(glocal.testaddblog));
			glocal string admin_sessionid = trlid_login(glocal.con_cli,"admin@" TRUELIES,glocal.extra);
			if (glocal.admin_sessionid.size() > 0){
				<call trlid_admin_addblog> (glocal.con_adm,glocal.admin_sessionid,glocal.blogid,glocal.title,glocal.content,glocal.created);
				<f ok>
					printf ("\tsuccess=%d blogid=%s msg=%s\n",success,glocal.blogid.c_str(),msg);
				</f>
				</call>
				trlid_logout (glocal.con_cli,glocal.admin_sessionid);
			}
		}else if (glocal.testaddblogcomment){
			glocal string blogid = string_f ("blogid-%s",glocal.testaddblogcomment);
			string user = string_f("jacques-%s",glocal.extra);
			glocal string content = string_f ("This is the content from user %s for blogid-%s",user.c_str(),glocal.testaddblogcomment);
			glocal string sessionid = trlid_login(glocal.con_cli,glocal.extra);
			if (glocal.sessionid.size() > 0){
				<call trlid_client_addblogcomment> (glocal.con_cli,glocal.sessionid,glocal.blogid,glocal.content);
				<f ok>
					printf ("\tsuccess=%d blogid=%s msg=%s\n",success,glocal.blogid.c_str(),msg);
				</f>
				</call>
				trlid_logout (glocal.con_cli,glocal.sessionid);
			}
		}else if (glocal.testaddargument){
			// We add 3 nested arguments for a news for a given user
			glocal string newsid = glocal.testaddargument;
			string user = string_f("jacques-%s",glocal.extra);
			glocal string title = string_f ("Title from user %s for argument-%s",user.c_str(),glocal.testaddargument);
			glocal string content = string_f ("This is the content from user %s for argument-%s",user.c_str(),glocal.testaddargument);
			glocal string sessionid = trlid_login(glocal.con_cli,glocal.extra);
			if (glocal.sessionid.size() > 0){
				<call trlid_client_addargument> (glocal.con_cli,glocal.sessionid,glocal.newsid,"",glocal.title,glocal.content);
				<f ok>
					printf ("\tsuccess=%d argid=%s msg=%s\n",success,argid,msg);
					glocal.title += " sub1";
					glocal.content += " sub1";
					<call trlid_client_addargument> (glocal.con_cli,glocal.sessionid,glocal.newsid,argid,glocal.title,glocal.content);
					<f ok>
						printf ("\tsuccess=%d argid=%s msg=%s\n",success,argid,msg);
						glocal.title += " sub2";
						glocal.content += " sub2";
						<call trlid_client_addargument> (glocal.con_cli,glocal.sessionid,glocal.newsid,argid,glocal.title,glocal.content);
						<f ok>
							printf ("\tsuccess=%d argid=%s msg=%s\n",success,argid,msg);
						</f>
						</call>
					</f>
					</call>
				</f>
				</call>
				trlid_logout (glocal.con_cli,glocal.sessionid);
			}
		}else if (glocal.testlistarguments){
			printf ("newsid=%s\n",glocal.testlistarguments);
			<call trlid_client_listarguments>(glocal.con_cli,glocal.testlistarguments,0,20);
			<f ok>
				// argids:v nicknames:v replytos:v titles:v contents:v submits:v levels:vu
				for (unsigned i=0; i<levels.size(); i++){
					int indent = levels[i]*4+4;
					printf ("%*sid=%s nickname=%s reply=%s submits=%s title=%s\n%*s   content=%s \n"
						,indent,"",argids[i],nicknames[i],replytos[i],submits[i],titles[i]
						,indent,"",contents[i]);
					glocal const char *nickname=nicknames[i];
					glocal const char *replyto=replytos[i];
					glocal const char *submit=submits[i];
					glocal const char *title=titles[i];
					glocal const char *content=contents[i];
					glocal unsigned level = levels[i];
					<call trlid_client_getargument>(glocal.con_cli,argids[i]);
					<f ok>
						if (!success){
							printf ("****getargument failed\n");
						}else if (strcmp(nickname,glocal.nickname)!=0
							|| strcmp(replyto,glocal.replyto)!=0
							|| strcmp(submit,glocal.submit)!=0
							|| strcmp(title,glocal.title)!=0
							|| strcmp(content,glocal.content)!=0
							|| level != glocal.level){
							printf ("***getargument mismatch\n");
						}
					</f>
					</call>
				}
			</f>
			</call>
		}else if (glocal.testlistblog){
			unsigned offset = glocal.extra == NULL ? 0 : atoi(glocal.extra);
			unsigned order = glocal.extra2 == NULL ? 0 : atoi(glocal.extra2);
			printf ("offset=%u order=%u\n",offset,order);
			<call trlid_client_listblogs> (glocal.con_cli,offset,20,order);
			<f ok>
				//blogids:v titles:v contents:v submits:v nbcomments:uv
				for (unsigned i=0; i<blogids.size(); i++){
					printf ("\t%s\t%s\t%s\t%s\t%u\n",blogids[i],titles[i],contents[i],submits[i],nbcomments[i]);
				}
			</f>
			</call>
		}else if (glocal.testlistblogcomments){
			unsigned offset = glocal.extra == NULL ? 0 : atoi(glocal.extra);
			<call trlid_client_listblogcomments> (glocal.con_cli,glocal.testlistblogcomments,offset,20);
			<f ok>
				for (unsigned i=0; i<nicknames.size(); i++){
					printf ("\t%s\t%s\t%s\n",nicknames[i],contents[i],submits[i]);
				}
			</f>
			</call>
		}else if (glocal.loadblogdir != NULL){
			verbose = false;
			glocal bool load_anyway = strcmp(glocal.extra2,"any")==0;
			glocal string admin_sessionid = trlid_login(glocal.con_cli,"admin@" TRUELIES,glocal.extra);
			if (glocal.admin_sessionid.size() > 0){
				<call walkfs>(glocal.loadblogdir);
				<f onefile>
					if (strcmp(basename,"copyblog.sh")!=0){
						glocal string created;
						glocal string title;
						glocal string content;
						glocal bool good = false;
						glocal const char *filename = basename;
						<call loadfile>(path,true);
						<f oneline>
							if (noline == 0){
								if (strcmp(line,"now")==0){
									char now[20];
									fdpass_asctime(time(NULL),now);
									glocal.created = now;
								}else{
									glocal.created = line;
								}
							}else if (noline == 1){
								glocal.good = strcasecmp(line,"good")==0;
							}else if (noline == 2){
								glocal.title = line;
							}else{
								glocal.content += line;
								glocal.content += "\n";
							}
							return 0;
						</f>
						</call>
						if (!glocal.good && !glocal.load_anyway){
							printf ("\tnot finish %s\n",glocal.filename);
						}else if (glocal.content.empty()){
							tlmp_error ("Invalid blog, empty content: %s\n",path);
						}else{
							<call trlid_admin_addblog> (glocal.con_adm,glocal.admin_sessionid,glocal.filename,glocal.title,glocal.content,glocal.created);
							<f ok>
								if (!success || strcmp(msg,"content identical")!=0){
									printf ("\tsuccess=%d blogid=%-20s msg=%s\n",success,glocal.filename,msg);
								}
							</f>
							</call>
						}
					}
				</f>
				</call>
				trlid_logout (glocal.con_cli,glocal.admin_sessionid);
			}
		}else if (glocal.testgetstats){
			glocal bool end = false;
			unsigned offset = 0;
			while (!glocal.end){
				<call trlid_client_getstats>(glocal.con_cli,offset,10);
				<f ok>
					if (newsids.size() < 10) glocal.end = true;
					for (unsigned i=0; i<newsids.size(); i++){
						printf ("newsid=%s submit=%s proofs=%u comments=%u arguments=%u verdit=%d\n\tTitle=%s\n\tUrl=%s\n\t"
							,newsids[i],submits[i],nbproofs[i],nbcomments[i],nbarguments[i],verdicts[i],titles[i],urls[i]);
						for (auto s:subjects[i]) printf (" %s",s);
						printf ("\n");
					}
				</f>
				</call>
				offset += 10;
			}
		}else if (1){
			// More stuff to test
			<call trlid_admin_searchauthor> (glocal.con_adm, "sessionid","name");
			<f ok>
			</f>
			</call>
			<call trlid_admin_listauthor>(glocal.con_adm, "sessionid",0,100);
			<f ok>
			</f>
			</call>
			<call trlid_client_getcommentuser> (glocal.con_cli, "sessionid","proofid");
			<f ok>
			</f>
			</call>
			<call trlid_client_getcomment> (glocal.con_cli, "commentid");
			<f ok>
			</f>
			</call>
			<call trlid_client_getproofuser> (glocal.con_cli, "sessionid","newsid");
			<f ok>
			</f>
			</call>
			<call trlid_client_getproof> (glocal.con_cli, "proofid");
			<f ok>
			</f>
			</call>
			<call trlid_client_getblog> (glocal.con_cli, "blogid");
			<f ok>
			</f>
			</call>
			<call trlid_client_getblogcomment> (glocal.con_cli, "sessionid","blogid");
			<f ok>
			</f>
			</call>

		}else{
			tlmp_error ("No test option selected\n");
			glocal.tlmpprogram.usage();
		}
		return glocal.ret;
	</f>
	<f main>
		glocal int argc = argc;
		glocal const char *command = argv[0];
		glocal char **args = argv+1;
		int ret = -1;
		<call tcpconnect>(glocal.host,glocal.cli_port,5);
		<f init>
			CONNECT_INFO con (info.handle);
			con.secret = glocal.client_secret;
			con.host = glocal.host;
			con.port = glocal.cli_port;
			#if 0
			if (strcmp(glocal.command,"adduser")==0 && glocal.argc==3){
				<call trlid_client_adduser>(con,glocal.args[0],glocal.args[1],glocal.args[2]);
				<f ok>
					printf ("id=%s msg=%s\n",confirmid,msg);
				</f>
				</call>
			}else if (strcmp(glocal.command,"login")==0 && glocal.argc==2){
				// login email password
				<call trlid_client_login>(con,glocal.args[0],glocal.args[1]);
				<f ok>
				</f>
				</call>
			}else if (strcmp(glocal.command,"logout")==0 && glocal.argc==1){
				// logout user
				<call trlid_client_logout>(con,glocal.args[0]);
				<f ok>
				</f>
				</call>
			}else if (strcmp(glocal.command,"confirmuser")==0 && glocal.argc==1){
				// confirmuser id
				<call trlid_client_confirmuser>(con,glocal.args[0]);
				<f ok>
					printf ("%s\n",msg);
				</f>
				</call>
			}else if (strcmp(glocal.command,"deleteuser")==0 && glocal.argc==1){
				// deleteuser sessionid = email confirmid
				<call trlid_client_deleteuser>(con,glocal.args[0]);
				<f ok>
					printf ("email=%s id=%s\n",email,confirmid);
				</f>
				</call>
			}else if (strcmp(glocal.command,"confirmdelete")==0 && glocal.argc==1){
				// confirmdelete id
				<call trlid_client_confirmdelete>(con,glocal.args[0]);
				<f ok>
				</f>
				</call>
			}else if (strcmp(glocal.command,"addnews")==0 && glocal.argc==4){
				// addnews sessionid url title text
				<call trlid_client_addnews>(con,glocal.args[0],glocal.args[1],glocal.args[2],glocal.args[3]);
				<f ok>
					printf ("addnews success=%d newsid=%s\n",success,newsid);
				</f>
				</call>
			}else if (strcmp(glocal.command,"addproof")==0 && glocal.argc==6){
				// addproof sessionid newsid valid type title text
				<call trlid_client_addproof>(con,glocal.args[0],glocal.args[1],atoi(glocal.args[2]),atoi(glocal.args[3]),glocal.args[4],glocal.args[5]);
				<f ok>
					printf ("addcproof success=%d proofid=%s\n",success,proofid);
				</f>
				</call>
			}else if (strcmp(glocal.command,"addcomment")==0 && glocal.argc==4){
				// addcomment sessionid proofid vote text
				<call trlid_client_addcomment>(con,glocal.args[0],glocal.args[1],atoi(glocal.args[2]),glocal.args[3]);
				<f ok>
					printf ("addcomment success=%d commentid=%s\n",success,commentid);
				</f>
				</call>
			}else if (strcmp(glocal.command,"listnews")==0 && glocal.argc==3){
				// listnews offset nb = newsid title url
				<call trlid_client_listnews>(con,atoi(glocal.args[0]),atoi(glocal.args[1]));
				<f ok>
					for (unsigned i=0; i<newsids.size(); i++){
						printf ("newid=%s title=%s url=%s\n",newsids[i],titles[i],urls[i]);
					}
				</f>
				</call>
			}else if (strcmp(glocal.command,"listproofs")==0 && glocal.argc == 4){
				// listproofs newsid offset nb
				<call trlid_client_listproofs>(con,glocal.args[0],atoi(glocal.args[1]),atoi(glocal.args[2]));
				<f ok>
					for (unsigned i=0; i<proofids.size(); i++){
						printf ("proofid=%s newsid=%s title=%s content=%s\n",proofids[i],newsids[i],titles[i],contents[i]);
					}
				</f>
				</call>
			}else if (strcmp(glocal.command,"listcomments")==0 && glocal.argc==4){
				// listcomments proofid offset nb
				<call trlid_client_listcomments>(con,glocal.args[0],atoi(glocal.args[1]),atoi(glocal.args[2]));
				<f ok>
					for (unsigned i=0; i<commentids.size(); i++){
						printf ("commentid=%s proofid=%s content=%s submits=%s\n",commentids[i],proofids[i],contents[i],submits[i]);
					}
				</f>
				</call>
			}else{
				tlmp_error ("Command %s not supported, wrong argument number\n",glocal.command);
			}
			#endif
			end = true;
		</f>
		<f oneline>
			printf ("receive %s\n",line);
			if (strcmp(line,"Ok")==0) end = true;
		</f>
		<f end>
		</f>
		</call>
		return ret;
	</f>
	</call>
	return glocal.ret;
}
</mod>