Гостевая книга.
Когда юзер добавляет информацию, она пишется в файл, и по идее должна эта инфа писаться в KOI8, но она пишется в win-1251. И поэтому когда эта инфа выводится в браузер то получается плохо. Весь контент в KOI8, а то что читается из файла в win-1251. Так что тексты сообщений гостевой прочитать невозможно. Пробовал писать :
print "Content-type: text/html; windows-1251\\n\\n";
не помогает.
Скрипт примерно такой (проверку ввода запрещенного вырезал):
#!/usr/local/bin/perl
print "Content-type: text/html\\n\\n";
$buffer=$ENV{\'QUERY_STRING\'};
#@pairs = split(/&/, $buffer);
@pairs = split(/\\\\&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$in{$name} = $value;
}
$NAME = "$in{name}";
$EMAIL = $in{email};
$TEXT = "$in{text}";
$DATES = $data;
open(FILE,">>guest.txt");
print FILE $NAME,"|",$EMAIL,"| |",$TEXT,"|",$DATES,"\\n";
close(FILE);
Во всех shtml, в которых потом скрипт вставляет текст из файла прописана строка:
Видимо нужно, чтобы когда информация добавляется, она писалась в файл в KOI8. Как это сделать?
