|
// +--------------------------------------------------------------------+
//
// $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( "ERROR DE SESION
$udat
Este es un error no esperado, por favor anote el mensaje de error e informelo a ".$basehost."@mecon.gov.ar" );
}
// 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;
// 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$
?>