-// 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>" );
-}
-
-// Setea las variables de usuario.
-$_SESSION['usuario']['login'] = $udat['user'];
-$_SESSION['usuario']['nrodoc'] = intval( $udat['nro_doc'] );