EXAMPLE

#!/usr/bin/perl5 require "wayd.pm"; print "$htmlHead"; print "<HEAD><TITLE>JUNK</TITLE>\n"; print "</HEAD>\n"; print "<SCRIPT LANGUAGE=\"JavaScript\">\n"; print "function ValidateData()\n"; print "{\n"; print " goon = 0\n"; print " if (document.enter_data.Vlogin.value.length == 0)\n"; print " {\n"; print " goon = 1\n"; print " alert('$T_ENTER_YOUR_ID')\n"; print " }\n"; print " if (goon == 0)\n"; print " {\n"; print " document.enter_data.submit()\n"; print " }\n"; print "}\n"; print "</SCRIPT>\n"; # head print "<A NAME=\"end\"></A>\n"; print "<FORM METHOD=\"POST\" NAME=\"enter_data\" "; print "ACTION=\"input.cgi#end\" >\n"; # # print "<TABLE BORDER=0><TR><TD>\n"; # # print "<INPUT TYPE=\"button\" VALUE=\"$T_SUBMIT_B\" "; print "onClick=\"ValidateData()\" >\n"; print "<BR>\n"; # # print "</TD><TD>\n"; print "<BR>$T_LOGIN:<INPUT TYPE=\"TEXT\" "; print "VALUE=\"$in{Vlogin}\" NAME=\"Vlogin\">"; print "\n"; print "<HR>\n<CENTER>\n"; print "</TD></TR></TABLE>\n"; print "</FORM>\n"; print "</CENTER>$htmlFoot"; exit;