Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: разработка для Web > Форма обратной связи на сайте


Автор: Blanka 15.12.2013, 14:09
Помогите, пожалуйста, с возможным решением проблемы.
Нужен скрипт на Перл для формы обратной связи, корректно (в правильной кодировке, без аброкодабр) отсылающий данные из формы из разных броузеров.
Сайт в utf-8.

Автор: Bulat 15.12.2013, 20:36
Цитата(Blanka @  15.12.2013,  14:09 Найти цитируемый пост)
отсылающий данные

куда отсылающий??

Автор: Blanka 17.12.2013, 13:29
При переходе сайта на utf-8. Текст сообщения присылаемого на электронную почту из формы обратной связи стал нечитабельным. Я бы хотела найти решения этого вопроса. 

Автор: Bulat 17.12.2013, 14:02
Blanka, а может код какой выложишь?

Автор: Blanka 17.12.2013, 14:22
Код

#!/usr/bin/perl

use CGI;

use CGI::Carp;

$query = new CGI;

use Encode;

&print_page_start;
&validate_form;
&test_code;
&send_mail;
&print_page;
&print_page_end;

sub print_page_start {
    print "Content-type: text/html; charset=utf-8\n\n";
    print "<HTML>\n<HEAD>\n";
    print "<meta charset=\"UTF-8\">";
    print "<TITLE> спасибо за интерес к нашей мебели</TITLE>\n";
    print "</HEAD>\n";
    print "<style type=\"text/css\">\n<!--\n";
    print "td {font-family: Arial; color: #160a16;";
    print "font-size:11px}\n";
    print "a:active {font-family: Arial; color: #af45c5; text-decoration: none;";
    print "font-size:11px}\n";
    print "a:link {font-family: Arial; color: #af45c5; text-decoration: none;";
    print "font-size:11px }\n";
    print "a:visited {font-family: Arial; color: #af45c5; text-decoration: none;";
    print "font-size:11px }\n";
    print "a:hover {font-family: Arial; color: #af45c5; text-decoration: underline;";
    print "font-size:11px}\n";
    print "//-->\n</style>\n<BODY>\n";
}

sub print_page_end  {
    print "</BODY>\n</HTML>\n";
}

sub validate_form  {
    $n1 = $query->param('n1');
    $n2 = $query->param('n2');
    $n3 = $query->param('n3');
    $ar = $query->param('ar');
    $kod = $query->param('kod');
}

sub test_code  {
    if ($query->param('kod') ne "fl372")  {
    &spam_error;
    }
}

sub send_mail  {
open (MAIL, "| /usr/sbin/sendmail -t");
print MAIL "From: xxx\@xxx.ru\n";
print MAIL "To: xxx\@xxxl.ru\n";
print MAIL "Subject: Оставлен контакт от клиента с сайта \n\n";
print MAIL "Фамилие, имя, отчество - $n1\n";
print MAIL "E-mail - $n2\n";
print MAIL "Телефон - $n3\n";
print MAIL "Ваше сообщение - $ar\n";
close MAIL;
}

sub print_page  {
    print "<TABLE border=\"1\" bordercolor=\"#160a16\" cellpadding=\"30\" cellspacing=\"0\"><TR><TD>\n";
    print "Спасибо за вопрос. <br />Проверьте, пожалуйста, Ваши контактные данные и текст вопроса:<br /><br />\n";
    print "Фамилия, имя, отчество: " . $query->param('n1') . "<br>\n";
    print "E-mail: " . $query->param('n2') . "<BR>\n";
    print "Телефон: " . $query->param('n3') . "<BR>\n";
    print "Ваше сообщение: " . $query->param('ar') . "<BR><BR>\n";
    print "<A HREF=\"http://www.xxx.ru\">вернуться на главную страницу </A>";
    print "</TD></TR></TABLE>";
}

