Listing 3: Form test
#!/usr/local/bin/perl print <<EOF <HTML> <HEAD> <TITLE>Form test</TITLE> </HEAD> <BODY> <H1>We will test submitting a form to our WWW GUI server</H1> <br> <hr> <br> <form method="POST" action="test-a-form"> <input type="hidden" name="to" value="arthur"> <input type="hidden" name="subject" value="Test remarks"> <input type="hidden" name="nextpage" value="/english/remsent.html"> <PRE> Name <input type="text" name="naam" size=60> Company <input type="text" name="bedrijf" size=60> Phone <input type="text" name="telefoon" size=20> Fax <input type="text" name="fax" size=20> E-Mail <input type="text" name="mail" size=60> </PRE> <br> Your question / remark : <br> <textarea name="remarks" rows=4 cols=64></textarea><br> <BR> <PRE><input type="submit" value="Ok, send it"> <input type="reset" value="No, sorry"</PRE> </form> <br> <hr> <br> </BODY> </HTML> EOF ;
|