В поисках ошибок

[Aib]

Народ, плиз, взгляните свежи взором, чего Я тут наврал. Скрипт должен передать флэшке несколько переменных, а вместо этого открывает новую страницу и в ней текст выводит

---------------------------------------------

#!usr/local/bin/perl -w

use CGI;

CGI::ReadParse(*in);
$name = $in('name');
$role = $in('role');
$data = $in('data');

.................

# Обработка переменных, там ошибки явно нет.

.................

print header('text/html'),
name=$name&role=$role&data=$data;
exit 0

[kompadre]

Может print header(); ?

[Fouly]

Во-первых скрипт не может открывать новую страницу.
Во-вторых флэшу нужно отдавать text/plain (хотя и image/jpeg тоже работает
В третих после заголовка должны идти два переноса строки\n\n
В четвертых, что такое header('...'),string ?
почему текст (string) идущий за вызовом функции не взят в кавычки ?
..
В девятых написал бы нормальный скрипт, посмотрел бы - работает или нет, а потом стал бы писать свои ф-ции типа header() и т.д.

Если у тебя во флэше все правильно сделано, это сработает:

print header('text/plain'),
"name=$name&role=$role&data=$data";

sub header {
my $type = shift;
return "Content-type:$type\n\n";
}

[Fouly]

А вообще есть подозрение, что вместо:
loadVariables ();
ты написал:
getURL ("...", "_blank");

а ?

[Aib]

На утро допёрло!
Кавычки Я просто поставить в тексте забыл (я его вручную заносил, а не через буфер).
а про hearder('..') - это же стандартная вещь из модуля CGI.

[Aib]

Ну да, и Content-type: text/plain \n\n

[shagren]

А писать надо так: header(-content=>'text/html');

[Aib]

2shagren:
Совершенно необязательно, можно и как в моём исходнике (ну, по крайней мере, работает).