# Ошибка введенного кода
sub spam_error  {
    print "<html><head><title>Ошибка введенного кода</title></head>\n";
    print "<BODY><FONT color=\"#ff0000\"><h4>Ошибка введенного кода</h4></FONT>";
    print "<FONT color=\"#000000\">Введите, пожалуйста, ";
    print "символы изображенные на рисунке!\n";
    print "<FORM ACTION=\"http://www.xxx.ru/cgi-bin/email.pl\">\n";
    print "Фамилия, имя, отчество: <INPUT TYPE=\"TEXT\" SIZE=\"53\" name=\"n1\"";
    print "value=\"" . $query->param('n1') . "\"><br><br>\n";
    print "E-mail: <INPUT TYPE=\"TEXT\" SIZE=\"26\" name=\"n2\""; 
    print "value=\"" . $query->param('n2') . "\"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Телефон:";
    print " <INPUT TYPE=\"TEXT\" SIZE=\"27\" name=\"n3\" value=\"" . $query->param('n3') . "\"><br><br>\n";
    print "<input type=hidden name=\"ar\" ";
    print "value=\"" . $query->param('ar') . "\">\n";
    print "<img src=\"http://www.xxx.ru/pict1.gif\" width=75 height=25 border=1><br>\n";
    print "<input type=text name=\"kod\" value=\"" . $query->param('kod') . "\" size=9><P>";
    print "<input type=\"submit\" name=\"submit\" value=\"Отправить\"> ";
    print "<input type=\"reset\" name=\"reset\" value=\"Очистить\"></form><hr>\n";
    print "<A HREF=\"http://www.xxx.ru\">вернуться на главную страницу </A>";
    print "\n</FONT></BODY>\n</HTML>\n";
   exit;
}


Добавлено @ 14:26
код типовой ничего особенного.

На html-страницу все выводится корректно. Заголовок письма "Оставлен контакт от клиента с сайта", тоже на нормальном русском, а текст сообщения УВЫ!!

Автор: noize 17.12.2013, 14:42
вы, я смотрю, любите рисковать - код пишете без strict'ов и warnings'ов

Автор: Blanka 17.12.2013, 15:17
Это как?

Добавлено через 2 минуты и 47 секунд
Код написан лет 10 назад. Я сейчас немного другими вопросами занимаюсь, поэтому в программировании меня можно сейчас назвать Чайником... Очень буду признательна, если укажите на недостатки...

Автор: noize 17.12.2013, 15:49
добавьте в код вот это:
Код

use strict;
use warnings;

и от этого уже пляшите

Автор: alezzz 17.12.2013, 18:03
Цитата(noize @  17.12.2013,  15:49 Найти цитируемый пост)
добавьте в код вот это:код Perl1:2:use strict;use warnings;

хороший универсальный совет, подходит под любую проблему если в начале кода нет этих строчек smile.
 
Blanka

&send_mail; переместите за &print_page_end;
перед open MAIL попробуйте для всех переменных ($n1, $ar...) перебрать такие варианты:
Encode::_utf8_on($n1);
или
Encode::_utf8_off($n1);

Sendmail-ом не отсылал, может у него какая неприязнь к utf или в какой он там кодировке отправляет по умолчанию. У меня работает автоматическая отправка через связку mutt - ssmtp, с utf были проблемы, но решались.

Автор: Blanka 17.12.2013, 18:20
Спасибо. Можно, конечно, добавить. Правда программа элементарная

Добавлено через 2 минуты и 25 секунд
alezzz, тоже спасибо. Попытаюсь сделать, как Вы рекомендуете.

Автор: Bulat 17.12.2013, 19:42
Там на самом деле мож проще перекодировать в cp1251 при отправке!

Автор: Blanka 17.12.2013, 19:44
alezzz, похоже действительно проблема в sendmail хостера. Перенесла файлы на другой хостинг для экспериментов над ними. 
Вопрос с нечитабельностью текста писем снялся.
Придется теперь много вопросов задавать тех. поддержке.

Добавлено через 6 минут и 55 секунд
Bulat, при отправке пробовала перекодировать accept-charset в тег form. 
Но IE на это не отреагировал, а в  остальных браузерах помогло с текстом сообщения, но стало выводить "вопросики" при выводе введенных данных на страницу. 

Автор: Bulat 17.12.2013, 20:32
Цитата(Blanka @  17.12.2013,  19:44 Найти цитируемый пост)
при отправке пробовала перекодировать accept-charset в тег form. 

Я имел ввиду в момент отправки письма, через Encode

Автор: Blanka 17.12.2013, 22:13
Цитата(Bulat @ 17.12.2013,  20:32)
Цитата(Blanka @  17.12.2013,  19:44 Найти цитируемый пост)
при отправке пробовала перекодировать accept-charset в тег form. 

Я имел ввиду в момент отправки письма, через Encode

Поделитесь  методом, пжс.

