<?php
// vim: set expandtab tabstop=4 shiftwidth=4 foldmethod=marker:
// +--------------------------------------------------------------------+
// |                      Ministerio de Economía                        |
// |                  AI (Administrador de Intranet)                    |
// +--------------------------------------------------------------------+
// | This file is part of AI.                                           |
// |                                                                    |
// | AI is free software; you can redistribute it and/or modify         |
// | it under the terms of the GNU General Public License as published  |
// | by the Free Software Foundation; either version 2 of the License,  |
// | or (at your option) any later version.                             |
// |                                                                    |
// | AI is distributed in the hope that it will be useful, but          |
// | WITHOUT ANY WARRANTY; without even the implied warranty of         |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU   |
// | General Public License for more details.                           |
// |                                                                    |
// | You should have received a copy of the GNU General Public License  |
// | along with Hooks; if not, write to the Free Software Foundation,   |
// | Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA      |
// +--------------------------------------------------------------------+
// | Creado: vie jun 27 17:08:18 ART 2003                               |
// | Autor:  Leandro Lucarella <llucar@mecon.gov.ar>                    |
// +--------------------------------------------------------------------+
//
// $Id$
//

require_once 'MECON/general.php';
prepend_include_path('/var/www/sistemas/ai/sistema/local_lib');
require_once 'MECON/HTML/Error.php';
require_once 'permisos.php';

// Debug. {{{
require_once 'PEAR.php';
#PEAR::setErrorHandling(PEAR_ERROR_TRIGGER);
PEAR::setErrorHandling(PEAR_ERROR_RETURN);
// }}}

// Creo la base de datos. {{{
require_once 'AI/DB.php';
$db =& AI_DB::connect('../conf/DB.ini');
if (DB::isError($db)) {
    die($db->getMessage());
}
// }}}

// Creo el objeto de permisos - FIXME - esto debería venir de intranet. {{{
require_once 'SAMURAI/Perm.php';
$perm = new SAMURAI_Perm(@$_GET['login'] ? $_GET['login'] : 'llucar@mecon', AI_PERM, $db);
// }}}

// Creo el Marco. {{{
require_once 'MECON/Marco.php';
$marco = new MECON_Marco('../conf/Marco.php', $perm);
// }}}

// Averiguo si estoy administrando algún tipo de objeto. {{{
$tipo = null;
if (@$_SERVER['PATH_INFO']) {
    $tmp = ltrim($_SERVER['PATH_INFO'], '/');
    if ($tmp == 'grupo') {
        $tipo    = $tmp;
        $clase   = 'AI_GrupoSecciones';
        $require = 'AI/GrupoSecciones.php';
        $tabla   = 'grupo_secciones';
        $nombre  = 'grupo de secciones';
        if (!$perm->tiene(AI_PERM_NOTICIAS)) {
            die('Acceso no autorizado!!!'); // FIXME - se va a poner más lindo?
        }
    } elseif ($tmp == 'servicio') {
        $tipo    = $tmp;
        $clase   = 'AI_Servicio';
        $require = 'AI/Servicio.php';
        $tabla   = $tipo;
        $nombre  = $tipo;
        if (!$perm->tiene(AI_PERM_SERVICIOS)) {
            die('Acceso no autorizado!!!'); // FIXME - se va a poner más lindo?
        }
    } elseif ($tmp == 'sistema') {
        $tipo    = $tmp;
        $clase   = 'AI_Sistema';
        $require = 'AI/Sistema.php';
        $tabla   = $tipo;
        $nombre  = $tipo;
        if (!$perm->tiene(AI_PERM_SISTEMAS)) {
            die('Acceso no autorizado!!!'); // FIXME - se va a poner más lindo?
        }
    } else { // No hay un objeto válido para administrar.
        header('Location: '.$_SERVER['SCRIPT_NAME']);
    }
}
// }}}

