2009-11-24 4 views
2

У меня есть скрипт CGI Perl, который создает экран входа в систему, то есть имя пользователя и пароль.Как я могу вызвать еще один скрипт CGI Perl в CGI-скрипте?

После успешного входа я хочу, чтобы пользователь был перенаправлен на следующее действие в приложении (другое скрипт CGI Perl).

Какова команда перенаправления одного сценария CGI или на HTML-страницу?

ответ

4

Пример использования CGI как David Dorward упоминается.

use CGI; 

if (redirect_needed) { 
    # If redirect is desired, don't print headers... 
    print CGI->redirect("http://some.other.url/"); 
    exit; 
} 

# If no redirect is desired... 
print CGI->header(); 
# etc... 
+0

Но если вы вызываете что-либо вроде CGI-> header() перед перенаправлением, метод перенаправления не работает. – gath

+0

@gath: Правильно. Такие действия, как отправка перенаправлений, настройка куки-файлов и установка типа содержимого вашего вывода, - все действия, которые должны выполняться в заголовках HTTP, которые, в свою очередь, должны быть первым выходом из вашего сценария в STDOUT. –