• Your recent searches
CGI-ContactForm
5 results

 view release on metacpan or  search on metacpan

examples/ContactForm.css  view on Meta::CPAN 

}
p { font-size: 14px; margin-top: 0; margin-bottom: 0.1em }
p.erroralert { margin-bottom: 0.7em }
p.returnlink { margin-top: 1em }
.halign, td p.returnlink { text-align: center }
.error { color: #cc6600; background: none }
td { text-align: left }
input.button {
    font-family: arial, helvetica, sans-serif;
    font-size: 16px;
    font-weight: bold;
    padding-top: 0.1em;
    background: #ddeeff;
    color: black;
}
input.button:hover { background: white; color: black }
a         { color: #4c5ea8; background: none }
a:visited { color: #4c5ea8; background: none }
a:active  { color: #cc6600; background: none }
a:hover   { color: #cc6600; background: none }

examples/ContactForm_form.tmpl  view on Meta::CPAN 

<html>
<head>
<title><TMPL_VAR TITLE> <TMPL_VAR RECNAME></title>
<style type="text/css">
.error { font-weight: bold }
</style>
<TMPL_VAR STYLE>
</head>
<body>
<form action="<TMPL_VAR SCRIPTNAME>" method="post">
<table cellpadding="3">
<tr>
<td colspan="4"><h1 class="halign"><TMPL_VAR TITLE> <TMPL_VAR RECNAME></h1></td>
</tr><tr>
<td><p<TMPL_VAR NAMEERROR>><TMPL_VAR NAMELABEL></p></td><td><input type="text" name="name"

examples/ContactForm_result.tmpl  view on Meta::CPAN 

<html>
<head>
<title><TMPL_VAR TITLE> <TMPL_VAR RECNAME></title>
<style type="text/css">
.error { font-weight: bold }
</style>
<TMPL_VAR STYLE>
</head>
<body>
<h1><TMPL_VAR THANKS></h1>
<p><TMPL_VAR SENT_TO></p>
<p class="returnlink"><a href="<TMPL_VAR RETURNLINKURL>"><TMPL_VAR RETURNLINKTEXT></a></p>
</body>
</html>

lib/CGI/ContactForm.pm  view on Meta::CPAN 

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>
HEAD
}

sub stylesheet {
    my $url = shift || return \'';
    $url =~ s/ /%20/g;

readme.html  view on Meta::CPAN 

<style type="text/css">
p, h1, body, ul { font-family: arial, helvetica, sans-serif }
p, body, ul { background: #f0f0f0; color: black; font-size: 14px }
body { margin-left: 15%; margin-right: 15% }
h1 { background: #f0f0f0; color: #4c5ea8; font-size: 19px }
tt {
    background: #f0f0f0;
    color: #4c5ea8;
    font-family: 'courier new', monospace;
    font-size: 14px;
    font-weight: bold;
}
ul { line-height: 1.5em }
a         { color: #4c5ea8; background: none }
a:visited { color: #4c5ea8; background: none }
a:active  { color: #cc6600; background: none }
a:hover   { color: #cc6600; background: none }
</style>
</head>
<body>
<br>



( run in 0.790 second using v1.01-cache-2.11-cpan-5dc5da66d9d )