Проверка Cookie на perl

[garizlo]

Добрый день, подскажите если кто знает как это сделать, а сделать надо следующее:

Есть сайn скажем domen.ru на php? на котором есть авторизация, после авторизации остаются КУКи.

И есть отдельная страничка:

domen.ru/test.pl

в коде этой странички есть такой код, это меню:

sub top
{
my %params = @_;
my $m = $params{m};

print "<ul>\n";
print "<li><a href='http://www.domen.ru'>Главная</a></li>\n";
print "<li><a href='http://www.domen.ru/enter.php'>Вход</a></li>\n";
print "<li><a href='http://www.domen.ru/exit.php'>выход</a></li>\n";
print "<li><a href='http://www.domen.ru/reg.php''>Регистрация</a></li>\n";
print "<li><a href='http://www.domen.ru/submit/'>Добавить статью</a></li>\n";
print "<li><a href='http://www.domen.ru/latest/'>Последние статьи</a></li>\n";
print "<li><a href='http://www.domen.ru/latest/'>Поиск</a></li>\n";
print "<li><a href='http://www.domen.ru/latest/'>Контакты</a></li>\n";
print "<li><a href='http://www.domen.ru/latest/'>Admin</a></li>\n";
print "</ul>\n";

}

так вот, необходима проверить куки авторизации на domen.ru
Если куки есть, то отображать в меню эти строки:
print "<li><a href='http://www.domen.ru/latest/'>Admin</a></li>\n";
print "<li><a href='http://www.domen.ru/exit.php'>выход</a></li>\n";
а эту прятать:
print "<li><a href='http://www.domen.ru/enter.php'>Вход</a></li>\n";
Если же куков нет, то прятать вот эти строки:
print "<li><a href='http://www.domen.ru/latest/'>Admin</a></li>\n";
print "<li><a href='http://www.domen.ru/exit.php'>выход</a></li>\n";
а эту показывать:
print "<li><a href='http://www.domen.ru/enter.php'>Вход</a></li>\n";

Подскажите люди добрые....

)

Заранее спасибо.

 

[pk2002]

perldoc CGI
метод cookie

 

[garizlo]

perldoc CGI
метод cookie

Понятно, что perl doc, только для того, чтобы в доке разобраться, надо хотябы азы perlo вы знать, чего я не знаю...

Если бы знал, тут не писал бы.

Подскажите на пальшах, как это сделать? плиз..

 

[nnmkayf]

Если еще не разобрался вот пример:

# подключаем необходимые библиотеки
use CGI qw/:standard/;
use CGI::Cookie;
# получаем куки как хеш
%cookies = fetch CGI::Cookie;
# соответственно доступ к  печенюшке  установленной как User будет $cookies{User}->value
print "<ul>\n";
print "<li><a href='http://www.domen.ru'>Главная</a></li>\n";
# проверяем просто наличие куки поэтому не используем метод value
if ( $cookies{'User'} )
{
print "<li><a href='http://www.domen.ru/exit.php'>выход</a></li>\n";
print "<li><a href='http://www.domen.ru/latest/'>Admin</a></li>\n";
} else {
print "<li><a href='http://www.domen.ru/enter.php'>Вход</a></li>\n";
}
print "<li><a href='http://www.domen.ru/reg.php''>Регистрация</a></li>\n";
print "<li><a href='http://www.domen.ru/submit/'>Добавить статью</a></li>\n";
print "<li><a href='http://www.domen.ru/latest/'>Последние статьи</a></li>\n";
print "<li><a href='http://www.domen.ru/latest/'>Поиск</a></li>\n";
print "<li><a href='http://www.domen.ru/latest/'>Контакты</a></li>\n";
print "</ul>\n";