Архив форумов ЦИТФорума

[Ekaterina]

есть форма (метод post).
клиент ее заполняет и отправляет.
по отправлении у него выскакивает почтовый сервер.
НАДО: чтобы почтовый сервер не выскакивал, а все действия происходили на сервере (и чтобы нормальная расшифровка этого сообщения была, а не в символах букв).

решение на перле..? как? где?

[gadyuka]

Можно и на перле

могу кинуть пример, если надо (он довольно объемистый ) - но все равно его придется допрограммировать самостоятельно

[Dae]

Решение до противного просто: есть функция, которая этим занимается:

## &parse_form_data (*name); // %name - associative array;

sub parse_form_data
{
local (*FORM_DATA) = @_;

local ( $request_method, $query_string, @key_value_pairs,
$key_value, $key, $value);

$request_method = $ENV{'REQUEST_METHOD'};

if ($request_method eq "GET") {
$query_string = $ENV{'QUERY_STRING'};
} elsif ($request_method eq "POST") {
read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
} else {
&return_error (500, "Server Error",
"Server uses unsupported method");
}

@key_value_pairs = split (/&/, $query_string);

foreach $key_value (@key_value_pairs) {
($key, $value) = split (/=/, $key_value);
$value =~ tr/+/ /;
$value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;

if (defined($FORM_DATA{$key})) {
$FORM_DATA{$key} = join ("\0", $FORM_DATA{$key}, $value);
} else {
$FORM_DATA{$key} = $value;
}
}
}