1. Задавайте здесь вопросы о коде, которые не подходят в другие разделы, такие как:
    Дизайн > Верстка
    PHP > Как сделать на PHP
    Скрыть объявление

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

Тема в разделе "Web Coding", создана пользователем garizlo, 1 авг 2007.

Статус темы:
Закрыта.
Модераторы: latteo
  1. garizlo

    garizlo Постоялец

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

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

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

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

    pk2002

    Регистр.:
    14 ноя 2006
    Сообщения:
    382
    Симпатии:
    350
    perldoc CGI
    метод cookie
     
  3. garizlo

    garizlo Постоялец

    Регистр.:
    16 сен 2006
    Сообщения:
    104
    Симпатии:
    23
    Понятно, что perl doc, только для того, чтобы в доке разобраться, надо хотябы азы perlo вы знать, чего я не знаю... :(

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

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

    nnmkayf

    Регистр.:
    25 июл 2007
    Сообщения:
    153
    Симпатии:
    98
    Если еще не разобрался вот пример:
    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";
     
Статус темы:
Закрыта.