Relates to calls:
html_literal (x 3)
html_form
html_select_option
html_display_doc
prolog_main():-
write("Attn: Works under CGI environment !"),nl,
html_parameters(PARMSTRING),
html_cgi_value(PARMSTRING,"COMMAND",CGI_COMMAND),
html_header("Press Start"),
html_font_color("gray"),
USERNAME="user",
PASSWORD="password",
odbc_sources(ODBC_SOURCES),
create_select_list("ODBC_SOURCES",ODBC_SOURCES,HTML_SELECT),
create_input_field("USERNAME",USERNAME,USERNAME_INPUT),
create_input_field("PASSWORD",PASSWORD,PASSWORD_INPUT),
create_button("SELECT ODBC SOURCE",HTML_BUTTON),
form_attributes(FORM_ATTRIBUTES),
html_text_item("Select ODBC Source",HTML_TEXT1),
html_text_item("Username: ",HTML_USER),
html_text_item("Password: ",HTML_PASSWORD),
html_form(FORM_ATTRIBUTES,["hr([])",HTML_TEXT1,"br",
HTML_SELECT,"br",
HTML_USER,USERNAME_INPUT,"br",
HTML_PASSWORD,PASSWORD_INPUT,"br",
HTML_BUTTON],
FORM),
DOC_FLOW=[FORM],
html_display_doc(DOC_FLOW),nl,
fail.
create_input_field(NAME,VALUE,HTML_BUTTON):-
html_literal("VALUE",VALUE,FIELD_VALUE),
html_attribute("NAME",NAME,FIELD_NAME),
html_attribute("SIZE","40",FIELD_SIZE),
html_button([FIELD_VALUE,FIELD_NAME,FIELD_SIZE],HTML_BUTTON),
!.
create_button(NAME,HTML_BUTTON):-
html_attribute("TYPE","submit",TYPE),
html_literal("VALUE",NAME,BUTTON),
html_attribute("NAME","COMMAND",COMMAND),
html_button([TYPE,BUTTON,COMMAND],HTML_BUTTON),
!.
create_select_list(NAME,OPTIONS,HTML_SELECT):-
slist_to_optionlist(OPTIONS,ODBC_OPTIONS),
html_literal("SIZE","5",SIZE),
html_attribute("MULTIPLE","nill",MULTIPLE),
html_attribute("NAME",NAME,FIELD_NAME),
html_select([MULTIPLE,SIZE,FIELD_NAME],ODBC_OPTIONS,HTML_SELECT),
!.
form_attributes(FORM_ATTRIBUTES):-
html_literal("TARGET","main",TARGET),
html_literal("METHOD","POST",METHOD),
html_literal("ACTION","dpecgi.exe",ACTION),
FORM_ATTRIBUTES=[TARGET,METHOD,ACTION],
!.
slist_to_optionlist([],[]):-!.
slist_to_optionlist([FILE|FILELIST],[OPTION|HTML_OPTIONS]):-!,
html_select_option([],FILE,OPTION),
slist_to_optionlist(FILELIST,HTML_OPTIONS).