// Si tiene un tipo, estamos administrando algun objeto. {{{
if ($tipo) {

    // Creo formulario. {{{
    require_once 'AI/Form.php';
    $form =& new AI_Form;
    // }}}

    // Creo un objeto y seteo su id. {{{
    require_once $require;
    $obj = new $clase;
    $obj->$tipo = @$_REQUEST['id'];
    // }}}

    // Verifico que la acción sea válida y si no lo es hago que sea un alta. {{{
    switch(@$_REQUEST['accion']) {
        case AI_BAJA:
        case AI_MODIF:
            $accion = $_REQUEST['accion'];
            break;
        default:
            $accion = AI_ALTA;
    }
    // }}}

    // Modifico la acción si ya se envió el formulario. {{{
    $botones = $form->getSubmitValue('botones');
    if ($boton = @join('', array_keys($botones))) {
        $boton = $boton . '_' . strtolower($botones[$boton]);
    }
    switch ($boton) {
        case 'aceptar_agregar':
            $accion = AI_ALTA;
            break;
        case 'modificar_borrar':
            // Viene de modificar,  hay que confirmar primero.
            $a_confirmar = true;
        case 'aceptar_borrar':
            $accion = AI_BAJA;
            $obj->$tipo = $form->getSubmitValue($tipo);
            break;
        case 'borrar_cancelar':
            // Indico que viene de un formulario cancelado.
            $cancelado = true;
        case 'aceptar_modificar':
            $accion = AI_MODIF;
            $obj->$tipo = $form->getSubmitValue($tipo);
            break;
    }
    // }}}

    // Creo el árbol con el tipo de objeto que manejo y lo agrego a la página. {{{
    require_once 'AI/Arbol.php';
    $arbol = new AI_Arbol($obj, $db);
    // }}}

    // Inicio el formulario, cargando datos de ser necesario. {{{
    if ($accion & (AI_BAJA | AI_MODIF)) {
        $err =& $obj->cargar($db);
        if (PEAR::isError($err)) {
            die($err->getMessage());
        }
        $form->iniciar($obj, $accion, $arbol, $db);
    } else {
        $accion = AI_ALTA;
        $form->iniciar($obj, $accion, $arbol, $db);
    }
    // }}}

    // Freezo el formulario si se está confirmando. {{{
    if (@$a_confirmar) {
        $form->freeze();
    }
    // }}}

    // Si los datos del formulario son válidos, hago el ABM. {{{
    if ($form->validate()) {
        switch ($accion) {
            case AI_ALTA: // {{{
                $form->llenarObjeto($obj);
                $err =& $obj->guardar($db, true);
                if (PEAR::isError($err)) {
                    if (DB::isError($err)
                            and $err->getCode() == DB_ERROR_ALREADY_EXISTS) {
                        $error = new MECON_HTML_Error(
                            "Ya existe un $nombre con el identificador "
                            . $obj->$tipo);
                    } else {
                        $error = new MECON_HTML_Error('Error no esperado: '
                            . $err->getMessage());
                    }
                    $marco->addBody($error);
                } else {
                    header(sprintf('Location: %s?accion=%d&id=%d',
                        $tipo, AI_MODIF, $obj->$tipo));
                    exit;
                }
                break;
            // }}}
            case AI_BAJA: // {{{
                if (!@$a_confirmar) {
                    $form->llenarObjeto($obj);
                    $err =& $obj->borrar($db);
                    if (AI_Error::isError($err)
                            and $err->getCode() == AI_ERROR_TIENE_HIJOS) {
                        $error = new MECON_HTML_Error('No se puede borrar el '
                            . $nombre . ' porque todavía tiene "hijos".'
                            . ' Elimine todos los "hijos" y pruebe otra vez.');
                        $marco->addBody($error);
                    } elseif (PEAR::isError($err)) {
                        $error = new MECON_HTML_Error('Error no esperado: '
                            . $err->getMessage());
                        $marco->addBody($error);
                    } else {
                        header("Location: $tipo");
                        exit;
                    }
                }
                break;
            // }}}
            case AI_MODIF: // {{{
                if (!@$cancelado) {
                    $form->llenarObjeto($obj);
                    $err =& $obj->guardar($db);
                    if (PEAR::isError($err)) {
                        $error = new MECON_HTML_Error('Error no esperado: ' . $err->getMessage());
                        $marco->addBody($error);
                    } else {
                        header(sprintf('Location: %s?accion=%d&id=%d',
                            $tipo, AI_MODIF, $obj->$tipo));
                        exit;
                    }
                }
                break;
            // }}}
        }
    }
    // }}}

    // Agrego el menu, link para nuevo y formulario a la página. {{{
    $marco->addMenuVertical($arbol);
    if ($accion & ~AI_ALTA) {
        require_once 'HTML/Image.php';
        require_once 'HTML/Link.php';
        $img = new HTML_Image('/MECON/images/general_nuevo', 'Agregar nuevo',
            array('border' => 0, 'align'  => 'middle',));
        $link = new HTML_Link($tipo);
        $marco->addBody('<DIV class="texto11_negro" valign="middle" align="center">');
        $link->addContents($img);
        $link_text = ' Agregar un nuevo ' . $nombre;
        $link->addContents($link_text);
        $marco->addBody($link);
        $marco->addBody('</DIV>');
    }
    $marco->addBody($form);
    // }}}

// }}}

// No se está editando nada, agrego la imágen de bienvenida a la página. {{{
} else {
    require_once 'HTML/Image.php';
    $marco->setEspacios(false);
    $marco->addBody(new HTML_Image('images/home', 'Adminitrador de Intranet'));
}
// }}}

// Muestro la página. {{{
$marco->display();
// }}}

?>