ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) проблемы передачи логина между различными Perl-скриптами
3 сообщений из 3, страница 1 из 1
(Perl) проблемы передачи логина между различными Perl-скриптами
    #33595428
Cyber Craft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cyber Craft
Гость
Добрый день!

У меня есть форум собственной разработки, т. е. весь код писал сам. Есть несколько Perl-скриптов: enter.pl, messagelist.pl, newmessage.pl, newtopic.pl, registr.pl, topiclist.pl, users.pl. При просмотре форумов, которые сделаны профессионалами, мы можем заметить ссылку <Вход> на верхней странице. А при входе в форум, введя логин и пароль, то можно создавать темы, отправлять сообщения и т.д. от зарегистрированных аккаунтов. И на верхней странице уже отображается <Выход [логин_пользователя]>. И если нажимать различные ссылки на этих форумах, т.е. внутри одного форума, нпр, <Новая тема>, <Отправить сообщение>, и т.д., то логин передается между различными Perl-скриптами.

Вопрос: А как делается так, чтобы при нажатии на ссылки, типа <Новая тема>, <Отправить сообщение>, имя пользователя (логин) передавался между различными Perl-скриптами. Я начинающий программист на Perl, и надеюсь, опишите все подробно.
...
Рейтинг: 0 / 0
13.03.2006, 07:36
| Ответить | Цитировать | Написать  
(Perl) проблемы передачи логина между различными Perl-скриптами
    #33595775
Фотография Black
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Black
Участник
Для этого существуют теневые посылки, более известные как куки, либо сессии.

Если будешь использовать сессии, посмотри готовые модули на CPAN

Если куки, то, воспользуйса, например, модулем CGI::Cookie, но лучше писать самому вручную, в приложение к сообщения фаил, в котором описано как это делать.
1. При авторизации проверяем введенный логин и пароль, если они валидны, то шифруешь введенный пароль
Код: plaintext
1.
2.
3.
# ключ кодирования пароля ( можешь использвоать любой )
my $crypt_sym = "d;jald900askdasdas0q93ka;dksada"; 
my $password = crypt( "пароль" , $crypt_sym);
далее генерируешь куки
Код: plaintext
1.
2.
3.
use CGI::Cookie;
my $cook1 = new CGI::Cookie(-name => 'login', -value => "логин_пользователя", -path => '/', -expires=>'+30d');
my $cook2 = new CGI::Cookie(-name => 'password', -value => "$password", -path => '/', -expires=>'+30d');
выставляешь куки, ты должен это сделать до выставление заголовка ответа!
Код: plaintext
1.
2.
print "Set-Cookie: $cook1\n"; 
print "Set-Cookie: $cook2\n";

Этот код положи в начало главного скрипта (разбор куков)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
foreach ( split( /;\s*/, $ENV{'HTTP_COOKIE'} ) ) {
	my($name, $content) = split( /=/ );
	$name = tr/+/ /;
	$name = s/%([a-fA-F0- 9 ][a-fA-F0- 9 ])/pack( "C", hex($ 1 ) )/ge;
	$content = tr/+/ /;
	$content = s/%([a-fA-F0- 9 ][a-fA-F0- 9 ])/pack( "C", hex($ 1 ) )/ge;
			
	$cookie{$name} = $content;
}

Теперь в начале скрипта проверяешь переданые куки с логин и паролем в твоей базе
Код: plaintext
1.
2.
3.
4.
5.
$password = crypt( "пароль" , $crypt_sym);

if ( $cookie{'login'} eq "$login" && $cookie{'password'} eq "$password" ) {
	our $user_login =  1 ; # Пользователь авторизован!
}

p.s. для работы с CGI можешь посмотреть мой модуль Black::CGI

обсуждени модуля Black::CGI, обсуждение модуля
...
Рейтинг: 0 / 0
13.03.2006, 10:53
| Ответить | Цитировать | Написать  
(Perl) проблемы передачи логина между различными Perl-скриптами
    #33595784
Фотография Black
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Black
Участник
...
Рейтинг: 0 / 0
13.03.2006, 10:54
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) проблемы передачи логина между различными Perl-скриптами
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=23&msg=33595775&tid=1476590]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 154ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 224ms
total:  486ms
созд. / загр.: 486ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]