| 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 | |
|---|
| 24 | |
|---|
| 25 | if (isset($_GET["opcion"])) $opcion=$_GET["opcion"]; // Recoge parametros |
|---|
| 26 | |
|---|
| 27 | if (isset($_GET["ipserveradm"])) $ipserveradm=$_GET["ipserveradm"]; |
|---|
| 28 | if (isset($_GET["portserveradm"])) $portserveradm=$_GET["portserveradm"]; |
|---|
| 29 | if (isset($_GET["protoclonacion"])) $protoclonacion=$_GET["protoclonacion"]; |
|---|
| 30 | |
|---|
| 31 | $tablanodo=""; // Arbol para nodos insertados |
|---|
| 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 | <? |
|---|
| 45 | $literal=""; |
|---|
| 46 | switch($opcion){ |
|---|
| 47 | case $op_modificacion: |
|---|
| 48 | $literal="resultado_modificar_entornos"; |
|---|
| 49 | break; |
|---|
| 50 | default: |
|---|
| 51 | break; |
|---|
| 52 | } |
|---|
| 53 | |
|---|
| 54 | if ($resul){ |
|---|
| 55 | echo '<SCRIPT language="javascript">'.chr(13); |
|---|
| 56 | echo 'var oHTML'.chr(13); |
|---|
| 57 | echo 'var cTBODY=document.getElementsByTagName("TBODY");'.chr(13); |
|---|
| 58 | echo 'o=cTBODY.item(1);'.chr(13); |
|---|
| 59 | if ($opcion==$op_alta ) |
|---|
| 60 | echo 'window.parent.'.$literal."(1,'".$cmd->DescripUltimoError()." ',".$identorno.",o.innerHTML);".chr(13); |
|---|
| 61 | else |
|---|
| 62 | echo 'window.parent.'.$literal."(1,'".$cmd->DescripUltimoError()." ','".$identorno."');".chr(13); |
|---|
| 63 | echo '</SCRIPT>'; |
|---|
| 64 | } |
|---|
| 65 | else{ |
|---|
| 66 | echo '<SCRIPT language="javascript">'; |
|---|
| 67 | echo " window.parent.".$literal."(0,'".$cmd->DescripUltimoError()."',".$identorno.")"; |
|---|
| 68 | echo '</SCRIPT>'; |
|---|
| 69 | } |
|---|
| 70 | |
|---|
| 71 | ?> |
|---|
| 72 | </BODY> |
|---|
| 73 | </HTML> |
|---|
| 74 | <? |
|---|
| 75 | /************************************************************************************************************************************************** |
|---|
| 76 | Inserta, modifica o elimina datos en la tabla entornos |
|---|
| 77 | ________________________________________________________________________________________________________*/ |
|---|
| 78 | function Gestiona(){ |
|---|
| 79 | global $cmd; |
|---|
| 80 | global $opcion; |
|---|
| 81 | |
|---|
| 82 | global $identorno; |
|---|
| 83 | global $ipserveradm; |
|---|
| 84 | global $portserveradm; |
|---|
| 85 | global $protoclonacion; |
|---|
| 86 | |
|---|
| 87 | |
|---|
| 88 | |
|---|
| 89 | global $op_alta; |
|---|
| 90 | global $op_modificacion; |
|---|
| 91 | global $op_eliminacion; |
|---|
| 92 | global $tablanodo; |
|---|
| 93 | |
|---|
| 94 | $cmd->CreaParametro("@identorno",$identorno,1); |
|---|
| 95 | $cmd->CreaParametro("@ipserveradm",$ipserveradm,0); |
|---|
| 96 | $cmd->CreaParametro("@portserveradm",$portserveradm,1); |
|---|
| 97 | $cmd->CreaParametro("@protoclonacion",$protoclonacion,0); |
|---|
| 98 | |
|---|
| 99 | |
|---|
| 100 | switch($opcion){ |
|---|
| 101 | case $op_modificacion: |
|---|
| 102 | $cmd->texto="UPDATE entornos SET ipserveradm=@ipserveradm,portserveradm=@portserveradm,protoclonacion=@protoclonacion"; |
|---|
| 103 | $resul=$cmd->Ejecutar(); |
|---|
| 104 | break; |
|---|
| 105 | |
|---|
| 106 | default: |
|---|
| 107 | break; |
|---|
| 108 | } |
|---|
| 109 | return($resul); |
|---|
| 110 | } |
|---|
| 111 | ?> |
|---|
