Olá <span class="gD">Randal,<br><br>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.<br><br>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</span><span class="gD">), porém todas as veses ele está retornando como sessão vazia.<br>
<br>Em cada arquivo que monta uma página eu preciso fazer o seguinte:<br>    if($session->is_expired)<br>    {<br>          $page->redirect(url=><a href="http://gsm.pl">gsm.pl</a>)<br>    }<br>    elsif($session->is_empty)<br>
    {<br>          </span><span class="gD">$page->redirect(url=><a href="http://gsm.pl">gsm.pl</a>)</span><span class="gD"><br>    }<br>    else<br>    {<br><br>         Pegar os dados na sessão:<br>        push (@dados,$session->param('iduser'));<br>
        push (@dados,$session->param('name'));<br>        push (@dados,$session->param('email'));<br>        push (@dados,$session->param('level'));<br>    }<br>    print $layout->menu();<br>
<br>Obs.: Como pegar dados em uma sessão que está vazia?<br><br></span><br><div class="gmail_quote">Em 30 de março de 2012 14:37, Randal L. Schwartz <span dir="ltr"><<a href="mailto:merlyn@stonehenge.com" target="_blank">merlyn@stonehenge.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
>>>>> "Cleysinho" == Cleysinho  <<a href="mailto:cleysinhonv@gmail.com" target="_blank">cleysinhonv@gmail.com</a>> writes:<br>
<br>
Cleysinho>     if($session->param('iduser') ne '' && $session->param('name'))<br>
Cleysinho>     {<br>
Cleysinho>         @dados=();<br>
Cleysinho>         push (@dados,$session->param('iduser'));<br>
Cleysinho>         push (@dados,$session->param('name'));<br>
Cleysinho>         push (@dados,$session->param('email'));<br>
Cleysinho>         push (@dados,$session->param('level'));<br>
Cleysinho>         push (@dados,'Ok');<br>
Cleysinho>         return @dados;<br>
<br>
                   return map($session->param($_), qw(iduser name email<br>
                   level)), 'Ok';<br>
<br>
Cleysinho>     }<br>
Cleysinho>     else<br>
Cleysinho>     {<br>
Cleysinho>         @dados=();<br>
Cleysinho>         push (@dados,'False');<br>
Cleysinho>         return @dados;<br>
<br>
                   return 'False';<br>
<br>
Cleysinho>     }<br>
Cleysinho> }<br>
<span><font color="#888888"><br>
<br>
--<br>
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - <a href="tel:%2B1%20503%20777%200095" value="+15037770095" target="_blank">+1 503 777 0095</a><br>
<<a href="mailto:merlyn@stonehenge.com" target="_blank">merlyn@stonehenge.com</a>> <URL:<a href="http://www.stonehenge.com/merlyn/" target="_blank">http://www.stonehenge.com/merlyn/</a>><br>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.<br>
See <a href="http://methodsandmessages.posterous.com/" target="_blank">http://methodsandmessages.posterous.com/</a> for Smalltalk discussion<br>
</font></span></blockquote></div><br><br clear="all"><br>-- <br><div style="font-family:'Lucida Grande',Geneva,Verdana,Arial,Helvetica,sans-serif;line-height:21px"><span style="font-family:arial;line-height:normal"><span style="font-family:sans-serif;line-height:19px"><b></b></span></span></div>

<div style="font-family:tahoma,sans-serif;line-height:21px"><div>
<span style="font-size:13px;line-height:21px"><div><span style="font-size:13px;line-height:21px">.: Inteligência Coletiva :.</span></div>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’. (</span><span style="font-size:13px;line-height:21px">Pierre Lévy)</span>
</div></div><div><a href="http://www.bioinfopop.ufv.br" target="_blank">www.bioinfopop.ufv.br</a><br><span style="font-family:tahoma,sans-serif"></span></div><div style="display:inline"></div><br>