Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Проверка Cookie на perl  (Прочитано 7961 раз)
0 Пользователей и 1 Гость смотрят эту тему.
garizlo
Гость
« : 01-08-2007 15:09 » 

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

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

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

Заранее спасибо.
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 02-08-2007 06:03 » new

garizlo, почитай спецификацию CGI. Используется переменная окружения HTTP_COOKIE.
Также можно использовать модуль CGI в Perl.

Как вывести разные версии меню по условию? Оператор if-else должен помочь...
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines