CGI-Application-MailPage
view release on metacpan or search on metacpan
templates/form.tmpl view on Meta::CPAN
<html>
<head>
<title>Mail A Page To A Friend</title>
<form method="post">
<input type="hidden" name="rm" value="send_mail" />
<input type="hidden" name="page" value="<tmpl_var escape='html' name='page'>" />
</head>
<style type="text/css">
td {
background-color: #dddddd;
}
td.label {
text-align: right;
vertical-align: top;
width: 50%;
font-weight: bold;
}
td.input {
text-align: left;
vertical-align: top;
width: 50%;
}
font {
color: #000000;
font-size: 10pt;
}
font.alert {
font-size:12pt;
color: red;
}
</style>
<body>
<table border="0" width="90%" align="center" cellspacing="3" cellpadding="5">
<tr>
<td colspan="2" align="center">
<h2>Mail A Page To Your Friends</h2>
<tmpl_if any_errors>
<p class="alert">
Your submission has errors. Please correct the following:
<ul>
<tmpl_if error_name>
<li>
<tmpl_if missing_name>
Please fill in your name in the form below.
<tmpl_else>
That name is too long or contains unnacceptable characters.
</tmpl_if>
</li>
</tmpl_if>
<tmpl_if error_from_email>
<li>
<tmpl_if missing_from_email>
Please fill in your email address in the form below.
<tmpl_else>
That is not a valid email address.
</tmpl_if>
</li>
</tmpl_if>
<tmpl_if error_to_emails>
<li>
<tmpl_if missing_to_emails>
Please fill in your friends' email addresses in the form below.
<tmpl_else>
One of your friend's email addresses is not valid or you have
exceeded the limit of emails to send.
</tmpl_if>
</li>
</tmpl_if>
<tmpl_if error_subject>
<li>
<tmpl_if missing_subject>
Please enter a Subject for the email in the form below.
<tmpl_else>
( run in 2.841 seconds using v1.01-cache-2.11-cpan-437f7b0c052 )