Resize this window so you can view the main text.
Close this window to return to the main text.
require("cgi-lib.pl");
print &PrintHeader;
Content-type: text/html\n\n
&ReadParse;
if ($ENV{"ARGC"} eq "0") {
print "<HTML><HEAD><TITLE>Form for Making a Greeting Card</TITLE></HEAD>\n";
print "<BODY>\n";
print "<H1>Greeting Card Form</H1>\n";
print "<HR>\n";
print "<FORM ACTION=\"/perl/card.pl\">\n";
print "<H3>Card Type</H3>\n";
print "<font size=-1>\n";
print "Select which type of card you would like:<P>\n";
print "<INPUT TYPE=\"radio\" NAME=\"type\" VALUE=\"1\" CHECKED>Birthday card:\n";
print "A basic birthday card.<P>\n";
print "<INPUT TYPE=\"radio\" NAME=\"type\" VALUE=\"2\">Anniversary card:\n";
print "A basic anniversary card.<P>\n";
print "<INPUT TYPE=\"radio\" NAME=\"type\" VALUE=\"3\">Thank you card:\n";
print "A basic thank you card.<P>\n";
print "<H3>Particulars:</H3>\n";
print "Recipient"s name <INPUT TYPE=\"text\" NAME=\"who\" MAXLENGTH=\"32\" value=\"Mary\"><P>\n";
print "Your name <INPUT TYPE=\"text\" NAME=\"name\" MAXLENGTH=\"32\" value=\"John\"><P>\n";
print "<INPUT type=\"submit\" VALUE=\"Create Card\">\n";
print "</font>\n";
print "</FORM>\n";
print "<hr>\n";
print "Copyright © 1995 Novell, Inc. All Rights Reserved.\n";
else {
if ($in{"type"} == 1) {
print "<CENTER><H1>";
print "Happy Birthday ",$in{"who"},"!";
print "</H1>";
print "<IMG SRC=\"/images/art.gif\" width=120 height=200 border=1>";
print "<font size=+1>";
print "<P>Best wishes on this wonderful day.<BR>";
print "</font>";
print "<P>from " , $in{"name"},"<br>";
print "</CENTER>";
print "<hr>";
}
elseif ($in{"type"} == 2) {
print "<IMG SRC=\"/images/vase.gif\" align=\"right\" hspace=20>";
print "<CENTER><H1>";
print "Happy Anniversary ", $in{"who"}, "!";
print "</H1>";
print "<font size=+1>";
print "<P>You mean so much to me.<BR>";
print "</font>";
print "<P>Love, ", $in{"name"}, "<br>";
print "</CENTER>";
print "<P><P><hr>";
}
else {
print "<center>";
print "<H1>Thank you ", $in{"who"}, "!";
print "</H1>";
print "<IMG SRC=\"/images/pen.gif\" width=200 height=200>";
print "<P>your good friend, ", $in{"name"}, "<br>";
print "</center>";
print "</body></html>\n";
}
}