sistema/www/index.php

   1 <?php
   2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker:
   3 // +----------------------------------------------------------------------+
   4 // | PHP Version 4                                                        |
   5 // +----------------------------------------------------------------------+
   6 // | Copyright (c) 1997-2003 The PHP Group                                |
   7 // +----------------------------------------------------------------------+
   8 // | This source file is subject to version 2.02 of the PHP license,      |
   9 // | that is bundled with this package in the file LICENSE, and is        |
  10 // | available at through the world-wide-web at                           |
  11 // | http://www.php.net/license/2_02.txt.                                 |
  12 // | If you did not receive a copy of the PHP license and are unable to   |
  13 // | obtain it through the world-wide-web, please send a note to          |
  14 // | license@php.net so we can mail you a copy immediately.               |
  15 // +----------------------------------------------------------------------+
  16 // | Created: thu apr 15 15:22:58 ART 2003
  17 // | Author:  Martin Marrese <mmarre@mecon.gov.ar>
  18 // +----------------------------------------------------------------------+
  19 //
  20 // $Id$
  21 //
  22
  23 //VERIFICO SI SE TIENE ACCESO A LA PAGINA{{{
  24 $SAMURAI_PERM->setSistema(SAMURAI_PERM);
  25 if (!$SAMURAI_PERM->tiene(SAMURAI_PERM_DEVELOPER)) {
  26     $SAMURAI_PERM->setSistema($_SESSION['samurai']['id_sistema']);
  27     $SAMURAI_PERM->chequear(SAMURAI_PERM_USUARIO_BAJA, SAMURAI_PERM_USUARIO_MODIF, SAMURAI_PERM_USUARIO_ALTA,
  28                             SAMURAI_PERM_PERFIL_ALTA,SAMURAI_PERM_PERFIL_BAJA,SAMURAI_PERM_PERFIL_MODIF,SAMURAI_PERM_PERFIL_TIPO,
  29                             SAMURAI_PERM_DEVELOPER);
  30 }
  31 $MARCO =& new MECON_Marco ('/var/www/sistemas/samurai/sistema/conf/confSecciones.php', $SAMURAI_PERM);
  32 //}}}
  33
  34 //VERIFICO SI SE PASO ALGUNA ACCION {{{
  35     if (isset($_GET['accion'])) {
  36         switch ($_GET['accion']) {
  37            case 'usuarios': header('Location:usuarios/usuarios');
  38                              break;
  39            case 'perfiles': header('Location:perfiles/perfiles');
  40                              break;
  41         }
  42     }
  43 //}}}
  44     require_once 'MECON/HTML/Image.php';
  45     $MARCO->addBody(new MECON_HTML_Image('images/inicio.jpg'));
  46     $MARCO->setEspacios(false);
  47     $MARCO->display();
  48 ?>