#!/usr/bin/perl

use CGI;

$query = new CGI;

print $query -> header;
print $query -> start_html("My first full example");
print "<TABLE>\n <tr>\n";
print "<td><img src=logo.gif height=142 width=222></td>\n";
print "<td align=center>\n<H1> My first full page created with CGI</H1></td>\n";
print "</tr>\n</TABLE>";
print_prompt($query);
do_work($query);
&print_tail;
print $query -> end_html();


sub print_prompt{
	my($query) = @_;
	print $query->startform;
	
	print "<EM>What is your name?</EN><BR>";
	print $query->textfield('name');
	print $query->checkbox('It is my nickname');
	print "<P><EM>Where is it possible to see ENGLISH sparrow?</EM><BR>";
	print $query->checkbox_group(
		-name=>'Sparrow location',
		-values=>[England, Holland, France, Spain, Russia],
		-linebreak=>'yes',
		-defaults=>[Holland]);
	print "<P><EM>How long could they fly?</EM><BR>";
	print $query->radio_group(
		-name=>'how_far',
		-values=>['1 meter', '1 mile', '10 miles', 'realy far'],
		-default=>'1 meter');
	print "<P><EM>What is your favourite color?</EM><BR>";
	print $query->popup_menu(
		-name=>'Color',
		-values=>['black', 'brown', 'red', 'yellow', 'white'],
		-default=>'red');
	print $query->hidden('Reference', 'Monty Python');
	print "<P><EM>What have you got there?</EM><BR>";
	print $query->scrolling_list(
		-name=>'possesions',
		-values=>['Sword', 'Axe', 'Knife', 'Ticket','Car','Mouse', 'Dog', 'Sheep', 'Computer', 'Door', 'Rabbit'],
		-size=>5,
		-multiple=>'true');
	print "<P><EM>Any parting comments?</EM><BR>";
	print $query->textarea(
		-name=>'Comments',
		-rows=>10,
		-columns=>50);
	print "<P>", $query->reset;
	print $query->submit('Action','Submit');
	print $query->submit('Action','Screem');
	print $query->endform;
	print "<HR>\n";
	
}

sub do_work{
	my($query)=@_;
	my(@values,$key);
	print "<H2>Current values of this form: </H2>";
	foreach $key ($query->param){
		print "<STRONG>$key</STRONG>";
		@values = $query->param($key);
		print join(", ", @values), "<BR>\n";
	}
}


sub print_tail {
	print "<END
	<HR>
	<ADDRESS>Lincoln D. Stein </ADDRESS><BR>"
}

1;