minimal_cgi.bush

# File : minimal_cgi.bush

    procedure minimal_cgi is
      -- Demonstrate Bush's CGI interface
      -- based on AdaCGI's minimal.adb example

      -- To run this script directly (without a HTTP server), set the
      -- environment variable REQUEST_METHOD to "GET" and the variable
      -- QUERY_STRING to either "" or "x=a&y=b".

    begin
      cgi.put_cgi_header;
      cgi.put_html_head( "Minimal Form Demonstration" );
      if cgi.input_received then
         cgi.put_variables;
      else
         put_line( "<form method=" & ASCII.Quotation & "POST" & ASCII.Quotation &
           ">What's your name?<input name=" & ASCII.Quotation & "username" &
           ASCII.Quotation & "><input type=" & ASCII.Quotation & "submit" &
           ASCII.Quotation & "></form>" );
      end if;
      cgi.put_html_tail;
    end minimal_cgi;