X-Git-Url: https://git.llucax.com/mecon/samurai.git/blobdiff_plain/6fc69c96ec6c616c137688e49a2d212a10367ca4..ada9c9b3fa3aeccab382ec98dd4a67609e63ac22:/src/www/include/prepend.php

diff --git a/src/www/include/prepend.php b/src/www/include/prepend.php
index f0e9e9e..5b75bab 100644
--- a/src/www/include/prepend.php
+++ b/src/www/include/prepend.php
@@ -1,83 +1,9 @@
 <?php
 // vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// |                          HORAS EXTRA                               |
-// +--------------------------------------------------------------------+
-// |    Sistema de Horas Extra - Ministerio de Economía - Argentina     |
-// +--------------------------------------------------------------------+
-// | Creado: lun abr 22 16:05:33 ART 2002                               |
-// | Autor:  Leandro Lucarella <llucar@mecon.gov.ar>                    |
-// +--------------------------------------------------------------------+
-//
-// $URL$
-// $Rev$
-// $Date$
-// $Author$
-//
 
-// Comienza el manejo de sesiones.
-session_start();
-
-// Hace que de forma general, si hay un error, se interrumpa la ejecución
-// (excepto aquellos que sean advertencias).
-require_once 'PEAR.php';
-PEAR::setErrorHandling( PEAR_ERROR_DIE );
-
-// Obtiene la sesión de Embperl.
-require_once 'HE/Session/Perl.php';
-$udat = HE_Session_Perl::udat();
-
-// Se fija si está logueado en la intranet.
-if ( $udat === false or !isset( $udat['user'] ) or !isset( $udat['nro_doc'] ) ) {
-    // Limpia los datos de la sesión.
-    session_destroy();
-    setcookie( session_name(), '', 0, '/', '.mecon.ar' );
-    $_SESSION = array();
-    // Redirecciona al login.
-    header( 'Location: /' );
-    exit;
-} elseif ( is_string( $udat ) ) {
-    die( "<h1>ERROR DE SESION</h1>$udat<br/><br/>Este es un error no esperado, por favor anote el mensaje de error e informelo a <a href=\"mailto:intranet2@mecon.gov.ar\">".$basehost."@mecon.gov.ar</a>" );
-}
+require_once 'include/lib/marco/Marco.php';
 
-// Setea las variables de usuario.
-$_SESSION['usuario']['login']  = $udat['user'];
-$_SESSION['usuario']['nrodoc'] = intval( $udat['nro_doc'] );
-
-// Obtiene el nivel del usuario.
-require_once 'HE/DB/ABM/Usuario.php';
-$USR =& new HE_DB_ABM_Usuario;
-$_SESSION['usuario']['nivel'] = $USR->nivel();
-
-// Obtiene la dependencia del usuario.
-require_once 'HE/DB/Persona.php';
-$PRS =& new HE_DB_Persona;
-switch ( $_SESSION['usuario']['login'] ) {
-    case 'llucar@mecon': $_SESSION['usuario']['dependencia'] = '3002030702'; break;
-    case 'mmespi@mecon': $_SESSION['usuario']['dependencia'] = '3002030702'; break;
-    case 'rcarta@mecon': $_SESSION['usuario']['dependencia'] = '1000020000'; break;
-    case 'aausil@mecon': $_SESSION['usuario']['dependencia'] = '1301010000'; break;
-    case 'pabaez@mecon': $_SESSION['usuario']['dependencia'] = '3002030300'; break;
-    case 'vfranc@mecon': $_SESSION['usuario']['dependencia'] = '3002030203'; break;
-    case 'malvar1@mecon': $_SESSION['usuario']['dependencia'] = '1200000003'; break;
-    case 'dcolle@mecon': $_SESSION['usuario']['dependencia'] = '8102020000'; break;
-    default:             $_SESSION['usuario']['dependencia'] = $PRS->dependencia();
-}
-
-// Crea el objeto de chequeo de permisos.
-require_once 'HE/Perm.php';
-$PRM =& new HE_Perm;
+session_start();
 
-// Hooks.
-require_once 'lib/HE/lib/hooks.php';
-// Toma la configuración desde un hook.
-$CNF = hook( 'config' );
-// Chequeo de permisos.
-hook( 'permisos' );
-// Cosas a ejecutar antes de enviar nada de HTML.
-hook( 'prepend' );
-// Cabecera HTML.
-hook( 'cabecera' );
 
-// $URL$ $Rev$ $Date$ $Author$
 ?>