Forum Webscript.Ru

Программирование => Perl => Тема начата: Hob от 23 Сентября 2005, 12:08:35

Название: logout
Отправлено: Hob от 23 Сентября 2005, 12:08:35

Здравствуйте,
подскажите плиз, почему не хочет работать logout:
...
elsif ($action eq "logout"){
 my $query = CGI->new;
 print $query->redirect(
  -Location => "$ENV{\'HTTP_REFERER\'}" ,
  -Cookie => [
   $query->cookie(
    -name => \'id\',
    -value => \' \',
    -expires => \'+1s\'
   ),
   $query->cookie(
    -name    => \'regcode\',
    -value   => \' \',
    -expires => \'+1s\'
   )
  ]
 );
}

Название: logout
Отправлено: Hob от 23 Сентября 2005, 12:57:17

Ntve можно закрыть, моя ошибка.