lib_perl/Perm.epl

   1 [#
   2  vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 ft=perl:
   3  +--------------------------------------------------------------------+
   4  |                      Ministerio de Economía                        |
   5  |                             SAMURAI                                |
   6  +--------------------------------------------------------------------+
   7  | This file is part of SAMURAI.                                      |
   8  |                                                                    |
   9  | SAMURAI is free software; you can redistribute it and/or modify    |
  10  | it under the terms of the GNU General Public License as published  |
  11  | by the Free Software Foundation; either version 2 of the License,  |
  12  | or (at your option) any later version.                             |
  13  |                                                                    |
  14  | SAMURAI is distributed in the hope that it will be useful, but     |
  15  | WITHOUT ANY WARRANTY; without even the implied warranty of         |
  16  | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU   |
  17  | General Public License for more details.                           |
  18  |                                                                    |
  19  | You should have received a copy of the GNU General Public License  |
  20  | along with SAMURAI; if not, write to the Free Software Foundation, |
  21  | Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA      |
  22  +--------------------------------------------------------------------+
  23  | Creado: vie oct 17 15:21:05 ART 2003                               |
  24  | Autor:  Martin Marrese <mmarre@mecon.gov.ar>                       |
  25  +--------------------------------------------------------------------+
  26  $Id$
  27
  28  Libreria para el manejo de permisos para perl.
  29 #]
  30 [!
  31 $CLEANUP{'SAMURAI_Perm'} = 0;
  32
  33 use Data::Dumper;
  34
  35
  36 # Simil Constructor.
  37 #
  38 # @param  string $login Login del usuario para el cual obtener los permisos.
  39 # @param  int    $sistema Sistema con el cual se va a trabajar.
  40 #
  41 # @return void
  42 $SAMURAI_Perm->{new} = sub
  43 {
  44     my $sql = "SELECT DISTINCT psu.id_sistema AS sistema, pps.id_permiso AS permiso FROM samurai.perfil_sist_usuario AS psu, samurai.perm_perfil_sist AS pps WHERE psu.login = ? AND psu.id_perfil = pps.id_perfil AND psu.id_sistema = pps.id_sistema ORDER BY psu.id_sistema";
  45     $udat{SAMURAI_Perm_vars}{login} = @_[0];
  46     $udat{SAMURAI_Perm_vars}{id_sistema} = @_[1];
  47     ##Conexion con la base
  48     #TODO Cambiar los parametros de conexion segun corresponda.
  49
  50     my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=localhost',"samurai","25fdd50c0e4d68");
  51     ##Obtengo los permisos de la base
  52     $re = $dbh->prepare($sql);
  53     $re->execute($udat{SAMURAI_Perm_vars}{login});
  54     while ($r = $re->fetchrow_hashref()) {
  55         push (@{$permisos{$r->{sistema}}}, $r->{permiso});
  56     }
  57     $re->finish();
  58     #Desconexion con la base
  59     $dbh->disconnect;
  60     $udat{SAMURAI_Perm_vars}{permisos} = \%permisos; #Se asignan a $udat para que esten disponibles siempre
  61 };
  62
  63 # Set Sistema.
  64 #
  65 # @param  int $sistema Sistema.
  66 #
  67 # @return void
  68 $SAMURAI_Perm->{setSistema} = sub
  69 {
  70     $udat{SAMURAI_Perm_vars}{id_sistema} = @_[0];
  71 };
  72
  73 # Verifica si tiene un permiso.
  74 # Se puede pasar parametros variables con un identificador de permiso,
  75 # por ejemplo:
  76 # $ret->{SAMURAI_PERM}->{tiene}(1, 4, 12);
  77 #
  78 # Si tiene algun permiso devuelve true. Si no se pasa ningun parametro
  79 # ($perm->tiene()), devuelve true si tiene un permiso (al menos uno) en el
  80 # sistema actual.
  81 #
  82 # @return bool
  83 $SAMURAI_Perm->{tiene} = sub
  84 {
  85     if (!scalar(@_)) {
  86         #Devuelvo true si tiene al menos un permiso
  87         if (scalar ($udat{SAMURAI_Perm_vars}{permisos}{$udat{SAMURAI_Perm_vars}{id_sistema}})) {
  88             return 1;
  89         }
  90         else {
  91             return 0;
  92         }
  93     }
  94     else {
  95         foreach $arg (@_) {
  96             foreach $perm (@{$udat{SAMURAI_Perm_vars}{permisos}{$udat{SAMURAI_Perm_vars}{id_sistema}}}) {
  97                 if ($arg == $perm) {
  98                     return 1;
  99                 }
 100             }
 101         }
 102         return 0;
 103     }
 104 };
 105
 106 # Obtiene una lista de permisos. Si se especifica un sistema, obtiene la lista de permisos para ese sistema.
 107 #
 108 # @param  int $sistema Sistema del cual obtener la lista de permisos.
 109 #
 110 # @return array
 111 $SAMURAI_Perm->{getPermisos} = sub
 112 {
 113     if (!scalar(@_)) {
 114         return $udat{SAMURAI_Perm_vars}{permisos}{$udat{SAMURAI_Perm_vars}{id_sistema}};
 115     }
 116     else {
 117         return $udat{SAMURAI_Perm_vars}{permisos}{@_[0]};
 118     }
 119 };
 120
 121 # Chequea si un usuario puede acceder o no a una pagina. En caso de no tener
 122 # permisos automaticamente lo redirige a una pagina de error.
 123 #
 124 # @return void
 125 $SAMURAI_Perm->{chequear} = sub
 126 {
 127     if (!$ret->{SAMURAI_Perm}->{tiene} (@_)) {
 128         open (ARCHORIG , "/var/www/meconlib/lib/MECON/includes/no_autorizado.html") or  die "POROTO";
 129         while (my $linea = <ARCHORIG>) {
 130             print $linea
 131         }
 132         exit;
 133     }
 134 };
 135
 136 # Obtiene las observaciones de un permiso para un sistema.
 137 #
 138 # @param  int $perm Obtiene las observaciones de un permiso para un sistema.
 139 # @param  int $sistema Sistema al cual pertenecen los permisos.
 140 #
 141 # @return array
 142 $SAMURAI_Perm->{getObservaciones} = sub
 143 {
 144     $perm = @_[0];
 145     if (scalar(@_[1])) {
 146         $sistema = @_[1];
 147     }
 148     else {
 149         $sistema = $udat{SAMURAI_Perm_vars}{id_sistema};
 150     }
 151     if (!$udat{SAMURAI_Perm_vars}{observaciones}{$sistema}{$perm}) {
 152         $udat{SAMURAI_Perm_vars}{observaciones} = '';
 153         $sql = 'SELECT ps.observaciones AS observaciones FROM samurai.perm_sist AS ps WHERE ps.id_permiso = ? AND ps.id_sistema = ?';
 154         #TODO cambiar los parametros de conexion segun corresponda
 155         my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=localhost',"samurai","25fdd50c0e4d68");
 156         $re = $dbh->prepare($sql);
 157         $re->execute($perm, $sistema);
 158         while ($r = $re->fetchrow_hashref()) {
 159             push (@{$obser{$sistema}{$perm}}, $r->{observaciones});
 160         }
 161         $re->finish();
 162         #Desconexion con la base
 163         $dbh->disconnect;
 164         $udat{SAMURAI_Perm_vars}{observaciones} = \%obser;
 165         return $udat{SAMURAI_Perm_vars}{observaciones};
 166     }
 167 };
 168
 169 # MANAZAR: Funcion para dar un perfil a un usuario en un sistema
 170 #
 171 # @return void
 172 $SAMURAI_Perm->{asignarPerfil} = sub
 173 {
 174     $id_perfil = @_[0];
 175         my $login=$udat{SAMURAI_Perm_vars}{login};
 176         my $id_sistema=$udat{SAMURAI_Perm_vars}{id_sistema};
 177         my $resp=$udat{'user'};
 178         my $sql = "REPLACE INTO perfil_sist_usuario (login,id_perfil,id_sistema,responsable) VALUES ('$login',$id_perfil,$id_sistema,'$resp')";
 179         ##Conexion con la base
 180         #TODO Cambiar los parametros de conexion segun corresponda.
 181         my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=localhost',"samurai","25fdd50c0e4d68");
 182         my $result=$dbh->do($sql);
 183     #Desconexion con la base
 184         $dbh->disconnect;
 185 };
 186
 187 # MANAZAR: Funcion para quitar perfil a un usuario en un sistema
 188 #
 189 # @return void
 190 $SAMURAI_Perm->{quitarPerfil} = sub
 191 {
 192     $id_perfil = @_[0];
 193         my $login=$udat{SAMURAI_Perm_vars}{login};
 194         my $id_sistema=$udat{SAMURAI_Perm_vars}{id_sistema};
 195         my $resp=$udat{'user'};
 196         my $sql = "DELETE FROM perfil_sist_usuario where (login='$login') AND (id_perfil=$id_perfil) AND (id_sistema=$id_sistema)";
 197         ##Conexion con la base
 198         #TODO Cambiar los parametros de conexion segun corresponda.
 199         my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=localhost',"samurai","25fdd50c0e4d68");
 200         my $result=$dbh->do($sql);
 201     #Desconexion con la base
 202         $dbh->disconnect;
 203 };
 204
 205
 206
 207 !]
 208 [-
 209     $ret = shift;
 210     $ret->{SAMURAI_Perm} = $SAMURAI_Perm;
 211 -]
 212