2 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 textwidth=80 foldmethod=marker:
4 //require_once 'MECON/general.php';
5 //prepend_include_path('/home/mmarrese/public_html/meconlib/lib/');
8 require_once 'MECON/Marco.php';
9 require_once 'SAMURAI/Perm.php';
10 require_once 'constantes.php'; //Archivo de constantes de SAMURAI
12 //Creo una conexion a la base de datos
13 $DB =& DB::connect('mysql://intranet:intranet@bal747f/yatta', true);
14 if (DB::isError($DB)) {
15 die ($DB->getMessage());
17 //Verifico si el usuario esta logueado
18 if (!isset($_SESSION['usuario'])) {
19 header('Location: /sistemas/intranet/login?redirect='.$_SERVER['REQUEST_URI']);
22 //Creo el objeto SAMURAI_PERM
23 $SAMURAI_PERM = new SAMURAI_Perm ($_SESSION['usuario'],
25 $MARCO =& new MECON_Marco ('/var/www/sistemas/yatta/sistema/conf/Marco.php',