2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
4 //require_once 'MECON/general.php';
5 //prepend_include_path('/home/mmarrese/public_html/meconlib/lib/');
7 require_once 'MECON/Marco.php';
8 require_once 'MECON/HTML/Error.php';
9 require_once 'SAMURAI/DB.php';
10 require_once 'SAMURAI/Perm.php';
11 require_once 'util.php';
12 require_once 'SAMURAI/constantes.php';
13 require_once 'MECON/Usuario.php';
15 //Realizo la conexion con la base de datos
16 $tmp = new SAMURAI_DB();
17 $DB =& $tmp->connect();
19 if (PEAR::isError($DB)) {
20 $ERROR = new MECON_HTML_Error($DB->getMessage());
21 echo $ERROR->toHtml();
26 //CARGO LAS VARIABLES DE SESION INTERNAS {{{
27 if (!isset($_SESSION['usuario'])) {
28 header('Location: /sistemas/intranet/login?redirect='.$_SERVER['REQUEST_URI']);
30 if (isset($_GET['id_sistema'])) {
31 $_SESSION['samurai']['id_sistema'] = $_GET['id_sistema'];
33 elseif (($_SERVER['REQUEST_URI'] != "/sistemas/samurai/sel-sistema" &&
34 $_SERVER['REQUEST_URI'] !=
35 "/sistemas/samurai/sel-sistema?redirect=index")&&
36 !@$_SESSION['samurai']['id_sistema']) {
37 header('Location: /sistemas/samurai/sel-sistema?redirect=index');
39 if (@$_SESSION['samurai']['id_sistema']) {
40 //Creo el objeto Permiso
41 $SAMURAI_PERM = new SAMURAI_Perm ($_SESSION['usuario'],
42 $_SESSION['samurai']['id_sistema'], $DB);