LINUX.ORG.RU
Форум — Development  

[perl] Cookies

 


0

1

Всех приветствую. Решил написать для себя небольшую галерею. Т.к есть фотографии которые я не очень хочу показывать всем и каждому было решено сделать авторизацию. Проблема подкралась незаметно. Написал я страницу входа и показ фотографий.

Код страницы входа: http://dpaste.com/258389/

Код показа фото: http://dpaste.com/258386/

При вводе логина и пароля главная страница переадресует обратно на форму логина. Если закомментировать несколько строк так , то все работает, но проверка на соответствие кукисов естественно не работает. Как побороть?

★

Последнее исправление: ClanMax (всего исправлений: 1)

Так код уже никто не пишет.
Все очень старо и инструменты тоже
1.Юзай CGI::Simple или CGI::Minimal (все есть на search.cpan.org)
2.Намного лучше использовать фреймворки типа Catalyst или Mojo(там есть шаблонизаторы + ORM + все грязная работа уже сделана)
3.Вопросы по перлу лучше также задавать в группах pm(perl mongers)
(пример moscow.pm.org )

pinachet ★★★★★
()
Ответ на: комментарий от ClanMax

>предлагаешь использовать фреймворк для 2 страниц? я смотрю ты очень суровый анонимус

Есть микро-фреймворки(если их так можно назвать ) - пример тот же dancer !

pinachet ★★★★★
() 
$cookiesdb = $db->prepare("SELECT name FROM `users` WHERE `session` = '.$cookie{'session'}.'");
$cookiesdb->execute(); 
$cookiesdb->fetchrow_array;
if ($cookiesdb eq $cookies{'login'}) { ... }

facepalm.cgi

my ($user) = $db->selectrow_array("SELECT name FROM `users` WHERE `session` = ?", undef, $cookies{session});
if (defined $user and $user eq $cookies{'login'}) { ... }

примерно так.

зы: не забудь добавить 

use strict;
use warnings 'all';
узнаешь о себе много нового ;)

arsi ★★★★★
()

Всем спасибо. Попробую осилить Mojolicious. Только пока не понял, мне обязательно нужно будет использовать его демон или же можно по старинки все через mod_perl?

ClanMax ★
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Development