[Rio-pm] Como recuperar dados de uma sessão que já foi iniciada
Cleysinho
cleysinhonv em gmail.com
Sexta Março 30 19:12:46 PDT 2012
Olá Randal,
Bom tentei fazer dessa forma e com esse método ate funciona ele consegue
recuperar os dados da sessão, mas não por muito tempo.
Na verdade eu preciso inicialmente em cada arquivo preciso verificar se a
sessão está vazia(is_empty) ou se ela não está expirada (is_expired), porém
todas as veses ele está retornando como sessão vazia.
Em cada arquivo que monta uma página eu preciso fazer o seguinte:
if($session->is_expired)
{
$page->redirect(url=>gsm.pl)
}
elsif($session->is_empty)
{
$page->redirect(url=>gsm.pl)
}
else
{
Pegar os dados na sessão:
push (@dados,$session->param('iduser'));
push (@dados,$session->param('name'));
push (@dados,$session->param('email'));
push (@dados,$session->param('level'));
}
print $layout->menu();
Obs.: Como pegar dados em uma sessão que está vazia?
Em 30 de março de 2012 14:37, Randal L. Schwartz
<merlyn em stonehenge.com>escreveu:
> >>>>> "Cleysinho" == Cleysinho <cleysinhonv em gmail.com> writes:
>
> Cleysinho> if($session->param('iduser') ne '' &&
> $session->param('name'))
> Cleysinho> {
> Cleysinho> @dados=();
> Cleysinho> push (@dados,$session->param('iduser'));
> Cleysinho> push (@dados,$session->param('name'));
> Cleysinho> push (@dados,$session->param('email'));
> Cleysinho> push (@dados,$session->param('level'));
> Cleysinho> push (@dados,'Ok');
> Cleysinho> return @dados;
>
> return map($session->param($_), qw(iduser name email
> level)), 'Ok';
>
> Cleysinho> }
> Cleysinho> else
> Cleysinho> {
> Cleysinho> @dados=();
> Cleysinho> push (@dados,'False');
> Cleysinho> return @dados;
>
> return 'False';
>
> Cleysinho> }
> Cleysinho> }
>
>
> --
> Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777
> 0095
> <merlyn em stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
> Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
> See http://methodsandmessages.posterous.com/ for Smalltalk discussion
>
--
**
.: Inteligência Coletiva :.
Uma inteligência distribuída por toda parte: tal é o nosso axioma inicial.
Ninguém sabe tudo, todos sabem alguma coisa, todo o saber está na
humanidade’. (Pierre Lévy)
www.bioinfopop.ufv.br
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120330/5d335509/attachment.html>
Mais detalhes sobre a lista de discussão Rio-pm