Forum Webscript.Ru

Программирование => Perl => Тема начата: pin4ers от 14 Апреля 2005, 03:06:13

Название: Помогите с настройкой КОдировки
Отправлено: pin4ers от 14 Апреля 2005, 03:06:13

Вот мой код:

#!/usr/bin/perl
use CGI;
use strict;
use General;
my $query    = new CGI;

my $sendmail = "/usr/sbin/sendmail -t";
my $reply_to = "Reply-to: sale\\@bidon.ru\\nReturn-Path: sale\\@bidon.ru\\n";

my $content  = "\\n\\n";
my $to       = $query->param(\'email\');


my %q_keys= query_str();
my @keys = $query->param();
my $str_data;


for (keys %q_keys){
   $str_data .= "$_ : $q_keys{$_}\\n
";
}

$content = "\\n\\n".$str_data . localtime(time)."\\n";



    my $subject  = "Subject: $q_keys{mess}\\n";

 #   open (FILE, "$file") or die "Cannot open $file: $!";
 #   print $to,"\\n";
 #   close(FILE);

    my $send_to  = "To: $to\\n";

    open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
    print SENDMAIL $reply_to;
    print SENDMAIL $subject;
    print SENDMAIL $send_to;
    print SENDMAIL \'Content-Type: text/html; charset="windows-1251"\\n\';

    print SENDMAIL $content;
    close(SENDMAIL);

    my $query = new CGI;
    print $query->header;
    print load_file_hinted("thanks.htm",\\%q_keys);

Проблема в том что когда все оформляется и выводится текст на странице происходит сбой в кодировке :( ВЫбирается ISO видно по дефолту. Но замечу что в мета тагах кодировка стоит нужная.
 Кто может знает какую строчку дописать в этом кусочке
    my $query = new CGI;
    print $query->header;
    print load_file_hinted("thanks.htm",\\%q_keys);
что бы кодировка была WIN любая.
(Форма) http://bidon.ru/formv60i.htm

Вот пример работы

Название: Помогите с настройкой КОдировки
Отправлено: ondr от 14 Апреля 2005, 13:23:05

кодировка, указанная в заголовке ответа, возможно, имеет больший приоритет, чем кодировка, указанная в метатегах.

# замени
print $query->header;
# на
print $query->header( -type => \'text/html; charset=windows-1251\' );

Название: Помогите с настройкой КОдировки
Отправлено: pin4ers от 14 Апреля 2005, 14:08:07

СУПЕР работает!!!! Огромное спасибо!!!!

Название: Помогите с настройкой КОдировки
Отправлено: pin4ers от 14 Апреля 2005, 14:34:32

Вопрос по тойже теме, у меня на буржуйском хостинге работает этот скрипт а на хостинге нашем на AGAVA.ru он в лог пишет ошибку "Premature end of script headers: /home/fpolisr6/public_html/bb/mobileform/zakaz.pl" Кто знает что это значит? И как заставть его работать? и я еще заметил что этот перл только из корневой папки хочет работать :(

Название: Помогите с настройкой КОдировки
Отправлено: ondr от 14 Апреля 2005, 14:44:39

Прочитай от и до
http://forums.webscript.ru/showthread.php?s=&threadid=9932&msgnum=0

Название: Помогите с настройкой КОдировки
Отправлено: pin4ers от 14 Апреля 2005, 20:00:31

ondr
 Подскажи у меня есть файлик .mailform.pl.swp как его окрыть что бы код глянуть без потерь? в блокноте и других прогах просмотра не хчет :( А мне бы там нужно отредактировать много :(