diff options
| author | Mark Murray <markm@FreeBSD.org> | 1999-05-02 14:33:17 +0000 |
|---|---|---|
| committer | Mark Murray <markm@FreeBSD.org> | 1999-05-02 14:33:17 +0000 |
| commit | ef0775c4f054d9bcacbc3f94478687691d11226b (patch) | |
| tree | 6ba8453a691190ab1f96748cae95df2e54cb3c2c /contrib/perl5/eg/cgi/tryit.cgi | |
| parent | 0feb57945e44edd6419789b4f64868d2937bc553 (diff) | |
| parent | 7c312e6b6a7b1f9412f10365baf3c5eca8fa5649 (diff) | |
This commit was generated by cvs2svn to compensate for changes in r46307,
which included commits to RCS files with non-trunk default branches.
Notes
Notes:
svn path=/head/; revision=46308
Diffstat (limited to 'contrib/perl5/eg/cgi/tryit.cgi')
| -rw-r--r-- | contrib/perl5/eg/cgi/tryit.cgi | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/contrib/perl5/eg/cgi/tryit.cgi b/contrib/perl5/eg/cgi/tryit.cgi new file mode 100644 index 000000000000..83c620c3e43a --- /dev/null +++ b/contrib/perl5/eg/cgi/tryit.cgi @@ -0,0 +1,37 @@ +#!/usr/local/bin/perl + +use CGI ':standard'; + +print header; +print start_html('A Simple Example'), + h1('A Simple Example'), + start_form, + "What's your name? ",textfield('name'), + p, + "What's the combination?", + p, + checkbox_group(-name=>'words', + -values=>['eenie','meenie','minie','moe'], + -defaults=>['eenie','minie']), + p, + "What's your favorite color? ", + popup_menu(-name=>'color', + -values=>['red','green','blue','chartreuse']), + p, + submit, + end_form, + hr; + +if (param()) { + print + "Your name is: ",em(param('name')), + p, + "The keywords are: ",em(join(", ",param('words'))), + p, + "Your favorite color is: ",em(param('color')), + hr; +} +print a({href=>'../cgi_docs.html'},'Go to the documentation'); +print end_html; + + |