<?php
// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 textwidth=80 foldmethod=marker:

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

require_once 'DB.php';
require_once 'MECON/Marco.php';
require_once 'SAMURAI/Perm.php';
require_once 'constantes.php'; //Archivo de constantes de SAMURAI

session_start();

//Creo una conexion a la base de datos
$DB =& DB::connect('mysql://intranet:intranet@bal747f/yatta', true);
if (DB::isError($DB)) {
    die ($DB->getMessage());
}
//Verifico si el usuario esta logueado
if (!isset($_SESSION['usuario'])) {
    header('Location: /sistemas/intranet/login?redirect='.$_SERVER['REQUEST_URI']);
}
else {
//Creo el objeto SAMURAI_PERM
    $SAMURAI_PERM = new SAMURAI_Perm ($_SESSION['usuario'],
            YATTA_PERM, $DB);
    $MARCO =& new MECON_Marco ('/var/www/sistemas/yatta/sistema/conf/Marco.php',
         $SAMURAI_PERM);
}
?>