Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Московский государственный университет им. М.В. Ломоносова

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Документация, учебники по Perl.doc

Скачиваний:

Добавлен:

29.10.2018

Размер:

1.83 Mб

Скачать

☆

<<< < Предыдущая 23 24 25 26 27 28 29 30 31 32 33 3435 / 8635 36 37 38 39 40 41 42 43 44 45 46 47 > Следующая >>>

Add_guestbook.Pl - запись в книгу

#! e:\perl5\perl

# Первая строка, как обычно

require "ssi-pl.pl";

# Я использую навигационную панель в виде SSI-включения. Для этого используется модуль ssi-pl.pl

if (($ENV{'QUERY_STRING'} eq '') or ($ENV{CONTENT_LENGTH}=0) )

{

# Если нет входных данных, то генерируем страницу с формой

print <

<head>

<title>Книга жалоб и предложений</title>

</head>

<tr>

<td width="430" height="45"><p align="center"><img src="../images/guestbook.GIF"

alt="Книга жалоб" WIDTH="258" HEIGHT="60"></td>

</tr>

</table>

</div><div align="left">

<tr>

HTML

DoInclude("_menu.htm"); # Это SSI-включение навигационной панели.

print <<HTML;

</p>

<td width="410" height="53" valign="top"><table border="1" width="100%" cellspacing="0"

cellpadding="0">

<tr>

<div align="left"><p><small>Я, <input type="text" name="Name" size="20"></small>, <small>по

профессии простой </small><input type="text" name="Work" size="20">, <small>посетив

данный сервер и ознакомившись с представленными

на нем материалами, хочу выразить свои чувства и

эмоции следующими приличными словами:</small></p>

</div><div align="left"><p><small> </small><input type="radio" value="Good" checked

name="RadioButton"><small>мне понравилось :-)</small></p>

</div><div align="left"><p><small> </small><input type="radio" name="RadioButton"

value="Bad"><small>мне не понравилось :-( </small></p>

</div><div align="left"><p> <input type="radio" name="RadioButton" value="Different"><small>мне

пофигу :-| </small></p>

</div><div align="left"><p><small>В дополнение к сказанному хочу

так же сказать: </small></p>

</div><div align="left"><p><textarea rows="4" name="Text" cols="30"></textarea></p>

</div><div align="left"><p><small>Прошу принять к рассмотрению

мое заявление и незамедлительно принять меры.

Решение по моему заявлению направить письменно

на мой электронный адрес </small><input type="text" name="Email"

size="20"><small>.</small></p>

</div><div align="center"><center><p><input src="../images/send.JPG" name="Send"

alt="Послать" border="0" type="image" WIDTH="53" HEIGHT="21"> <a

href="read_guestbook.pl"><img src="../images/read.jpg" alt="Почитать" border="0"

WIDTH="63" HEIGHT="21"></a></p>

</center></div>

</form>

</td>

</tr>

</table>

</td>

</tr>

</table>

</div>

</body>

</html>

HTML

die;

}

# Теперь получаем входные данные.

&GetFormInput;

$Name = $field{'Name'} ;

$Work = $field{'Work'} ;

$RadioButton = $field{'RadioButton'} ;

$Text = $field{'Text'} ;

$Email = $field{'Email'} ;

$Send = $field{'Send'} ; # это поле не используется

# Проверяем, заполнены ли обязательные поля.

# Если нет - генерируем HTML страницу с просьбой заполнить нужные поля.

if ($Name eq '' || $Email eq '' || $Text eq '')

{

print <<HTML;

Content-type: text/html

<html>

<head>

<title>Книга жалоб и предложений - ошибка</title>

</head>

<tr>

<td width="430" height="45"><p align="center"><img src="../images/guestbook.GIF"

alt="Книга жалоб" WIDTH="258" HEIGHT="60"></td>

</tr>

</table>

</div><div align="left">

<tr>

HTML

DoInclude("D:/InetPub/wwwroot/_menu.htm");

print <<HTML;

</p>

<td width="410" height="53" valign="top"><p align="left"><small>Вы не указали

свое имя, E-mail, либо не заполнили сам текст Вашего

отзыва. Вернитесь, пожалуйста, на страницу формы

и заполните требуемые поля.</small></p>

<p align="center"><a href="add_guestbook.pl">Назад</a> </td>

</tr>

</table>

</div>

<table>

<tr>

</tr>

</table>

</body>

</html>

HTML

}

else # все данные правильно введены

