Построение Web-сайта
# Возвратить код ошибки, если e-mail
# адрес не удовлетворяет синтаксису, return 0;
}
else {
# Возвратить true, e-mail адрес соответствует правилам, return 1;
} }
sub body_attributes {
# Проверить цвет фона
if.($Config{ 'bgcolor'}) { print " bgcolor=\"$Config{'bgcolor'} \"" }
# Проверить фоновый рисунок
if ($Config{background'}) { print " > background=\"$Config{background'}\"" }
#Проверить цвет ссылок
if ($Config{'link_color'}) { print " link=\"$Conf ig{'link_color'} \" " }
# Проверить цвет посещенных ссылок
if ($Conf ig{'vlink_color'}) { print " vlink=\"$Conf ig{'vlink_color'} \"" }
# Проверить цвет активной ссылки
if ($Config{'alink_color'}) { print " alink=\"$Conf ig{'alink_color'} \"" }
# Проверить цвет текста
if ($Config{'text_color'}) { print " text=\"$Conf ig{'text_color'}A"" }
sub error {
# Локализация переменных и присвоение параметров подпрограммы.
local($error,@error_fields) = @_;
local($host,$missing_field,$missing_field_list);
if ($error eq tad_referer') {
if ($ENV{'HTTP_REFERER'} =~ m| ~https?:
// ([ \w\. ]) | i) { $host = $1; print ""(END ERROR HTML) ";
Content-type: text/html
<html> <head>
<title>HeKoppeктным рекомендатель – в доступе отказано</title> </head>
<body bgcolor=#FFFFFF text=#000000> <center>
<table border=0 width=600 bgcolor=#9C9C9C>
<tr><th><font size=+2>Некорректный рекомендатель – в доступе
_>OTKa3aHo</fontx/th></tr> </table>
<table border=0 width=600 bgcolor=#CFCFCF> <tr><td>
Фopмa пытается использовать
<a href="http: //www.worldwidemart.com/scripts/formmail.shtiru">FormMail</a>
по адресу
<tt>$ENV{'HTTP_REFERER'}</tt>
, что является недопустимым для доступа к этому CGI-сценарию.<р>
Если Вы пытаетесь сконфигурировать FormMail для запуска этой формы,
› вам нужно добавить следующую информацию к \@referers, более
› подробно об этом написано в файле README.<р>
Добавьте <tt>'$host'</tt> в ваш массив <tt><b>\@referers</b></tt>.
› chr size=1> <centerxfont size=-l>
<a href="http: //www.worldwidemart.com/scripts/fonnmail.shtnil">
› FormMail</a> VI.6 © 1995-1997 Matt Wright<br>
A Free Product of <a href=" http://www.worldwidemart.com/scripts/ ">
› Matt's Script Archive, Inc.</a> </font></center>
</td></tr>
</table> </center> </body> </html>
(END ERROR HTML) } else {
print "(END ERROR HTML)"; Content-type: text/html
<html> ' <head>
<title>FormMail vl.6</title> </head>
<body bgcolor=#FFFFFF text=#000000> <center>
<table border=0 width=600 bgcolor=#9C9C9C> <tr>
<th><font size=+2>FormMail</font></th></tr> </table>
<table border=0 width=600 bgcolor=fCFCFCF>
<tr><th><tt><font size=+l>
Copyright 1995-1997 Matt Wright<br> Version 1.6 – Released May 02, 1997<br>
A Free Product of
<& href="http: //www.worldwidemart.com/scripts/">
› Matt's Script Archive, Inc.
</a></font>< /tt>< / th>< / tr> </table> </center> </body> </html>
(END ERROR HTML)
} }
elsif ($error eg 'request_method') {
print ""(END ERROR HTML)"; Content-type: text/html
<html> <head>
<title>Ошибка: Метод 3anpoca</title> </head>
<body bgcolor=#FFFFFF text=#000000> <center>
<table border=0 width=600 bgcolor=#9C9C9C> <tr>
<th><font size=+2>Error: Request Method</font></th></tr> </table>
<table border=0 width=600 bgcolor=#CFCFCF>
<tr><td>Meтод запроса предоставленной Вами формы не совпадает ни с
<tt>GET</tt>, ни с <tt>POST</tt>. Пожалуйста, проверьте форму и
› убедитесь, что оператор
<tt>method=</tt> записан в верхнем регистре и является <tt>GET</tt>
› либо <tt>POST</tt>.<p>