/*
	This file is part of Bolixo.

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

	Bolixo 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 Bolixo.  If not, see <https://www.gnu.org/licenses/>.
*/
#include <stdio.h>
#include <string.h>
#include <tlmplib.h>
#include <tlmpweb.h>
#include "trlitool.h"
#include "../bolixo.h"
#include "../instrument.h"
#include "../proto/bolixod_client.protoch"
#include <tlmp/translat.h>
#include <tlmplib.h>
#include <tlmpnet.h>
#include "../bolixo.m"
#include <tlmpdoc.h>
#include "util.h"

extern void bolixo_doc (DOCUMENT_POINTER &, DOC_ID &jump, const char *username, bool display_full, bool index);
extern void bolixo_doc_fr (DOCUMENT_POINTER &, DOC_ID &jump, const char *username, bool display_full, bool index);
string util_readsecret();
void util_defstyles();

static W_SSTRING w_user("user");
static W_SSTRING w_fullname("fullname");
static W_SSTRING w_address("address");
static W_SSTRING w_city("city");
static W_SSTRING w_state("state");
static W_SSTRING w_country("country");
static W_SSTRING w_interest("interest");
static W_SSTRING w_node("node");
static W_SSTRING w_file("file");
static W_UNSIGNED w_offset("offset");
static W_SSTRING w_email("email");
static W_SSTRING w_nickname("nickname");

extern "C" void tlmp_initmod()
{
	translat_load ("bolixo");
}

static bool f(const char *s)
{
	return s[0] != '\0';
}
static void bolixo_script()
{
	<?
	<script>
		document.onreadystatechange = function () {
			var state = document.readyState;
			if (state == 'interactive') {
				fixsize();
			} else if (state == 'complete') {
			}
		};
		function fitcol(divs){
			var maxwidth = 0;
			if (divs != null){
				for (var i=0; i<divs.length; i++){
					var b = divs[i].getBoundingClientRect();
					if (maxwidth < b.width) maxwidth = b.width;
				}
				for (var i=0; i<divs.length; i++){
					var d = divs[i];
					d.style.width = maxwidth;
				}
			}
			return maxwidth;
		}
		function fixsize(){
			var w = fitcol (document.getElementsByClassName('col0'));
			w += fitcol (document.getElementsByClassName('col1'));
			w += fitcol (document.getElementsByClassName('col2'));
			w += fitcol (document.getElementsByClassName('col3'));
			var tb = document.getElementById("tb");
			if (tb != null){
				var tb_b = tb.getBoundingClientRect();
				var top = document.getElementById("topform");
				if (top != null){
					var top_b = top.getBoundingClientRect();
					//if (tb_b.width > top_b.width) top.style.width = tb_b.width;
				}
			}
			var top = document.getElementById("top");
			var middle = document.getElementById("middle");
			var search = document.getElementById("search");
			if (top != null && middle != null && search != null){
				top_b = top.getBoundingClientRect();
				var middle_b = middle.getBoundingClientRect();
				search.style.height = window.innerHeight-top_b.height-middle_b.height-30;
			}else if (top != null && search != null){
				top_b = top.getBoundingClientRect();
				search.style.height = window.innerHeight-top_b.height-40;
			}
		}
		function formsubmit(href){
			window.location.href = href;
		}
	</script>
	<style>
		#link{
			background-color: #f44336;
			color: white;
			padding: 4px 15px;
			text-align: center;
			text-decoration: none;
			display: inline-block;
		}
	?>
}

struct WEBENC{
	string enc(W_SSTRING &var){
		string tmp;
		const char *pt = var.c_str();
		while (*pt != '\0'){
			if (*pt == ' '){
				tmp += "%20";
			}else if (*pt == '&'){
				tmp += "%26";
			}else{
				tmp += *pt;
			}
			pt++;
		}
		return tmp;
	}
};