{

# Если все поля заполнены правильно, то начинаем их обрабатывать.

$Text=~tr/\r\n/ /; #заменяем перевод строки на пробел

# Если в текстовом поле формы (text box) посетитель нажимал Enter,

# то нужно убрать символы перевода строки, чтобы можно было записать

# все поля формы в одну строку файла.

if ($Work eq '') {$Work=' '}; #если пусто - то пробел

# Если поле не заполнено, то оно равно пробелу.

$Name=~s/&/ /g;

$Work=~s/&/ /g;

$Text=~s/&/ /g;

$Email=~s/&/ /g;

# Если посетитель использовал символ &, то заменяем его на пробел,

# поскольку этот символ мы будем использовать для разделения наших полей в файле.

open(OutFile, ">>guestbook.txt") || die;

# Открываем файл для добавления.

$Time=localtime; #получаем время

# Получаем время заполнения гостевой книги.

$line=join('&', $Time, $Name, $Work, $RadioButton, $Text, $Email, $ENV{REMOTE_HOST});

# И, наконец, слепляем все поля формы в одну строку. На всякий случай добавляем в конце

# IP адрес посетителя, взятый из переменных окружения.

print OutFile "$line\n";

close OutFile;

# Записываем полученную строку в файл и закрываем его.

# Осталось только сказать посетителю спасибо.

# выводим сообщение о успехе

print "Content-type: text/html\n\n";

print "<html>\n" ;

print "\n" ;

print "<head>\n" ;

print '<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">'."\n" ;

print '<meta name="GENERATOR" content="Microsoft FrontPage 3.0">'."\n" ;

print "<title>Книга жалоб и предложений</title>\n" ;

print "</head>\n" ;

print "\n" ;

print '<body background="../images/background_new.jpg">'."\n" ;

print '<div align="left">'."\n" ;

print "\n" ;

print '<table border="0" width="630" height="49">'."\n" ;

print " <tr>\n" ;

print ' <td width="200" height="45"></td>'."\n" ;

print ' <td width="430" height="45"><p align="center">';

print '<img src="../images/guestbook.GIF" alt="Книга жалоб" WIDTH="258" HEIGHT="60"></td>'."\n" ;

print " </tr>\n" ;

print "</table>\n" ;

print '</div><div align="left">'."\n" ;

print "\n" ;

print '<table border="0" width="630" height="53" cellspacing="0" cellpadding="0">'."\n" ;

print " <tr>\n" ;

print ' <td width="200" height="260" valign="top"><p align="center">'."\n" ;

DoInclude("D:/InetPub/wwwroot/_menu.htm");

print ' <p align="left"> </td>'."\n" ;

print ' <td width="10" height="53" valign="top"></td>'."\n" ;

print ' <td width="410" height="53" valign="top"><p align="center"><small>Ваши данные'."\n" ;

print " приняты. Спасибо.</small></p>\n" ;

print ' <p align="center"><a href="read_guestbook.pl">';

print '<img src="../images/read.jpg" alt="Почитать" border="0" WIDTH="63" HEIGHT="21"></a> </td>'."\n" ;

print " </tr>\n" ;

print "</table>\n" ;

print "</div>\n" ;

print "\n" ;

print "<table>\n" ;

print " <tr>\n" ;

print ' <td width="10" height="53" valign="top"></td>'."\n" ;

print " </tr>\n" ;

print "</table>\n" ;

print "</body>\n" ;

print "</html>\n" ;

}

# Не забываем подпрограмму разбора данных из формы.

sub GetFormInput {

(*fval) = @_ if @_ ;

local ($buf);

if ($ENV{'REQUEST_METHOD'} eq 'POST') {

read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});

}

else {

$buf=$ENV{'QUERY_STRING'};

}

if ($buf eq "") {

return 0 ;

}

else {

@fval=split(/&/,$buf);

foreach $i (0 .. $#fval){

($name,$val)=split (/=/,$fval[$i],2);

$val=~tr/+/ /;

$val=~ s/%(..)/pack("c",hex($1))/ge;

$name=~tr/+/ /;

$name=~ s/%(..)/pack("c",hex($1))/ge;

if (!defined($field{$name})) {

$field{$name}=$val;

}

else {

$field{$name} .= ",$val";

#if you want multi-selects to goto into an array change to:

#$field{$name} .= "\0$val";

}

return 1;

}

<<< < Предыдущая 23 24 25 26 27 28 29 30 31 32 33 3435 / 8635 36 37 38 39 40 41 42 43 44 45 46 47 > Следующая >>>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
03.12.2019705.98 Кб0Документ введение и первая часть.rtf
#
08.07.2019501.47 Кб0Документ для таньки.rtf
#
25.12.20191.11 Mб0Документ1.rtf
#
08.07.201953.76 Кб0Документальные фильмы для.doc
#
03.09.2019128 Кб7ДОКУМЕНТАЦИЯ ПО ПРОИЗВОДСТВЕННОЙ ПРАКТИКЕ.doc
#
29.10.20181.83 Mб3Документация, учебники по Perl.doc
#
11.11.2019103.94 Кб9Документоведение и архивоведение_семинары_2012.doc
#
06.05.2019235.52 Кб1Докучаевский.doc
#
10.11.2019423.94 Кб19Долгина_English Articles 4th page.doc
#
19.08.2019653.82 Кб1Долгосрочная целевая программа Духовно-нравстве...doc
#
26.09.201999.84 Кб5Должн. инструк. нач. КБ -06-ЖРД.doc