Авторизацию и аутентификация на Perl

[ProFTP]

нужна полноценная!! такая как на этом форуме

где взять , как сделать?

если самому писать то я не понял маленько, как разорвать сессию когда браузер закрылся, как смотреть сколько народа было за некоторое время, и т.д.

скажите как это сделать без геморой, может надо посомтреть на чей то код, например cms, forum но там черт голову сломит

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[hizel]

сессии - http://search.cpan.org/~markstos/CGI-Se ... Session.pm
с примерами на англицком
сессии заканчиваются по таймауту

вы кстати в курсе что:

Authentication — процесс, позволяющий идентифицировать (узнать) субъекта по его данным, например, по логину и паролю.
Authorization — процесс, определяющий полномочия идентифицированного субъекта на доступ к определенным обьектам или сервисам.
Accounting — процесс, позволяющий вести учет доступа к услугам.

[ProFTP]

если я буду писать самому, но это будет тупая и тормознутая Авторизация и аутентификация, потому что некотое не совсем понял.

чтобы вывести за 10 минут, нужно запрос поставить и вывести с столбца количество человек, типо? сессии сами закончаться?

а есть примеры, кроме меня никто не делал наверное?

[hizel]

чтобы вывести за 10 минут, нужно запрос поставить и вывести с столбца количество человек, типо?

это уже на аккаунтинг больше похоже
непонятно что тебе конкретно надо
хватит в терминалогии путатся, почитай матчасть
подумаю над тем, что тебе нужно
почирикай карандашиком на бумажке
може просветление и придет

[ProFTP]

1. Правильно, если логин есть, то посмотреть есть ли сессия, если нету, то прявязать сессию на 2 часа допустим
2. Как посмотерть сколько айпишников было за 15 мин?


ЗЫ: понял сам, что надо сессии с айпи записывать в БД, и сранивать если это гость, но я не знаю как правильно вообще... наверное так и есть...

тут не дописаная документация
http://search.cpan.org/~markstos/CGI-Se ... r/mysql.pm

[ProFTP]

а зачем нужна сессия, елси нету авторизации?

[ProFTP]

нужен "аккаунтинг"...

[ProFTP]

1. Прочитал вот сдесь, делаю по этому модулю с MySQL (может и не надо было - лучше самому написать эту сессию?)
http://search.cpan.org/~markstos/CGI-Session-4.20/

а как посмотреть привязана ли сессии к конкретному юзеру (и по его айпи, если Cookies кто-то украдет ) зарегистрированому в таблице?

Код: Выделить всё

 CREATE TABLE sessions (
	 id CHAR(32) NOT NULL PRIMARY KEY,
	 a_session TEXT NOT NULL
  );

Код: Выделить всё

CREATE TABLE users (
		id	INT(11)	  NOT NULL AUTO_INCREMENT,
		name  VARCHAR(25) NOT NULL,
		pass  VARCHAR(25) NOT NULL,
		info  VARCHAR(500) NOT NULL,
PRIMARY KEY (id)

2. как Cookies послать браузера (если это будет на прмиер прокси-серсер) чтобы Cookies выключились когда браузер закроется (чтобы вечно не остались там)? не могу найти про это

[hizel]

1. подрихтовать скрипт под себя
2. сессии заканчиваются по таймауту или никогда, например чел залогинился, создалась сессия предположим на 1 час, час прошел и если чел больше не заходил сессияя отмирает

[ProFTP]

спасибо, просто делаеться!

столкнулся с проблемой что не передаються куки, и я не знаю передались ли они вообще...

http://search.cpan.org/~lds/CGI.pm-3.34/CGI/Cookie.pm

Код: Выделить всё

use CGI::Cookie;
use warnings;
use Storable;
use vars '$dbh', '%user_vars';

$cookie1 = new CGI::Cookie(-session => '$session',
-name => 'SOMENAME',
-domain => '.someserver.com',
-expires => '+3M',
);

	print header(-cookie=>$cookie1);

 print "Content-type: text/html\n\n"

менял все - не получаеться

Код: Выделить всё

Undefined subroutine &main::header called at ....es.pl line 188.

когда хочу получить то не определено

Код: Выделить всё

my %cookies = fetch CGI::Cookie;
# Если есть ключ сессии
if ($cookies{'session'}) {

[ProFTP]

UPD: передал вот так:

Код: Выделить всё

print "Content-type: text/html\n\n";

print << "[INFO]";

  <META HTTP-EQUIV="Set-Cookie" CONTENT="session=$session;
		 DOMAIN=.$host; PATH=/; SECURE"> 



[INFO]

CGI::Cookie не захотел передавать CGI.pm-3.33,1

[hizel]

ээ header, это из CGI
может всетаки вначале вставить еще и

Код: Выделить всё

use CGI qw/:standard/;

и это

Код: Выделить всё

 print "Content-type: text/html\n\n"

нинадо
так как оно вствляется в header