And it seems to work#!/usr/bin/perl use strict; use CGI; print "Content-type: text/html\n\n"; print "<html><head><title>Nocc Call Log</title></head>\n"; print "<body bgcolor=\"#FFFFFF\">\n"; print "<h1>Nocc Call Log</h1>\n"; print "<table border=\"4\">\n"; print "<form action=\"post.cgi\" method=\"POST\">\n"; print "<tr>\n"; print "<td>\n"; print "<h3>Callers Name: <input type=\"text\" name=\"caller\" size=\" +25\"></h3>\n"; print "</td>\n"; print "<td bgcolor=\"#FFDEAD\">\n"; print "<h3>Auto Time : <input TYPE=\"radio\" NAME=\"time-Type\" V +ALUE=\"auto_time\"></h3>\n"; print "<br>\n"; print "<h3>Manual Time : <input TYPE=\"radio\" NAME=\"time-Type\" V +ALUE=\"manual_time\"></h3>\n"; print "</td>\n"; print "<td bgcolor=\"#FFDEAD\">\n"; print "<h3>Time: <input type=\"text\" name=\"time\"></h3>\n"; print "</td>\n"; print "</tr>\n"; print "<tr>\n"; print "<td bgcolor=\"#8080FF\">\n"; print "<h3>Message For:</h3>\n"; print "</td>\n"; print "<td colspan=\"2\">\n"; print "<INPUT TYPE=\"hidden\" NAME=\"for\" VALUE=\"People\" size=\"2\" +>\n"; print "<SELECT NAME=\"for\">"; print "<OPTION VALUE=\"people\">Dennis </OPTION>"; print "<OPTION SELECTED VALUE=\"people\">alex</OPTION>"; print "<OPTION VALUE=\"people\">andrew </OPTION>"; print "<OPTION VALUE=\"people\">Irving</OPTION>"; print "<OPTION VALUE=\"people\">Freddy</OPTION>"; print "<OPTION VALUE=\"people\">Ken</OPTION>"; print "<OPTION VALUE=\"people\">Mike</OPTION>"; print "<OPTION VALUE=\"people\">Tim</OPTION>"; print "<OPTION VALUE=\"people\">Bob</OPTION>"; print "<OPTION VALUE=\"people\">Ashley</OPTION>"; print "<OPTION VALUE=\"people\">Richard</OPTION>"; print "<OPTION VALUE=\"people\">Terrance</OPTION>"; print "<OPTION VALUE=\"people\">Ronald</OPTION>"; print "<OPTION VALUE=\"people\">Phil</OPTION>"; print "</td>\n"; print "</tr>\n"; print "<tr>\n"; print "<td bgcolor=\"#808080\">\n"; print "<h3> Message Taken by:</h3>\n"; print "</td>\n"; print "<td colspan=\"2\">\n"; print "<INPUT TYPE=\"hidden\" NAME=\"by\" VALUE=\"persons\" size=\"2\" +>\n"; print "<SELECT NAME=\"by\">"; print "<OPTION VALUE=\"people\">Dennis </OPTION>"; print "<OPTION VALUE=\"people\">alex</OPTION>"; print "<OPTION VALUE=\"people\">andrew </OPTION>"; print "<OPTION VALUE=\"people\">Irving</OPTION>"; print "<OPTION VALUE=\"people\">Freddy</OPTION>"; print "<OPTION VALUE=\"people\">Ken</OPTION>"; print "<OPTION VALUE=\"people\">Mike</OPTION>"; print "<OPTION VALUE=\"people\">Tim</OPTION>"; print "<OPTION SELECTED VALUE=\"people\">Bob</OPTION>"; print "<OPTION VALUE=\"people\">Ashley</OPTION>"; print "<OPTION VALUE=\"people\">Richard</OPTION>"; print "<OPTION VALUE=\"people\">Terrance</OPTION>"; print "<OPTION VALUE=\"people\">Ronald</OPTION>"; print "<OPTION VALUE=\"people\">Phil</OPTION>"; print "</td>\n"; print "</tr>\n"; print "<tr>\n"; print "<td colspan=\"3\">\n"; print "<h3> Description: </h3> \n"; print "<input type=\"text\" name=\"smessage\" size=\"90\">\n"; print "</td>\n"; print "</tr>\n"; print "<tr>\n"; print "<td colspan=\"4\">\n"; print "<h3>Message:<textarea name=\"the_textarea_tags_name\" cols=\"90 +\" rows=\"5\">Message Here</textarea></h3>\n"; print "</td>\n"; print "</tr>\n"; print "<tr>\n"; print "<td>\n"; print "<input type=\"submit\" value=\" Send \">\n"; print "</td>\n"; print "<td>\n"; print "<input type=\"reset\" value=\"Clear Form\">\n"; print "</td>\n"; print "</tr>\n"; print "</form>\n"; print "</table>\n"; print "</body></html>";
In reply to RE: Something is wrong and I don'tkow what
by monk2b
in thread Something is wrong and I don'tkow what
by monk2b
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |