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

Статус
В этой теме нельзя размещать новые ответы.

garizlo

Постоялец
Регистрация
16 Сен 2006
Сообщения
104
Реакции
26
Добрый день, подскажите если кто знает как это сделать, а сделать надо следующее:

Есть сай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";

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

Заранее спасибо.
 
perldoc CGI
метод cookie
 
perldoc CGI
метод cookie

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

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

Подскажите на пальшах, как это сделать? :thenks: плиз..
 
Если еще не разобрался вот пример:
PHP:
# подключаем необходимые библиотеки
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";
 
Статус
В этой теме нельзя размещать новые ответы.
Назад
Сверху