#include <string.h>
#include "../tlmpweb/tlmpweb.h"
#include "tlmpwebsql.h"

static W_SSTRING test ("test","","S");
static W_SSTRING user ("user","","S");
static W_SSTRING passwd ("passwd","","S");


<mod>
extern "C" void webmain()
{
	FORM_HIDDEN t(test);
	if (test.cmp("newsession")==0){
		// #Specbeg: sample / websession_sql component / new session
		/*
			We demonstrate a typical session with a login form.
		*/
		<call websession_sql>("test");
		<f exec>
			<call weblogin>(user,passwd);
			<f top>
					tlmpweb_title ("Please log in");
					/- <center><h2>This is a test, enter foo twice</h2></center>
			</f>
			<f setup>
				// /- <input type=hidden name=test value=newsession>
				/- <center><table>
				/- <tr><td>Login ID<td>
				field_user();
				/- <tr><td>Password<td>
				field_pass();
			</f>
			<f validate>
				return strcmp(user,"foo")==0 && strcmp(pass,"foo")==0;
			</f>
			<f exec>
				<call websteps>();
				<f setstep>
				</f>
				<f step1>
						tlmpweb_title ("Test session");
						/-<center>
						url_gotostep (1,"Main menu");
						/-<p>
						url_gotostep (2,"Who am I");
						/-<p>
						url_gotostep (3,"logout");
						/-</center>
				</f>
				<f step2>
					tlmpweb_title ("You are");
					printf ("user=%s<br>\n",user.get());
					printf ("pass=%s<br>\n",passwd.get());
				</f>
				<f step3>
					glocal.websession_sql___v1.logout();
					url_gotostep (1,"Main menu");
				</f>
				</call>
			</f>
			</call>
		</f>
		</call>
		// #Specend:
	}else if (test.cmp("oldsession")==0){
		// #Specbeg: sample / websession_sql component / old session
		/*
			Here is a sub-page of an already started session.
			We are passing true to websession_sql because we want
			to make sure the session is established.
		*/
		<call websession_sql>("test",true);
		<f nosession>
			tlmpweb_error ("Your session is not active\n\n");
			/-<center>
			url_self ("test=newsession","Click here to start");
			/-</center>
		</f>
		<f validsession>
			// Session older than 30 seconds are rejected
			reject = info.since > 30;
		</f>
		<f exec>
			tlmpweb_title ("You are");
			printf ("user=%s<br>\n",user.get());
			printf ("pass=%s<br>\n",passwd.get());
		</f>
		</call>
		// #Specend:
	}else{
		tlmpweb_title ("Some tlmpwebsql tests");
		url_self ("test=newsession","New session");
		/-<br>
		url_self ("test=oldsession","Old session");
		/-<br>
	}
}
</mod>