#!/usr/bin/perl -w use CGI; my $query = new CGI; print "Content-type: text/html\n\n"; print "\n\nОбратная связь\n\n"; print "\n"; if($query->param('name') || $query->param('email') || $query->param('text')) { $name = $query->param('name'); $email = $query->param('email'); $text = $query->param('text'); &validation; } else { &print_form; } print "\n\n"; sub validation { if($ENV{'REQUEST_METHOD'} eq "POST"){ $text =~ tr/\;\`\'\"\\\|\*\<\>\^\(\)\[\]\{\}\$/ /s; $text =~ tr/\r\n/ /s; if(($text) && ($email =~ /^[a-zA-Z0-9\.\-\_]*\@[a-zA-Z0-9\.\-\_\/]*$/)){ &add_message; } else{ &error; } } else { print "Я бы попросил вас использовать мой скрипт, не обходя установленный мною интерфейс.
"; &print_form; exit; } } sub add_message { open(File, ">> message.txt"); flock File, 2; print File "Name:$name Email:$email\nText:$text\n"; close File; print "\n \n
\n"; print "

Спасибо за отправку сообщения.

\n"; print "

На конструктивную критику и стоящие предложения мы обязательно Вам ответим.

"; print "
Перейти на главную страницу сайта.
\n"; print "
"; } sub error { print "\n \n
\n"; print "

Форма обратной связи.

В случае если вы заметили в содержании сайта неточность, ошибку, опечатку или у вас есть какие-либо идеи или предложения - обязательно напишите нам об этом. На конструктивную критику и стоящие предложения мы обязательно ответим.

Вы не ввели или ввели неправельный email адрес и/или не ввели текст сообщения. 

Ваше имя:   

Ваш email:* 

Сообщение:*

Поля помеченные * обязательны для заполнения.

Вернуться на главную
"; } sub print_form { print "\n \n
\n"; print "

Форма обратной связи.

В случае если вы заметили в содержании сайта неточность, ошибку, опечатку или у вас есть какие-либо идеи или предложения - обязательно напишите нам об этом. На конструктивную критику и стоящие предложения мы обязательно ответим. 

Ваше имя:   

Ваш email:* 

Сообщение:*

Поля помеченные * обязательны для заполнения.

Вернуться на главную
"; }