CGI-ContactForm
view release on metacpan or search on metacpan
v1.10 (Apr 4, 2003)
Template based customization added as an option.
v1.03 (Mar 30, 2003)
CGI.pm used for parsing form data.
New argument: 'maxsize' - for limiting the message size.
v1.02 (Feb 16, 2003)
DOCTYPE declaration changed to XHTML 1.1.
v1.01 (Feb 13, 2003)
CSS validation error corrected.
v1.0 (Feb 12, 2003)
Additional arguments added that makes it possible to have the form
display non-English text.
Warnings enabled.
lib/CGI/ContactForm.pm view on Meta::CPAN
</body>
</html>
FORM
}
}
sub headprint {
my $args = shift;
print "Content-type: text/html; charset=$args->{encoding}\n\n";
print <<HEAD;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>$args->{title} $args->{recname}</title>
<style type="text/css">
.error { font-weight: bold }
</style>
${ stylesheet( $args->{styleurl} ) }
</head>
<body>
( run in 0.333 second using v1.01-cache-2.11-cpan-3cd7ad12f66 )