Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
print STDOUT $cgi->header(), $html->output;

exit 0;
  2. or download this
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http:/
+/www.w3.org/TR/html4/loose.dtd">
<html>
...
  <body bgcolor="#<tmpl_var name="bgcolor">">
  </body>
</html>
  3. or download this
    $bgcolor = ($cgi->param('bgcolor') =~ /^[\da-fA-F]{6}$/) ? $cgi->param
+('bgcolor') : $bgcolor;