Краткое описание CGI::Application::Plugin::Redirect
CGI::Application::Plugin::Redirect – это простой способ сделать перенаправление.
Чтобы выполнить redirect используется метод redirect($url, $status).
$url – это адрес, куда должно произойти перенаправление.
$status – необязательный параметр, указание которого приведет к выводу страницы с сообщением для пользователя и ссылкой, при переходе по которой и будет осуществлен redirect.
Пример использования CGI::Application::Plugin::Redirect
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
package App2; use strict; use base 'CGI::Application'; use CGI::Application::Plugin::Redirect; ... sub on_start { my $self = shift; ... unless ($login) { $self->header_add(-type => 'text/html'); return $self->redirect('http://dev-lab.info/auth/', '403 Forbidden'); } elsif ($login eq "Nadya") { return $self->redirect('http://dev-lab.info/secret_block/'); } else { ... } ... } |