#include "Form.h"
#include "HttpServ.h"

Form::Form(const String & titre, const String & url, const String & inv, String * names, String * invs,
	   String * defaults, String ** lists, String ** descs, int nb, Action * na) :
  Action(url), tit(titre), iv(inv), nms(names), ivs(invs), defs(defaults), lsts(lists), dscs(descs), n(nb), Next(na) { }

String Form::GetTitle(void) {
    return tit;
}

void Form::Do(Variables * v, Handle * h) {
    SendHead(h);

    (*h) <<
"<center>" << endnl <<
"<form ACTION=\"/bin/" << (Next ? Next->GetURL() : "start") << "\" METHOD=POST>" << endnl;

    v->Dump(h);
    
    (*h) <<
"<table BORDER=0 CELLSPACING=0 BGCOLOR=\"#000000\"><tr><td>" << endnl <<
"<table BORDER=0 CELLSPACING=0 CELLPADDING=3 WIDTH=\"300\" BGCOLOR=\"#FFFFCC\">" << endnl <<
"<tr><td ALIGN=CENTER WIDTH=\"100%\" BGCOLOR=\"#000000\"><b><font FACE=\"arial,helvetica\" COLOR=\"#FFFFFF\">" << endnl <<
iv << endnl <<
"</font></b></td></tr>" << endnl;

    for (int i = 0; i < n; i++) {
	(*h) <<
"<tr><td>" << ivs[i] << "</td></tr>" << endnl;
	if (lsts[i]) {
	    String * s, * t;
	    (*h) <<
"<tr><td><select NAME=\"" << nms[i] << "\">" << endnl;
	    for (s = lsts[i], t = dscs[i]; s->strlen(); s++, t++) {
		(*h) <<
"<option VALUE=\"" << *s << "\">" << *t << "</option>" << endnl;
	    }
	    (*h) <<
"</select></td></tr>" << endnl;
	} else {
	    (*h) <<
"<tr><td><input TYPE=\"text\" NAME=\"" << nms[i] << "\" VALUE=\"" << defs[i] << "\" size=40></tr></td>" << endnl;
	}
    }
    
    (*h) <<

"<tr><td ALIGN=\"center\"><input TYPE=\"submit\" VALUE=\"    Ok    \"></td></tr>" << endnl <<
"</table></td></tr></table></form></center>" << endnl;

    SendFoot(h);
    
    Accessed();
}