| 1 | <? |
|---|
| 2 | // ************************************************************************************************************************************************* |
|---|
| 3 | // Aplicación WEB: ogAdmWebCon |
|---|
| 4 | // Autor: José Manuel Alonso (E.T.S.I.I.) Universidad de Sevilla |
|---|
| 5 | // Fecha Creación: Año 2003-2004 |
|---|
| 6 | // Fecha Última modificación: Marzo-2005 |
|---|
| 7 | // Nombre del fichero: gestor_entornos.php |
|---|
| 8 | // Descripción : |
|---|
| 9 | // Gestiona el mantenimiento de la tabla de entornos |
|---|
| 10 | // ************************************************************************************************************************************************* |
|---|
| 11 | include_once("../includes/ctrlacc.php"); |
|---|
| 12 | include_once("../clases/AdoPhp.php"); |
|---|
| 13 | include_once("../includes/CreaComando.php"); |
|---|
| 14 | include_once("../includes/opciones.php"); |
|---|
| 15 | //________________________________________________________________________________________________________ |
|---|
| 16 | $opcion=0; // Inicializa parametros |
|---|
| 17 | |
|---|
| 18 | $identorno=0; |
|---|
| 19 | |
|---|
| 20 | $ipserveradm=""; |
|---|
| 21 | $portserveradm=0; |
|---|
| 22 | $protoclonacion=""; |
|---|
| 23 | $repositorio=""; |
|---|
| 24 | |
|---|
| 25 | if (isset($_POST["opcion"])) $opcion=$_POST["opcion"]; // Recoge parametros |
|---|
| 26 | |
|---|
| 27 | if (isset($_POST["ipserveradm"])) $ipserveradm=$_POST["ipserveradm"]; |
|---|
| 28 | if (isset($_POST["portserveradm"])) $portserveradm=$_POST["portserveradm"]; |
|---|
| 29 | if (isset($_POST["protoclonacion"])) $protoclonacion=$_POST["protoclonacion"]; |
|---|
| 30 | if (isset($_POST["repositorio"])) $repositorio=$_POST["repositorio"]; |
|---|
| 31 | |
|---|
| 32 | $cmd=CreaComando($cadenaconexion); // Crea objeto comando |
|---|
| 33 | $resul=false; |
|---|
| 34 | if ($cmd){ |
|---|
| 35 | $resul=Gestiona(); |
|---|
| 36 | $cmd->Conexion->Cerrar(); |
|---|
| 37 | } |
|---|
| 38 | // ************************************************************************************************************************************************* |
|---|
| 39 | ?> |
|---|
| 40 | <HTML> |
|---|
| 41 | <HEAD> |
|---|
| 42 | <meta http-equiv="Content-Type" content="text/html;charset=UTF-8"> |
|---|
| 43 | <BODY> |
|---|
| 44 | <? echo '<SCRIPT language="javascript" src="../idiomas/javascripts/'.$idioma.'/comunes_'.$idioma.'.js"></SCRIPT>'?> |
|---|
| 45 | <SCRIPT language="javascript"> |
|---|
| 46 | <? |
|---|
| 47 | if ($resul) |
|---|
| 48 | echo "alert(CTbMsg[5]);"; |
|---|
| 49 | else |
|---|
| 50 | echo "alert(CTbMsg[8]);"; |
|---|
| 51 | ?> |
|---|
| 52 | history.back(); |
|---|
| 53 | </SCRIPT> |
|---|
| 54 | </BODY> |
|---|
| 55 | </HTML> |
|---|
| 56 | <? |
|---|
| 57 | /************************************************************************************************************************************************** |
|---|
| 58 | Inserta, modifica o elimina datos en la tabla entornos |
|---|
| 59 | ________________________________________________________________________________________________________*/ |
|---|
| 60 | function Gestiona(){ |
|---|
| 61 | global $cmd; |
|---|
| 62 | global $opcion; |
|---|
| 63 | |
|---|
| 64 | global $identorno; |
|---|
| 65 | global $ipserveradm; |
|---|
| 66 | global $portserveradm; |
|---|
| 67 | global $protoclonacion; |
|---|
| 68 | global $repositorio; |
|---|
| 69 | |
|---|
| 70 | |
|---|
| 71 | global $op_alta; |
|---|
| 72 | global $op_modificacion; |
|---|
| 73 | global $op_eliminacion; |
|---|
| 74 | global $tablanodo; |
|---|
| 75 | |
|---|
| 76 | $cmd->CreaParametro("@identorno",$identorno,1); |
|---|
| 77 | $cmd->CreaParametro("@ipserveradm",$ipserveradm,0); |
|---|
| 78 | $cmd->CreaParametro("@portserveradm",$portserveradm,1); |
|---|
| 79 | $cmd->CreaParametro("@protoclonacion",$protoclonacion,0); |
|---|
| 80 | $cmd->CreaParametro("@repositorio",$repositorio,1); |
|---|
| 81 | |
|---|
| 82 | switch($opcion){ |
|---|
| 83 | case $op_modificacion: |
|---|
| 84 | $cmd->texto="UPDATE entornos SET ipserveradm=@ipserveradm,portserveradm=@portserveradm,protoclonacion=@protoclonacion,repositorio=@repositorio"; |
|---|
| 85 | $resul=$cmd->Ejecutar(); |
|---|
| 86 | break; |
|---|
| 87 | |
|---|
| 88 | default: |
|---|
| 89 | break; |
|---|
| 90 | } |
|---|
| 91 | return($resul); |
|---|
| 92 | } |
|---|
| 93 | ?> |
|---|
