Отпечатай - Perl session

До скоро писах на РНР, но реших да мина на Perl.
Всичко върви добре, но излезе проблема със сесиите.
В PHP всичко беше елементарно, но тук срещнах проблем. Опитах модула CGI::Session , но нещо не мога да схвана как точно става оторизирането на потребителите и запазването на сесията на даден потребител докато е онлайн.И когато няма стратирана сесия да се върне на начаната страница за оторизация.
В PHP си беше елементарно , но тук е по съвсем друг начин.
Ако някой може подробно да даде помощ ще съм много благодарен.
Поздрави
Димо

Здрасти, винаги се радвам, когато някой реши да премине от нещо друго на Perl. То е защото започнах с него и досега (вече четири години и нещо) не успявам да науча друг (сериозен) език.Perl винаги има някакъв модул за дадена задача, която ми се налага да свърша. От обработка на PDF до писане и четене на/от серийни портове...
И така:
За тебе препоръчвам Apache::ASP.
По-принцип този модул работи и в CGI среда, но истински разгръща мощтта си когато отдолу е Apache/mod_perl.
Поддръжката на сесии е само едно от нещатта които ме накараха да се влюбя в този модул. Той е нещо като Applicatiopn Server.
За да започнеш бързо:

http://www.apache-asp.org/

Уроци от автора на Модула:
http://www.apache-asp.org/resources.html
Помагал ми е със съвети много тоя човек...
Запиши се в маилинг листата на модула в Yahoo
Имам два сериозни сайта, базирани на това чудо и съм потресен от скоростта, с която можеш да сглобяваш парчета HTML и Perl
Модулът е точно за такива като тебе. Има всичко за което можеш да се сетиш, че и отгоре.
Други подобни модули са:
Apache::PageKit
AxKit
The bivio OLTP Platform (bOP)
Embperl
Mason
и много други. Да ембедваш перл, по начина, по който мислиш. Просто избираш който ти уидисва най-много.
Mason и Apache::ASP са ми любимите.
Прочети това
http://perl.apache.org/products/app-server.html
и това ако искаш
http://berov.data.bg/Perl/
Мисля, че всичко изброено до тук ще ти даде летящ старт
Успех!!

А...
И за малко да забравя. Въпросът ти беше за сесиите...
Виж как става в Apache::ASP
http://www.apache-asp.org/objects.html
Тази подпрограма се намира във файла global.asa -сърцето на всяко ASP-приложение.
Това е парче от реално работещ в производствени условия
код.

Примерен код

#global.asa
use vars qw|$ROOT $HOME $pages $Site $p $p1 $dbh $sth $error $tree |;
#глобални променливи - навсякъде, във всички страници и
#includes са видими (персистентни са, т.е. живеят между
#различни зявки и пренасят стойността си)
#use utf8;

use DBI;#Бази данни
use Data::Dumper;# За дъмпване на структури
#докато разработваш
#в производствени условия не ти трябва
require "../F8online.pm";
#мой си някакъв модул
$HOME="http://".$ENV{HTTP_HOST}."/";
$ROOT=$ENV{DOCUMENT_ROOT};
#събитие като в Микрософт ASP
sub Script_OnStart{
   $Response->{Charset}="utf-8";
   unless($dbh && eval { $dbh->ping }) {
   $dbh = DBI->connect(
   "DBI:mysql:database=imetonabazata",'user',"password",
   {
   PrintError => 1, # warn( ) on errors
   RaiseError => 0, # don't die on error
   AutoCommit => 1, # commit executes immediately
   }
   )||print$DBI::errstr;

   }
  $p=$Request->Params("p")||"index";
  $p1=$Request->Params("p1")||"index";
#някакви параметри

  $Site=F8online->new();
#мой си някакъв модул
  $Response->{Expires}=-1000;
#Управление на сесията
   if($Request->Params("logout")) {
   $Session->Abandon();
   $Response->Redirect("index.asp?abandon=".$Session->{usr});
       if(defined $dbh && eval { $dbh->ping }) {
          $dbh->disconnect;
          undef $dbh;
        }
   }

$Session->{count}++;

   if(!$Session->{menu}){
      REFRESH_menu();
   }
   #мои си някакви неща

}

УСПЕХ пак

Linux за българи: Форуми

Програмиране => Web development => Темата е започната от: pcdimo в Aug 15, 2004, 16:39