static void bolixo_prevnext(bool display_more)
{
	/- <tr><td align=right colspan=2>
	WEBENC enc;
	if (w_offset.getval() > 0){
		htmlprintf ("<a href=%s?offset=%u&user=%s&fullname=%s&address=%s&city=%s&state=%s&country=%s&interest=%s>%s</a>\n"
			,tlmpweb_curpage(),w_offset.getval()-10
			,enc.enc(w_user).c_str(),enc.enc(w_fullname).c_str(),enc.enc(w_address).c_str()
			,enc.enc(w_city).c_str(),enc.enc(w_state).c_str(),enc.enc(w_country).c_str()
			,enc.enc(w_interest).c_str()
			,MSG_U(I_PREVPAGE,"Previous page"));
	}else{
		htmlprintf ("<font color=white>%s</font>\n",MSG_R(I_PREVPAGE));
	}
	if (display_more){
		htmlprintf ("<a href=%s?offset=%u&user=%s&fullname=%s&address=%s&city=%s&state=%s&country=%s&interest=%s>%s</a>\n"
			,tlmpweb_curpage(),w_offset.getval()+10
			,enc.enc(w_user).c_str(),enc.enc(w_fullname).c_str(),enc.enc(w_address).c_str()
			,enc.enc(w_city).c_str(),enc.enc(w_state).c_str(),enc.enc(w_country).c_str()
			,enc.enc(w_interest).c_str()
			,MSG_U(I_NEXTPAGE,"Next page"));
	}else{
		// Make sure the prevpage link stays in place
		htmlprintf ("<font color=white>%s</font>\n",MSG_R(I_NEXTPAGE));
	}
}
static void bolixo_url (int called_from_step, int is_step, const char *title)
{
	DIV d; d.flexfixe().paddings(5,5);
	if (called_from_step == is_step){
		d.bg("white").print();
		htmlprintf ("%s\n",title);
	}else{
		d.bg("lightgray").print();
		htmlprintf ("<a href=%s?webstep=%d>%s</a>\n",tlmpweb_curpage(),is_step,title);
	}
}


static void bolixo_title(int called_from_step)
{
	unsigned body_font_size=100;
	unsigned input_font_size=100;
	if (tlmpweb_ismobile()){
		body_font_size = 250;
		input_font_size = 80;
	}
	htmlout ("<style>\n");
	htmlprintf ("body{\n"
		"	font-size: %u%%\n"
		"}\n",body_font_size);
	htmlprintf ("input{\n"
		"	font-size: %u%%\n"
		"}\n",input_font_size);
	htmlout (".col{\n"
		"	font-size: 1em;\n"
		"}\n");
	htmlout (
		"table, tr, td {\n"
		"	font-size: 1em;\n"
		"}\n");
	htmlout ("</style>\n");
	
	DIV t; t.dispflex().flowrow().style("background-image","linear-gradient(to right, #ff6666 , yellow)").print();
	DIV tt; tt.flexgrow().marginauto().disp("inline-block").textalign("center").print();
	if (!tlmpweb_ismobile()){
		/- <div style=font-size:2em>
		htmlout (MSG_R(T_BOLIXO_ORG_DIR));
		/- </div>
	}
	tt.end();
	tt.flexfixe().sfloat("right").print();
	DIV dt; dt.dispflex().flowcol().print();
	bolixo_url (called_from_step,1,MSG_U(I_BOLIXOHOME,"Home page"));
	bolixo_url (called_from_step,5,MSG_U(I_ABOUTBOLIXO,"What is Bolixo ?"));
	bolixo_url (called_from_step,8,MSG_U(I_BACKTOSEARCH,"Search"));
}

extern W_UNSIGNED w_robot;

