Сообщения

1

Perl / Помогите с настройкой КОдировки

« : 14 Апреля 2005, 20:00:31 »

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

2

Perl / Помогите с настройкой КОдировки

« : 14 Апреля 2005, 14:34:32 »

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

3

Perl / Помогите с настройкой КОдировки

« : 14 Апреля 2005, 14:08:07 »

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

4

Perl / Помогите с настройкой КОдировки

« : 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

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