Автор: Blanka 18.12.2013, 00:35
И еще вопросик от чайничка.
? Можно ли в заголовок отправляемого мыла вписать что-то вроде print MAIL "Content-type: text/html; charset=utf-8"; 

Автор: Bulat 18.12.2013, 08:00
Писал по интуиции - не тестировал

Код

sub send_mail  {
  open (MAIL, "| /usr/sbin/sendmail -t");
  print MAIL "From: xxx\@xxx.ru\n";
  print MAIL "To: xxx\@xxxl.ru\n";
  print MAIL "Subject: Оставлен контакт от клиента с сайта \n\n";
  print MAIL "Фамилие, имя, отчество - ".Encode::encode('cp1251', Encode::decode('utf8',$n1))."\n";
  print MAIL "E-mail - ".Encode::encode('cp1251', Encode::decode('utf8',$n2))."\n";
  print MAIL "Телефон - ".Encode::encode('cp1251', Encode::decode('utf8',$n3))."\n";
  print MAIL "Ваше сообщение - ".Encode::encode('cp1251', Encode::decode('utf8',$ar))."\n";
  close MAIL;
}


Суть в Encode::encode('cp1251', Encode::decode('utf8',...))

Цитата(Blanka @  18.12.2013,  00:35 Найти цитируемый пост)
Можно ли в заголовок отправляемого мыла вписать что-то вроде print MAIL "Content-type: text/html; charset=utf-8";  

Можно, но это не даст того эффекта, что вы ожидаете.  smile 

Автор: Blanka 18.12.2013, 18:01
Хоть мне никто и не ответил... 
Но на самом деле, это помогло.
print MAIL "Content-Type: text/plain; charset=utf-8\n"; сразу после строки open (MAIL, "| /usr/sbin/sendmail -t");
Код

sub send_mail  {
open (MAIL, "| /usr/sbin/sendmail -t");
print MAIL "Content-Type: text/plain; charset=utf-8\n";
print MAIL "From: xxx\@xxx.ru\n";
print MAIL "To: xxx\@xxxl.ru\n";
print MAIL "Subject: Оставнен контакт от клиента с сайта \n\n";
print MAIL "Фамилие, имя, отчество - $n1\n";
print MAIL "E-mail - $n2\n";
print MAIL "Телефон - $n3\n";
print MAIL "Ваше сообщение - $ar\n";
close MAIL;
}

Автор: tzirechnoy 29.12.2013, 17:26
Цитата
print MAIL "Subject: Оставнен контакт от клиента с сайта \n\n";


Убивать сразу. Вообще, на почту и i18n в ней есть RFC, они несложно читаются (rfc2045, rfc2046, rfc2047, rfc2048, rfc2049), дополнительно для понимания общих механизмов можно просмотреть довольно муторный и пока вам неактуальный rfc2822, после прочтения стоит посмотреть в rfc-index на updates (которые для Вас тожэ не очень важны, на этом этапе).
Если не умеете читать -- то можно было хотя бы послать пример письма из известной почтовой программы самому себе, экспортировать на диск в какой-нибудь простой mbox, открыть его текстовым редактором и сделать своё в точности как там получилось.

Краткая выжымка: 

1) В заголовках письма при передаче (в т.ч. при передаче в sendmail) все символы должны быть 7-битные. Никакого utf-8 или 1251 туда печатать нельзя. Письма от людей, которые этого не понимают, получают у меня сразу 2/3 скоринга для отправки в спам (и это по-моему умолчание в спамассасине), а если пробираются ко мне -- то с неизвестных адресов сразу отправляются в корзину по причине нечитаемого subject.
Символы в нацыональных кодировках в заголовках кодируются методом, указанным в rfc2047. Например, можно каждое слово, содержащее что-нибудь кроме [0-9a-zA-Z] вместе с следующим пробелом заменяеть на строку =?utf-8?b?этослововbase64?= с пробелом после неё. Что такое base64 и где его берут в perl Вы, я думаю, представляете.

2) Большынство моих почтовых программ проигнорируют заголовок Content-type:, если не будет заголовка MIME-Version: 1.0
Добавьте.

3) Добавьте заголовок Content-transfer-encoding: 8bit 
Систем, которые без этого сломаются, а с этим воспримут -- ужэ очень мало, но во-первых, стандарт требует, а что Вам стоит, к тому жэ небольшой score в спамоловке можно себе скостить.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)