<?php
// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:

//require_once 'MECON/general.php';
//prepend_include_path('/home/mmarrese/public_html/meconlib/lib/');

require_once 'MECON/Marco.php';
require_once 'MECON/HTML/Error.php';
require_once 'SAMURAI/DB.php';
require_once 'SAMURAI/Perm.php';
require_once 'util.php';
require_once 'SAMURAI/constantes.php';
require_once 'MECON/Usuario.php';

//Realizo la conexion con la base de datos
$tmp = new SAMURAI_DB();
$DB  =& $tmp->connect();

if (PEAR::isError($DB)) {
    $ERROR = new MECON_HTML_Error($DB->getMessage());
    echo $ERROR->toHtml();
    exit;
}


//CARGO LAS VARIABLES DE SESION INTERNAS {{{
if (!isset($_SESSION['usuario'])) {
    header('Location: /sistemas/intranet/login?redirect='.$_SERVER['REQUEST_URI']);
}
if (isset($_GET['id_sistema'])) {
    $_SESSION['samurai']['id_sistema'] = $_GET['id_sistema'];
}
elseif (($_SERVER['REQUEST_URI'] != "/sistemas/samurai/sel-sistema" &&
            $_SERVER['REQUEST_URI'] !=
            "/sistemas/samurai/sel-sistema?redirect=index")&& 
        !@$_SESSION['samurai']['id_sistema']) {
    header('Location: /sistemas/samurai/sel-sistema?redirect=index');    
}
if (@$_SESSION['samurai']['id_sistema']) {
    //Creo el objeto Permiso
    $SAMURAI_PERM = new SAMURAI_Perm ($_SESSION['usuario'],
            $_SESSION['samurai']['id_sistema'], $DB);
}
//}}}
?>