Acomodo la configuracion

diff --git a/lib/SAMURAI/DB/consultas.ini b/lib/SAMURAI/DB/consultas.ini
index a7a2c15775928b84198563aef9b2cb83b7b40f6f..28226246f026ba6b4e93254af7eaa1a459fba0f7 100644 (file)
--- a/lib/SAMURAI/DB/consultas.ini
+++ b/lib/SAMURAI/DB/consultas.ini
@@ -1,6 +1,6 @@
 ; Configuración de la base de datos.
 ; $Id$
 ; Configuración de la base de datos.
 ; $Id$

-dsn = "mysql://intranet:intranet@bal747f/samurai"
+dsn = "mysql://samurai:25fdd50c0e4d68@unix(/var/run/mysqld/mysqld.sock)/samurai"

 
 [opciones]
 persistent = true
 
 [opciones]
 persistent = true

diff --git a/lib_perl/Perm.epl b/lib_perl/Perm.epl
index 99e8af998ffc5a6af0fcf53bfe98cfa41b102b8a..346cc67dd7bca87e8f3609e8f92ecee1d553a1ab 100644 (file)
--- a/lib_perl/Perm.epl
+++ b/lib_perl/Perm.epl
@@ -46,7 +46,8 @@ $SAMURAI_Perm->{new} = sub
     $udat{SAMURAI_Perm_vars}{id_sistema} = @_[1];
     ##Conexion con la base
     #TODO Cambiar los parametros de conexion segun corresponda.
     $udat{SAMURAI_Perm_vars}{id_sistema} = @_[1];
     ##Conexion con la base
     #TODO Cambiar los parametros de conexion segun corresponda.

-    my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=bal747f',"intranet","intranet");
+    
+    my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=localhost',"samurai","25fdd50c0e4d68");

     ##Obtengo los permisos de la base        
     $re = $dbh->prepare($sql);
     $re->execute($udat{SAMURAI_Perm_vars}{login});        
     ##Obtengo los permisos de la base        
     $re = $dbh->prepare($sql);
     $re->execute($udat{SAMURAI_Perm_vars}{login});        


@@ -151,7 +152,7 @@ $SAMURAI_Perm->{getObservaciones} = sub
         $udat{SAMURAI_Perm_vars}{observaciones} = '';
         $sql = 'SELECT ps.observaciones AS observaciones FROM samurai.perm_sist AS ps WHERE ps.id_permiso = ? AND ps.id_sistema = ?';
         #TODO cambiar los parametros de conexion segun corresponda
         $udat{SAMURAI_Perm_vars}{observaciones} = '';
         $sql = 'SELECT ps.observaciones AS observaciones FROM samurai.perm_sist AS ps WHERE ps.id_permiso = ? AND ps.id_sistema = ?';
         #TODO cambiar los parametros de conexion segun corresponda

-        my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=bal747f',"intranet","intranet");
+        my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=localhost',"samurai","25fdd50c0e4d68");

         $re = $dbh->prepare($sql);
         $re->execute($perm, $sistema);        
         while ($r = $re->fetchrow_hashref()) {
         $re = $dbh->prepare($sql);
         $re->execute($perm, $sistema);        
         while ($r = $re->fetchrow_hashref()) {


@@ -177,7 +178,7 @@ $SAMURAI_Perm->{asignarPerfil} = sub
        my $sql = "REPLACE INTO perfil_sist_usuario (login,id_perfil,id_sistema,responsable) VALUES ('$login',$id_perfil,$id_sistema,'$resp')";
        ##Conexion con la base
        #TODO Cambiar los parametros de conexion segun corresponda.
        my $sql = "REPLACE INTO perfil_sist_usuario (login,id_perfil,id_sistema,responsable) VALUES ('$login',$id_perfil,$id_sistema,'$resp')";
        ##Conexion con la base
        #TODO Cambiar los parametros de conexion segun corresponda.

-       my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=bal747f',"intranet","intranet");
+       my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=localhost',"samurai","25fdd50c0e4d68");

        my $result=$dbh->do($sql);
     #Desconexion con la base
        $dbh->disconnect;  
        my $result=$dbh->do($sql);
     #Desconexion con la base
        $dbh->disconnect;  


@@ -195,7 +196,7 @@ $SAMURAI_Perm->{quitarPerfil} = sub
        my $sql = "DELETE FROM perfil_sist_usuario where (login='$login') AND (id_perfil=$id_perfil) AND (id_sistema=$id_sistema)";
        ##Conexion con la base
        #TODO Cambiar los parametros de conexion segun corresponda.
        my $sql = "DELETE FROM perfil_sist_usuario where (login='$login') AND (id_perfil=$id_perfil) AND (id_sistema=$id_sistema)";
        ##Conexion con la base
        #TODO Cambiar los parametros de conexion segun corresponda.

-       my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=bal747f',"intranet","intranet");
+       my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=localhost',"samurai","25fdd50c0e4d68");

        my $result=$dbh->do($sql);
     #Desconexion con la base
        $dbh->disconnect;  
        my $result=$dbh->do($sql);
     #Desconexion con la base
        $dbh->disconnect;