Вот мой код:
#!/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 Вот пример работы
