<?php
// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4 foldmethod=marker:
// +----------------------------------------------------------------------+
// | PHP Version 4                                                        |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2003 The PHP Group                                |
// +----------------------------------------------------------------------+
// | This source file is subject to version 2.02 of the PHP license,      |
// | that is bundled with this package in the file LICENSE, and is        |
// | available at through the world-wide-web at                           |
// | http://www.php.net/license/2_02.txt.                                 |
// | If you did not receive a copy of the PHP license and are unable to   |
// | obtain it through the world-wide-web, please send a note to          |
// | license@php.net so we can mail you a copy immediately.               |
// +----------------------------------------------------------------------+
// | Created: mar mar  9 17:40:23 ART 2004
// | Author:  Martin Marrese <mmarre@mecon.gov.ar>
// +----------------------------------------------------------------------+
//
// $Id$
// 

//Verifico si se tiene acceso a la pagina{{{
$SAMURAI_PERM->setSistema(SAMURAI_PERM);
if (!$SAMURAI_PERM->tiene(SAMURAI_PERM_DEVELOPER)) {
    $SAMURAI_PERM->chequear(SAMURAI_PERM_DEVELOPER);
}
$MARCO =& new MECON_Marco ('/var/www/sistemas/samurai/sistema/conf/confSecciones.php', $SAMURAI_PERM);
//}}}

//Require once {{{
require_once 'MECON/HTML/Error.php';
require_once 'MECON/HTML/QuickForm.php';
require_once 'SAMURAI/Sistema.php';
require_once 'SAMURAI/Migrar.php';
//}}}

//Obtengo la info de los sistemas de la base {{{
$SISTEMAS = SAMURAI_Sistema::getArraySistemas($DB);
//}}}    

//Agrego los elementos del form {{{
$TABLA =& new MECON_HTML_Tabla ('width="400"', 'comun');
$TABLA->addLink('volver', 'consultas');
$FORM =& new MECON_HTML_QuickForm ('migrar','post','migrar');
$FORM->renderer->setTable($TABLA);
$FORM->addElement ('header', 'cabecera', 'Datos de la migración.');
$sistema =& $FORM->addElement ('select', 'sistema', 'Sistema', $SISTEMAS, array('size' => '1'));
$db_host =& $FORM->addElement ('text', 'db_host', 'DB Host Dest.', '', array ('size'=>50));
$db_user =& $FORM->addElement ('text', 'db_user', 'DB User Dest.', '', array ('size'=>50));
$db_pass =& $FORM->addElement ('password', 'db_pass', 'DB Pass Dest.', '', array ('size'=>50));
$group[] = HTML_QuickForm::createElement('submit', 'aceptar' , 'Migrar');
$FORM->addGroup($group,'botones', '', ',&nbsp;');

//Agrego las reglas de validación
$FORM->addRule('sistema', 'Debe seleccionar un sistema.', 'required', '', 'client');
$FORM->addRule('db_host', 'Debe indicar el MYSQL Server destino.', 'required', '', 'client');
$FORM->addRule('db_user', 'Debe ingresar el usuario MySQL destino.', 'required', '', 'client');
$FORM->addRule('db_pass', 'Debe ingresar el password MySQL destino.', 'required', '', 'client');
//}}}

//Valido el formulario {{{
if ($FORM->validate()) {
    //Migro el sistema {{{
    $migrar =& new SAMURAI_Migrar (
            $DB,
            $db_host->getValue(), 
            $db_user->getValue(), 
            $db_pass->getValue(),
            $_SESSION['usuario']            
            );
    $res = $migrar->migrarSistema(array_shift($sistema->getSelected()));
    if (PEAR::isError($res)) {
        switch ($res->getUserInfo()) {
            case 'HTML':
                $ERROR =& new MECON_HTML_Error ('Error: '. $res->getMessage());
                break;
            default:
                trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
                break;
        }
    }
    else {
//        $header ('Location: consultas');
    }
    //}}}
}
//}}}

//Dibujo la pagina {{{
$MARCO->addBody($FORM);
@$MARCO->addBody($ERROR);
$MARCO->setTitle('Migrar Sistema');
$MARCO->display();
//}}}
?>