session

[maurimono]

Hola.

Estoy tratando de levantar un sistema echo 100% en perl. aparentemente no propaga la secion como corresponde y me envia a la pagina de inicio. este es mas menos el codigo:
pagina de inicio, le paso por url el valor de identificacion (esto ya que esta enganchado a otro sistema de logeo por webservices)

Código:

my $re = $data->logeo($id, $sesion);
  $nombres= @$results[0]->{nombres};
  $apaterno=@$results[0]->{apaterno};
  $login=@$results[0]->{login};

  $session->param('nombres', $nombres);
  $session->param('apaterno', $apaterno);
  $session->param('login', $login);

  $cookie_session = cookie(-name=>'CGISESSID',-value=>$session->id());
  print header(-cookie=>$cookie_session);
  print "<meta http-equiv='refresh' content='0;URL=main.cgi'>";

en main.cgi

Código:

use CGI::Session;
use CGI qw/:standard/;
use SIE::GeneralCgi;
use HTMLTMPL;

$nombre = $datos->{session}->{nombre};
$apaterno = $datos->{session}->{apaterno};
$login = $datos->{session}->{login};

#al hacer print
print $nombre;
#el dato viene vacio

Al hacer print sobre las variables, estas vienen vacias.... uf.... ya no se me ocurre que puede ser.

[jferrero]

Aquí hay muchas variables distintas, y es difícil seguir la traza del programa. ¿Tienes 'strict' activado?

Recuerda usar Data::Dumper para ver el contenido de las variables, si tienes dudas de qué es lo que contienen.

[maurimono]

Gracias por tu respuesta. Parece que me extendi mas de la cuenta. En resumen, tengo un script donde se supone se crean variables de sesion. pero al pasar ala pagina siguiente, se pierden.

Aqu va mas ordenado:
index.cgi

Código:

use CGI::Session;
use CGI qw/:standard/;
use SIE::GeneralCgi;

#aqui le paso dos datos en duro, ya que es de prueba
my $cookie = 5568254;
my $sesion = 2556565;

  my $result = $data->acceso($cookie, $sesion);
  $id_usuario = @$result[0]->{id};
  $nombres    = @$result[0]->{nombres};
  $apaterno   = @$result[0]->{apaterno};

  $session->param('id_usuario', $id_usuario);
  $session->param('nombres', $nombres);
  $session->param('apaterno', $apaterno);
  $session->param('login', $login);

#aqui empieza mi confucion!!
$cookie_session = cookie(-name=>'CGISESSID',-value=>$session->id());
print header(-cookie=>$cookie_session);
print "<meta http-equiv='refresh' content='0;URL=main_frame_access.cgi'>";

Código:

use CGI::Session;
use CGI qw/:standard/;
use SIE::GeneralCgi;
use HTMLTMPL;


$IdUsuario = $datos->{session}->{id_usuario};
$IdPerfil = $datos->{session}->{id_perfil};
$login = $datos->{session}->{login};

print $IdUsuario;
exit;

$strUrlToolBar = 'main_access.cgi';
$strUrlMain = 'access.cgi';

$templ = new HTMLTMPL;
$templ->src($ini->get(['ARCHIVO', 'TPL']).'\main_frame.html');
$templ->url_toolbar("$strUrlToolBar");
$templ->url_main("$strUrlMain");
$templ->output('Content-Type: text/html');

el print $IdUsuario;exit; no entrega nada, es decir, nunca propago la secion....

[jferrero]

Pero... en el segundo código, ¿de dónde sale $datos?