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 # Simil Constructor.
  34 #
  35 # @param  string $login Login del usuario para el cual obtener los permisos.
  36 # @param  int    $sistema Sistema con el cual se va a trabajar.
  37 #
  38 # @return void
  39 $SAMURAI_Perm->{new} = sub
  40 {
  41     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";
  42     $udat{SAMURAI_Perm_vars}{login} = @_[0];
  43     $udat{SAMURAI_Perm_vars}{id_sistema} = @_[1];
  44     ##Conexion con la base
  45     #TODO Cambiar los parametros de conexion segun corresponda.
  46     my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=bal747f',"intranet","intranet");
  47     ##Obtengo los permisos de la base
  48     $re = $dbh->prepare($sql);
  49     $re->execute($udat{SAMURAI_Perm_vars}{login});
  50     while ($r = $re->fetchrow_hashref()) {
  51         push (@{$permisos{$r->{sistema}}}, $r->{permiso});
  52     }
  53     $re->finish();
  54     #Desconexion con la base
  55     $dbh->disconnect;
  56     $udat{SAMURAI_Perm_vars}{permisos} = \%permisos; #Se asignan a $udat para que esten disponibles siempre
  57 };
  58
  59 # Set Sistema.
  60 #
  61 # @param  int $sistema Sistema.
  62 #
  63 # @return void
  64 $SAMURAI_Perm->{setSistema} = sub
  65 {
  66     $udat{SAMURAI_Perm_vars}{id_sistema} = @_[0];
  67 };
  68
  69 # Verifica si tiene un permiso.
  70 # Se puede pasar parametros variables con un identificador de permiso,
  71 # por ejemplo:
  72 # $ret->{SAMURAI_PERM}->{tiene}(1, 4, 12);
  73 #
  74 # Si tiene algun permiso devuelve true. Si no se pasa ningun parametro
  75 # ($perm->tiene()), devuelve true si tiene un permiso (al menos uno) en el
  76 # sistema actual.
  77 #
  78 # @return bool
  79 $SAMURAI_Perm->{tiene} = sub
  80 {
  81     if (!scalar(@_)) {
  82         #Devuelvo true si tiene al menos un permiso
  83         if (scalar ($udat{SAMURAI_Perm_vars}{permisos}{$udat{SAMURAI_Perm_vars}{id_sistema}})) {
  84             return 1;
  85         }
  86         else {
  87             return 0;
  88         }
  89     }
  90     else {
  91         foreach $arg (@_) {
  92             foreach $perm (@{$udat{SAMURAI_Perm_vars}{permisos}{$udat{SAMURAI_Perm_vars}{id_sistema}}}) {
  93                 if ($arg == $perm) {
  94                     return 1;
  95                 }
  96             }
  97         }
  98         return 0;
  99     }
 100 };
 101
 102 # Obtiene una lista de permisos. Si se especifica un sistema, obtiene la lista de permisos para ese sistema.
 103 #
 104 # @param  int $sistema Sistema del cual obtener la lista de permisos.
 105 #
 106 # @return array
 107 $SAMURAI_Perm->{getPermisos} = sub
 108 {
 109     if (!scalar(@_)) {
 110         return $udat{SAMURAI_Perm_vars}{permisos}{$udat{SAMURAI_Perm_vars}{id_sistema}};
 111     }
 112     else {
 113         return $udat{SAMURAI_Perm_vars}{permisos}{@_[0]};
 114     }
 115 };
 116
 117 # Chequea si un usuario puede acceder o no a una pagina. En caso de no tener
 118 # permisos automaticamente lo redirige a una pagina de error.
 119 #
 120 # @return void
 121 $SAMURAI_Perm->{chequear} = sub
 122 {
 123     if (!$ret->{SAMURAI_Perm}->{tiene} (@_)) {
 124         open (ARCHORIG , "/var/www/meconlib/lib/MECON/includes/no_autorizado.html") or  die "POROTO";
 125         while (my $linea = <ARCHORIG>) {
 126             print $linea
 127         }
 128         exit;
 129     }
 130 };
 131
 132 # Obtiene las observaciones de un permiso para un sistema.
 133 #
 134 # @param  int $perm Obtiene las observaciones de un permiso para un sistema.
 135 # @param  int $sistema Sistema al cual pertenecen los permisos.
 136 #
 137 # @return array
 138 $SAMURAI_Perm->{getObservaciones} = sub
 139 {
 140     $perm = @_[0];
 141     if (scalar(@_[1])) {
 142         $sistema = @_[1];
 143     }
 144     else {
 145         $sistema = $udat{SAMURAI_Perm_vars}{id_sistema};
 146     }
 147     if (!$udat{SAMURAI_Perm_vars}{observaciones}{$sistema}{$perm}) {
 148         $udat{SAMURAI_Perm_vars}{observaciones} = '';
 149         $sql = 'SELECT ps.observaciones AS observaciones FROM samurai.perm_sist AS ps WHERE ps.id_permiso = ? AND ps.id_sistema = ?';
 150         #TODO cambiar los parametros de conexion segun corresponda
 151         my $dbh = DBI->connect('dbi:mysql:dbname=samurai;host=bal747f',"intranet","intranet");
 152         $re = $dbh->prepare($sql);
 153         $re->execute($perm, $sistema);
 154         while ($r = $re->fetchrow_hashref()) {
 155             push (@{$obser{$sistema}{$perm}}, $r->{observaciones});
 156         }
 157         $re->finish();
 158         #Desconexion con la base
 159         $dbh->disconnect;
 160         $udat{SAMURAI_Perm_vars}{observaciones} = \%obser;
 161         return $udat{SAMURAI_Perm_vars}{observaciones};
 162     }
 163 };
 164 !]
 165 [-
 166     $ret = shift;
 167     $ret->{SAMURAI_Perm} = $SAMURAI_Perm;
 168 -]
 169