Foro - Perl en Español

por **hecoo** » 2011-07-14 09:50 @451

Hola,

Estoy usando la biblioteca CGI::Session para autentificar usuarios usando un controlador de MySQL.

El problema que tengo es que cada vez que se autentifica alguien, veo en MySQL, que se realiza una conexión, pero no se libera en ningún momento.

El caso es que si dichas conexiones se van acumulando, llega un momento que alcanza el límite (por defecto 101 en MySQL) y da error del servidor en la siguiente.

La creación de la sesión la hago tras hacer login:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $dbh
    = DBI->connect(
         "dbi:mysql:host=$webserver;database=$schema;tablename=sessions",
         &GetDBUser(), &GetDBPassword() )
    or die "Error de conexion a BBDD!"
    ;
my $session
    =  new CGI::Session( 'driver:mysql', undef, { Handle => $dbh } )
    or die CGI::Session->errstr
    ;
 
$s_id = $session->id();
$session->param( 'TGI', $login );
$s_tgi = $session->param("TGI");
 
$session->expire('15m');
$session->flush();
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Para recoger el valor de la sesión (incluido en una función a la que todas las páginas acceden siempre al principio):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

CGI::Session->name("session");
 
my %cookies = CGI::Cookie->fetch;
 
if ( $cookies{'session'} ) {
    $cookie_id = $cookies{'session'}->value;
}
else {
    print "Location:$scriptsURL/login.cgi?url="
        . $ENV{"HTTP_REFERER"} . "\n\n";
    exit 0;
}
 
my $dbh
    = DBI->connect(
    "dbi:mysql:host=$webserver;database=$schema;tablename=sessions",
    &GetDBUser(), &GetDBPassword() )
    or die "Error de conexion a BBDD!";
my $session
    = CGI::Session->load( "driver:mysql", $cookie_id, { Handle => $dbh } )
    or die CGI::Session->errstr;
 
if ( $session->is_expired || $session->is_empty ) {
    print "Location:$scriptsURL/login.cgi?url="
        . $ENV{"HTTP_REFERER"} . "\n\n";
    exit 0;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El funcionamiento de las sesiones es el correcto, pero no entiendo que se queden abiertas las conexiones de la BBDD.

He visto en otro post que se pueden cerrar las sesiones vía JavaScript, pero mi duda va más al comportamiento de CGI::Session cuando usa MySQL.

Gracias por adelantado.

my $session
    =  new CGI::Session( 'driver:mysql', undef,
       {
           Host        => $webserver,
           DataSource  => $schema,
           TableName   => 'sessions',
           User        => GetDBUser(),
           Password    => GetDBPassword(),
       }
    or die CGI::Session->errstr
    ;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

(sacado de CGI::Session::Driver::mysql. Si no funciona con Host, incluirlo dentro del DataSource)

Según la documentación de CGI::Session::Driver::DBI, cuando se usa la opción de Handle, sirve para poder reutilizar conexiones ya abiertas anteriormente (con lo que es más rápido y se aprovechan recursos, pero te obliga a llevar un control de qué conexión le corresponde a qué sesión, antes de pasársela a Handle). Y no se cierra la conexión con la base de datos (porque se supone que será reutilizada más tarde).

En cambio, si se usa DataSource, la conexión a la base de datos se desconectará de forma automática cuando se termine el programa.

por **hecoo** » 2011-07-14 11:45 @531

¡Muchas gracias por la bienvenida, explorer!

Ciertamente, sabía que pasaba algo con la mezcla de BBDD y sesiones que estaba haciendo, pero no había llegado a probar la opción que me has sugerido.

Con esto se soluciona mi problema, ya que no se mantienen abiertas las conexiones, con lo que ¡muchas gracias por está respuesta tan rápida y efectiva!

Por mi parte ya había desarrollado una alternativa algo más rústica y menos elegante que la de usar CGI::Session. Simplemente por compartirlo con toda la gente:
1.- Había sustituido la generación de id de sesión por una generación aleatoria de cifras hexadecimales, cogiendo la hora actual como referencia:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Digest::MD5 qw(md5_hex);
use Time::HiRes qw(time);
 
$session_id = md5_hex time();
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

2.- Tras esto, almacenaba en BBDD: id de sesión, identificador usuario, fecha de creación, fecha último acceso e IP
3.- Propagación del id de sesión

Esto en cuanto a la creación. Posteriormente, la comprobación de la sesión:

4.- Recogida de la cookie de sesión (CGI::Cookie)
5.- Validación, mediante consulta en BBDD, de la sesión y actualización de la fecha de último acceso

Como digo, esto me parecía menos elegante, pero me había servido momentáneamente para salir del paso.

Por lo tanto lo dicho, ¡¡muchas gracias!!

Foro - Perl en Español

Conexiones abiertas en MySQL cuando lo uso con CGI::Session

Conexiones abiertas en MySQL cuando lo uso con CGI::Session

Publicidad

Re: Conexiones abiertas en MySQL cuando lo uso con CGI::Session

Re: Conexiones abiertas en MySQL cuando lo uso con CGI::Session

¿Quién está conectado?