А как можно сделать редирект на другую страницу из cgi скрипта на Perl, если заголовок уже напечатан.
То есть проблема: есть долговыполняющееся действие. Я хочу, чтобы пользователь видел на странице фразу типа "Подождите окончания действия" а после завершения этого действия было автоматическое перенаправление на другую страницу.
>А как можно сделать редирект на другую страницу из cgi скрипта
>на Perl, если заголовок уже напечатан.
>То есть проблема: есть долговыполняющееся действие. Я хочу, чтобы пользователь видел на
>странице фразу типа "Подождите окончания действия" а после завершения этого действия
>было автоматическое перенаправление на другую страницу.
if(!param()) {
print"Content-type: text/html\n\n";
...
} else {
print "Location: url\n\n";
}.
По url размести скрипт с тегом <meta> и обновлением через определенное время.
>if(!param()) {
>print"Content-type: text/html\n\n";
>...
>} else {
>print "Location: url\n\n";
>}.
>По url размести скрипт с тегом <meta> и обновлением через определенное время.
Что то торможу... и как это будет делать то, что мне нужно?Смотри: есть у меня примерно такой скрипт.
#/usr/bin/perl
print <<ENDHTML;
Content-Type: text/html<html>
<head></head>
<body>
<b>Ждите окончания работы!!!<b>ENDHTML
do_something_a_long_time();
после того, как процедура завершилась, перенаправить браузер на главную страницу приложения.
Ну это можно javascript-ом сделать ...
проще, мне кажется
А как??? Это на какое-то событие вешать javascript надо? Или как?
>Ну это можно javascript-ом сделать ...
>проще, мне кажется
>А как??? Это на какое-то событие вешать javascript надо? Или как?
>>Ну это можно javascript-ом сделать ...
>>проще, мне кажетсяВот это в <head>:
<script language="JavaScript">
window.location="http://www.host.com/";
</script>