<mod>
static void webmain_real()
{
	glocal CONNECT_INFO con;
	glocal.con.port = "/dev/bolixod.sock";
	glocal.con.secret = util_readsecret();
	<call websteps>();
	<f setstep>
		if (tlmpweb_isrobot() || w_robot == 1){
			w_robot = 1;
			step=6;
		}
	</f>
	<f end>
		bolixo_script();
	</f>
	<f step1> // Home
		tlmpweb_title (MSG_U(T_BOLIXO_ORG_DIR,"Bolixo.org directory"));
		util_defstyles();
		tlmpweb_body ("white",NULL,"background=background.png");
		DIV v; v.dispflex().flowcol().print();
		DIV b("","top"); b.print(); 
		bolixo_title(1);
		b.end();
		b.autoscroll();
		if (tlmpweb_ismobile()){
			b.id("middle").marginauto().w(100).h(100).bg("lightblue").paddings(10,10).vpaddings(10,10).vmargins(20,20).print();
		}else{
			b.id("middle").marginauto().w(60).h(85).bg("lightblue").paddings(10,10).vpaddings(10,10).vmargins(20,20).borderradius(20).border(1,"black").print();
		}
		<?#I_HOME
			<center><div style=font-size:1.5em>Welcome</div></center>
			<p>
			Already have an account, just <a href=/bolixo.hc?webstep=3 id=link>Log in</a>
			<p>
			<div style=background-color:gray;color:white><center>Why Bolixo ?</center></div>
			<p>
			Bolixo is a distributed social media. Bolixo is free software.
			<p>
			<div style=margin-left:80;color:darkblue>
				Looking for a social media respecting your privacy ? Tired of fake news ?<br>
				Tired of being harassed by sites, suggesting new friends every day ?<br>
				Want to create your own media site for your organization ? Connected will the Bolixo network ?<br>
				Exchange with friends, create work groups, share documents and messages ?<br>
				Follow what is going on in the world ? <br>
				Contribute to what is going on in the world ?<br>
				Publish your latest ideas to the world on your public page ?<br>
			</div>
			<p>
			Give Bolixo a spin. Invite a friend.
			<br>
			It is free and will remain free forever.
			<a href=/bolixo.hc?webstep=4 id=link>Just create an account now</a>
			<p>
			<div style=background-color:gray;color:white><center>On desktop or mobile</center></div>
			<p>
		?>
		if (strcmp(tlmpweb_getlang(),"fr")==0){
			util_clickable_img ("/main-fr.jpg","40%",1);
			/- &nbsp;
			util_clickable_img ("/talk-fr.jpg","40%",1);
			/- &nbsp;
			util_clickable_img ("/talk2-fr.jpg","15%",1);
		}else{
			util_clickable_img ("/main.jpg","40%",1);
			/- &nbsp;
			util_clickable_img ("/talk.jpg","40%",1);
			/- &nbsp;
			util_clickable_img ("/talk2.jpg","15%",1);
		}
	</f>
	<f step8> // Search
		tlmpweb_title (MSG_R(T_BOLIXO_ORG_DIR));
		util_defstyles();
		tlmpweb_body ("white",NULL,"background=background.png");
		DIV v; v.dispflex().flowcol().print();
		DIV b("","top"); b.print(); 
		bolixo_title(8);
		b.end();
		b.id("middle").marginauto().print();
		<call form>("filter");
		<f setup>
			const char *fsize = tlmpweb_ismobile() ? "size=10" : "size=15";
			DIV d("x","topform"); d.borderradius(5).border(1,"lightgray").bg("lightgray").disp("inline-block").vmargins(5,5).print();
			/- <center><div style=font-size:1.3em>
			/-#I_LOOKINGFOR Looking for someone ?
			/- </div></center>
			/- <table border=0>
			htmlprintf ("<tr><td>%s<td>%s<td>%s\n",MSG_U(H_USER,"User"),MSG_U(H_FULLNAME,"Full name"),MSG_U(H_ADDRESS,"Address"));
			/- <tr><td>
			field_string (w_user,fsize);
			/- <td>
			field_string (w_fullname,fsize);
			/- <td>
			field_string (w_address,fsize);
			htmlprintf ("<tr><td>%s<td>%s<td>%s\n",MSG_U(H_CITY,"City"),MSG_U(H_STATE,"State"),MSG_U(H_COUNTRY,"Country"));
			/- <tr><td>
			field_string (w_city,fsize);
			/- <td>
			field_string (w_state,fsize);
			/- <td>
			field_string (w_country,fsize);
			htmlprintf ("<tr><td>%s\n",MSG_U(H_INTERESTS,"Interests"));
			/- <tr><td>
			field_string (w_interest,fsize);
			/- <td>
			button_submit (MSG_U(B_SEARCH,"Search"));
			/- </table>
		</f>
		<f validate>
			return true;
		</f>
		<f process>
			keepediting = true;
		</f>
		</call>
		b.end();
		// /- <center>
		FILTER filter;
		filter.user = w_user.c_str();
		filter.fullname = w_fullname.c_str();
		filter.address = w_address.c_str();
		filter.city = w_city.c_str();
		filter.state = w_state.c_str();
		filter.country = w_country.c_str();
		filter.interest = w_interest.c_str();
		<call bolixod_client_pub_search>(glocal.con,filter,w_offset,10);
		<f ok>
			bool is_mobile = tlmpweb_ismobile();
			if (!success){
				/- <br><p>
				DIV d; d.bg("white").border(1,"black").marginauto().w(is_mobile ? 90 : 30).paddings(5,5).vpaddings(5,5).borderradius(5).print();
				htmlprintf ("<center>%s</center>\n",MSG_U(E_NOFILTER,"No filter specified"));
				/- <p>
				<?#I_FILTERDOC
					Fill any of the seven fields.
					<p>
					<ul>
					<li>Empty fields do not participate in the search.
					<li>Records matching all non-empty fields will be shown (logical and).
					<li>A field may contain the complete value you are looking for or just a subset. For example,
						the following entries will all match the word "Montreal".
						<ul>
						<li>montreal
						<li>mont
						<li>ontrea
						<li>real
						</ul>
					<li>The search is case insensitive.
					</ul>
				?>
			}else{
				DIV d("","search");
				if (is_mobile){
					d.w(100).vpaddings(5,0).vmargins(10,0).bg("white").autoscroll().print();
				}else{
					d.w(90).vpaddings(5,5).marginauto().vmargins(10,0).bg("white").border(1,"black").borderradius(5).autoscroll().print();
				}
				//is_mobile = true;
				/- <table id=tb border=0>
				bolixo_prevnext(users.size()==10);
				for (auto &u:users){
					if (is_mobile){
						/- <tr><td valign=top>
					}else{
						/- <tr><td valign=top>
					}
					DIV info;
					if (!is_mobile) info.dispflex().flowrow().print();
					{
						const char *nodename = u.nodename;
						if (strncasecmp(nodename,"https://",8)==0){
							nodename += 8;
						}else if (strncasecmp(nodename,"http://",7)==0){
							nodename += 7;
						}
						DIV d("col0"); d.margins(5,5).borderradius(5).border(1,"gray").print();
						htmlprintf ("%s@%s<br>%s<br>\n",u.user,nodename,u.fullname);
						if (u.photo) htmlprintf ("<img width=100 src=%s?webstep=2&user=%s&node=%s&file=photo.jpg>\n",tlmpweb_curpage(),u.user,u.nodename);
						if (u.mini_photo) htmlprintf ("<img width=40 src=%s?webstep=2&user=%s&node=%s&file=mini-photo.jpg>\n",tlmpweb_curpage(),u.user,u.nodename);
					}
					if (f(u.address1)  || f(u.address2) || f(u.city) || f(u.state) || f(u.country) || f(u.zipcode)){
						DIV d("col1"); d.bg("lightblue").margins(2,2).paddings(4,4).borderradius(5).border(1,"gray").print();
						htmlprintf ("%s<br>\n",u.address1);
						htmlprintf ("%s<br>\n",u.address2);
						htmlprintf ("%s%s %s<br>\n",u.city
							,u.city[0] !='\0' && u.state[0] != '\0' ? "," : ""
							,u.state);
						htmlprintf ("%s%s %s<br>\n",u.country
							,u.country[0] !='\0' && u.zipcode[0] != '\0' ? "," : ""
							,u.zipcode);
					}
					if (f(u.email) || f(u.phone) || f(u.fax) || f(u.bolixosite) || f(u.website)){
						if (is_mobile) htmlout ("<tr><td valign=top>\n");
						DIV d("col2"); d.bg("lightblue").margins(2,2).paddings(2,2).borderradius(5).border(1,"gray").print();
						/- <table border=0>
						if (f(u.email)) htmlprintf ("<tr><td>%s<td>%s\n",MSG_R(F_EMAIL),u.email);
						if (f(u.phone)) htmlprintf ("<tr><td>%s<td>%s\n",MSG_R(F_PHONE),u.phone);
						if (f(u.fax))   htmlprintf ("<tr><td>%s<td>%s\n",MSG_R(F_FAX),u.fax);
						if (f(u.bolixosite)){
							htmlprintf ("<tr><td>%s<td>",MSG_U(F_BOLIXOSITE,"Bolixo site"));
							util_print_span (u.bolixosite);
						}
						if (f(u.website)){
							htmlprintf ("<tr><td>%s<td>",MSG_R(F_WEBSITE));
							util_print_span (u.website);
						}
						/- </table>
					}
					if (is_mobile) htmlout ("<tr><td valign=top>\n");
					if (f(u.interest)){
						DIV d("col3"); d.bg("lightgray").margins(2,2).paddings(4,4).borderradius(5).border(1,"gray").print();
						htmlout (util_format_shortmsg(u.interest,100));
					}
				}
				bolixo_prevnext(users.size()==10);
			}
			/- </table>
		</f>
		</call>
		// /- </center>
	</f>
	<f step2>
		<call bolixod_client_readfile>(glocal.con,w_node.c_str(),w_user.c_str(),w_file.c_str());
		<f ok>
			if (!success){
				tlmpweb_title ("Error");
				htmlprintf ("msg=%s<br>\n",msg);
				htmlprintf ("node=%s<br>\n",w_node.c_str());
				htmlprintf ("user=%s<br>\n",w_user.c_str());
				htmlprintf ("file=%s<br>\n",w_file.c_str());
			}else{
				tlmpweb_setmodified(modified);
				tlmpweb_doctype ("image/jpeg",content.getsize());
				htmlwrite (content.getbuffer(),content.getsize());
			}
		</f>
		</call>
		noend();
	</f>
	<f step3> // login
		tlmpweb_title (MSG_R(T_BOLIXO_ORG_DIR));
		tlmpweb_body ("white",NULL,"background=background.png");
		bolixo_title(3);
		DIV d; d.w(tlmpweb_ismobile() ? 90 : 50).marginauto().vmargins(100,0).vpaddings(10,10).paddings(10,10).border(1,"black").bg("#ffefc1").borderradius(5).print();
		<call form>("login");
		<f setup>
			htmlprintf ("<center><div style=font-size:1.5em>%s</div></center>\n",MSG_R(I_LOGIN));
			/-<p>
			/-#I_REDIRECT Enter your email and you will be redirected to the login page of your Bolixo node.
			/-<p>
			string extra = string_f("style=width:100%% placeholder='%s'",MSG_R(I_EMAIL));
			field_string (w_email,extra.c_str());
			/- <p>
			button_submit();
		</f>
		<f validate>
			return true;
		</f>
		<f process>
			glocal bool fail = false;
			<call bolixod_client_getnode>(glocal.con,w_email.c_str());
			<f ok>
				if (!success){
					glocal.fail = true;
					/- <font color=red>* </font>
					htmlprintf (MSG_U(E_EMAILNOTFOUND,"This email do not correspond to any account"));
					/-<p>
				}else{
					htmlprintf ("<meta http-equiv=\"Refresh\" content=\"0; url=%s/index.hc?webstep=2&email=%s\">\n",nodename,w_email.c_str());
					glocal.fail = true;
				}
			</f>
			</call>
			fail = glocal.fail;
		</f>
		</call>
	</f>
	<f step4> // Create account
		tlmpweb_title (MSG_R(T_BOLIXO_ORG_DIR));
		tlmpweb_body ("white",NULL,"background=background.png");
		bolixo_title(4);
		DIV d; d.w(tlmpweb_ismobile() ? 90 : 50).marginauto().vmargins(100,0).vpaddings(10,10).paddings(10,10).border(1,"black").borderradius(5).bg("#ffefc1").print();
		<call form>("create");
		<f setup>
			htmlprintf ("<center><div style=font-size:1.5em>%s</div></center>\n",MSG_R(I_CREATEACCT));
			/-<p>
			/-#I_SELECTNICKNAME Select a nickname you like and an available node will be found.
			/-<p>
			string extra = string_f("style=width:100%% placeholder='%s'",MSG_R(I_NICKNAME));
			field_string (w_nickname,extra.c_str());
			/- <p>
			button_submit();
		</f>
		<f validate>
			return true;
		</f>
		<f process>
			glocal bool fail = false;
			<call bolixod_client_newacct_findnode>(glocal.con,w_nickname.c_str());
			<f ok>
				if (!success){
					glocal.fail = true;
					/- <font color=red>* </font>
					htmlprintf (MSG_U(E_NICKNAMEUSED,"The nickname is already in all nodes"));
					/-<p>
				}else{
					//htmlprintf ("<a href=%s/index.hc?webstep=3&nickname=%s>Click</a>\n",nodename,w_nickname.c_str());
					htmlprintf ("<meta http-equiv=\"Refresh\" content=\"1; url=%s/index.hc?webstep=3&nickname=%s\">\n",nodename,w_nickname.c_str());
					glocal.fail = true;
				}
			</f>
			</call>
			fail = glocal.fail;
		</f>
		</call>
	</f>
	<f step5> // Introduction
		tlmpweb_title (MSG_R(T_BOLIXO_ORG_DIR));
		tlmpweb_body ("white",NULL,"background=background.png");
		bolixo_title(5);
		DIV d; d.w(tlmpweb_ismobile() ? 90 : 50).marginauto().vmargins(30,0).vpaddings(10,10).paddings(10,10).border(1,"black").borderradius(5).bg("white").print();
		<?#I_BOLIXO
			Bolixo is a distributed social media and collaboration tool. It is also free software.
			<p>
			Bolixo is made of several nodes (or servers) each hosting end users.
			<ul>
			<li>End users can communicate and collaborate with users on any node.
			<li>By default, all user content is private.
			<li>Users decide what they want to make public.
			</ul>
			<p>
			<ul>
			<li>Users can send short messages, images, video and sound.
			<li>Users can create their personal web page.
			<li>Users can create projects and invite others to contribute.
			</ul>
			<p>
			You can track Bolixo evolution
			<br>
			Using Bolixo, register interest for bolixodev@alpha.bolixo.org or visit <a href=https://alpha.bolixo.org/public/bolixodev>bolixodev</a>
			<br>
			Using Bolixo, register interest for bolixonews@alpha.bolixo.org or visit <a href=https://alpha.bolixo.org/public/bolixonews>bolixonews</a>
		?>
		/-<p>
		htmlprintf ("<a href=%s?webstep=6>%s</a>\n",tlmpweb_curpage(),MSG_U(I_COMPLETEDOC,"Complete documentation"));
	</f>
	<f step6> // Full documentation
		tlmpweb_title (MSG_R(T_BOLIXO_ORG_DIR));
		util_defstyles();
		tlmpweb_body ("white",NULL,"background=background.png");
		DIV v; v.dispflex().flowcol().print();
		DIV b("","top"); b.print(); 
		bolixo_title(6);
		b.end();

		DIV d("","search");
		if (tlmpweb_ismobile()){
			d.w(100).autoscroll().marginauto().vmargins(10,0).vpaddings(10,10).paddings(10,10).bg("white").print();
		}else{
			d.w(90).autoscroll().marginauto().vmargins(10,0).vpaddings(10,10).paddings(10,10).border(1,"black").borderradius(5).bg("white").print();
		}
		DOCUMENT_POINTER pt;
		DOC_ID jump;
		bool index = !tlmpweb_ismobile();
		if (w_robot == 1){
			// For robot, we throw all languages
			/- <a href=/bolixo.hc?webstep=7>All users in the directory</a><br>
			bolixo_doc (pt,jump,"",w_robot,index);
			bolixo_doc_fr(pt,jump,"",w_robot,index);
		}else if (strcmp(tlmpweb_getlang(),"eng")==0){
			bolixo_doc (pt,jump,"",w_robot,index);
		}else{
			bolixo_doc_fr(pt,jump,"",w_robot,index);
		}
	</f>
	<f step7>	// List all the directory for robots
		tlmpweb_title (MSG_R(T_BOLIXO_ORG_DIR));
		tlmpweb_body ("white",NULL);
		unsigned offset = 0;
		while (true){
			glocal bool more = false;
			<call bolixod_client_pub_list>(glocal.con,"a",offset,50);
			<f ok>
				for (auto &u:users){
					DIV d; d.border(1,"black").margins(5,5).vmargins(5,5).paddings(5,5).vpaddings(5,5).print();
					const char *nodename = u.nodename;
					if (strncasecmp(nodename,"https://",8)==0){
						nodename += 8;
					}else if (strncasecmp(nodename,"http://",7)==0){
						nodename += 7;
					}
					htmlprintf ("user: %s@%s<br>\n",u.user,nodename);
					if (f(u.fullname)) htmlprintf ("fullname: %s<br>\n",u.fullname);
					if (u.photo) htmlprintf ("<img src=%s?webstep=2&user=%s&node=%s&file=photo.jpg>\n",tlmpweb_curpage(),u.user,u.nodename);
					if (u.mini_photo) htmlprintf ("<img src=%s?webstep=2&user=%s&node=%s&file=mini-photo.jpg>\n",tlmpweb_curpage(),u.user,u.nodename);
					/- <br>
					if (f(u.address1)) htmlprintf ("address1: %s<br>\n",u.address1);
					if (f(u.address2)) htmlprintf ("address2: %s<br>\n",u.address2);
					if (f(u.city)) htmlprintf ("city: %s<br>\n",u.city);
					if (f(u.state)) htmlprintf ("state: %s<br>\n",u.state);
					if (f(u.country)) htmlprintf ("country: %s<br>\n",u.country);
					if (f(u.zipcode)) htmlprintf ("zipcode: %s<br>\n",u.zipcode);
					if (f(u.email)) htmlprintf ("email: %s<br>\n",u.email);
					if (f(u.phone)) htmlprintf ("phone: %s<br>\n",u.phone);
					if (f(u.fax))   htmlprintf ("fax: %s<br>\n",u.fax);
					if (f(u.bolixosite)) htmlprintf ("bolixosite: <a href=%s>%s</a><br>\n",u.bolixosite,u.bolixosite);
					if (f(u.website)) htmlprintf ("website: <a href=%s>%s</a>\n",u.website,u.website);
					if (f(u.interest)){
						DIV d("col3"); d.w(98).bg("lightgray").margins(2,2).paddings(4,4).borderradius(5).border(1,"gray").print();
						htmlprintf ("%s\n",u.interest);
					}
				}
				if (users.size() >= 50) glocal.more = true;
			</f>
			</call>
			if (glocal.more){
				offset += 50;
			}else{
				break;
			}
		}
	</f>
	</call>
	
}
</mod>
<mod>
extern "C" void webmain()
{
	<call tcpconnect>("unix:","/tmp/stop.sock",1);
	<f init>
	</f>
	<f oneline>
		webmain_real();
		end=true;
	</f>
	<f fail>
		webmain_real();
	</f>
	<f end>
	</f>
	</call>
}
</mod>