Не хочет. ;-(((
Народ! Помогите, please! Заставьте работать этот кусок. Буду до смерти
благодарен!
use CGI qw(:standard :nph);
$q=param('query');
if($q)
{
# здесь будет редирект в нечто...
print redirect(-uri=>"http://www.liga.kiev.ua",-nph=>1);
}
else
{
print
header,start_html(self_url);
print
startform,
textfield('query'),
submit("Search!"),
endform;
print
end_html;
}
On Thu, 29 Oct 1998, Artur Penttinen wrote:
> >>>>> "YK" == Yuri Kuzmenko <yuri@cs.liga.kiev.ua> writes:
>
> >> А скрипт делающий redirect вроде должен быть
> >> "no-parsed-header"?
> YK> Вроде да. Но print header ведь отсутствует. И также в любом
> YK> случае есть параметр ($query).
>
> print $query->redirect(-uri => $url, -nph => 1); ?
>
> WBW, ARtur
>
> --
> Не зачитайся этим одностишьем!
> -- Владимир Вишневский
> =============================================================================
> = Apache-Talk@lists.lexa.ru mailing list =
> Mail "unsubscribe apache-talk" to majordomo@lists.lexa.ru if you want to quit.
> = Archive avaliable at http://www.lexa.ru/apache-talk =
>
// Yuri Kuzmenko
// IAC "Liga", system administrator (http://www.liga.kiev.ua).
=============================================================================
= Apache-Talk@lists.lexa.ru mailing list =
Mail "unsubscribe apache-talk" to majordomo@lists.lexa.ru if you want to quit.
= Archive avaliable at http://www.lexa.ru/apache-talk =