This form demonstrates an Ada 95 binding to CGI.
with CGI, Text_IO; use CGI, Text_IO; procedure Demo is -- Demonstrate CGI interface. See the examples at -- http://www.ncsa.uiuc.edu/SDG/Software/Mosaic/Docs/fill-out-forms/overview.html -- To run this program directly (without an HTTP server), set the -- environment variable REQUEST_METHOD to "GET" and the variable -- QUERY_STRING to either "" or "name=David&topping=anchovies&callfirst=no". begin Put_CGI_Header; if CGI.Input_Received then Put_HTML_Head("Form Result of Demo Ada 95 Binding to CGI"); Put_HTML_Heading("Form Result of Demo", 1); Put_Line("<P>Your name is <I>" & Value("name") & "</I>"); Put_Line("<P>The keys and values sent were:<P>"); Put_Variables; else Put_HTML_Head("Demonstration of Ada 95 Binding to CGI"); Put_HTML_Heading("AdaCGI Demonstration Form", 1); Put_Line("<P>This form demonstrates an Ada 95 binding to CGI.<P>"); Put_Line("<FORM METHOD=POST>"); Put_Line("What is your name: <INPUT NAME=""name"" SIZE=40>"); Put_Line("<P>What topping would you like on your pizza?<P><OL>"); Put_Line("<LI><INPUT TYPE=""checkbox"" NAME=""topping"" " & "VALUE=""pepperoni"" CHECKED>Pepperoni."); Put_Line("<LI><INPUT TYPE=""checkbox"" NAME=""topping"" " & "VALUE=""sausage"">Sausage."); Put_Line("<LI><INPUT TYPE=""checkbox"" NAME=""topping"" " & "VALUE=""anchovies"">Anchovies."); Put_Line("</OL>"); Put_Line("Would you like us to call ahead?"); Put_Line("<DL>"); Put_Line("<DD> <INPUT TYPE=""radio"" NAME=""callfirst"" VALUE=""yes"" " & "CHECKED> <I>Yes.</I>"); Put_Line("<DD> <INPUT TYPE=""radio"" NAME=""callfirst"" VALUE=""no""> " & "<I>No.</I>"); Put_Line("</DL>"); Put_Line("<P> <INPUT TYPE=""submit""> <INPUT TYPE=""reset""> "); Put_Line("</FORM>"); end if; Put_HTML_Tail; end Demo;