perl - ajax

[maurimono]

Amigos estoy en problemas serios. debo hacer una mantencion a un sistema echo en perl con ajax. esta buenisimo eso si. ademas me da la idea de que todo lo maneja desde la BBDD (TransaqSql), necesito un manual para entender como se maneja esto.
La carpeta con el sitio tiene un archivo .INI donde maneja la conexion. Mi principal problema ahora es que no encuentro como carga los datos de entrada. Mira este es el codigo:

Código HTML:

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

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

$strTpl = '\access.html';
$strPerfil = '';

$userName = $datos->{session}->{nombres}." ".$datos->{session}->{apaterno}."<br>".$strPerfil;

$templ = new HTMLTMPL;
$templ->src($ini->get(['ARCHIVO', 'TPL']).$strTpl);
my $results=$datos->seleccion_acceso_usuario($IdUsuario);

$colorFila = '';
#Administrador
if ($login eq $ini->get(['SUPERUSUARIO', 'SUPERUSUARIO']))
{
	$colorFila = ($colorFila eq "CeldaDisplayLeft")?"CeldaDisplayLeft_2":"CeldaDisplayLeft";
	$templ->colorFila($colorFila, 'x_acceso');
	$templ->nivel('SuperUsuario', 'x_acceso');
	$templ->perfil('SuperUsuario', 'x_acceso');
	$templ->href_acceso(a({-href=>'#', -onclick=>'FxAcceso(-1, 0)'},img{-src=>'../../sie_images/editar.gif', -border=>0, -title=>'Acceder al nivel'}), 'x_acceso');  
}

foreach my $row (@$results)
{
  $colorFila = ($colorFila eq "CeldaDisplayLeft")?"CeldaDisplayLeft_2":"CeldaDisplayLeft";
  $templ->colorFila($colorFila, 'x_acceso');
  $templ->nivel($row->{nombre_nivel}, 'x_acceso');
  $templ->perfil($row->{nombre_perfil}, 'x_acceso');
  $templ->href_acceso(a({-href=>'#', -onclick=>'FxAcceso('.$row->{id_nivel}.', '.$row->{id_perfil}.')'},img{-src=>'../../sie_images/editar.gif', -border=>0, -title=>'Acceder al nivel'}), 'x_acceso');  
}

$templ->output('Content-Type: text/html');

Por lo que veo la funcion "seleccion_acceso_usuario" es la que va a la BBDD pero no encuentro el archivo con la definicion de esta.....


Gracias.

[jferrero]

Pues entonces está en uno de estos dos:
SIE::GeneralCgi;
HTMLTMPL;

O sea, en los ficheros HTMLTMPL.pm o SIE/GeneralCgi.pm.

Usa fgrep -r para hacer una búsqueda recursiva.

[maurimono]

Exactamente amigo, resulta que encontre, en la ruta

\Perl\lib\sie un archivo con todas las funciones que no aparecen en la carpeta del sitio.
Muy buena respuesta.
Muchisimas Gracias.