| [043e67d] | 1 | <?php |
|---|
| [3ec149c] | 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 2009-2010 |
|---|
| 6 | // Fecha Última modificación: Agosto-2010 |
|---|
| 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 | |
|---|
| 17 | $identorno=0; |
|---|
| 18 | |
|---|
| 19 | $ipserveradm=""; |
|---|
| 20 | $portserveradm=0; |
|---|
| 21 | $protoclonacion=""; |
|---|
| 22 | |
|---|
| 23 | |
|---|
| 24 | if (isset($_POST["ipserveradm"])) $ipserveradm=$_POST["ipserveradm"]; |
|---|
| 25 | if (isset($_POST["portserveradm"])) $portserveradm=$_POST["portserveradm"]; |
|---|
| 26 | if (isset($_POST["protoclonacion"])) $protoclonacion=$_POST["protoclonacion"]; |
|---|
| 27 | |
|---|
| 28 | $tablanodo=""; // Arbol para nodos insertados |
|---|
| 29 | $cmd=CreaComando($cadenaconexion); // Crea objeto comando |
|---|
| 30 | $resul=false; |
|---|
| 31 | if ($cmd){ |
|---|
| 32 | $resul=Gestiona(); |
|---|
| 33 | $cmd->Conexion->Cerrar(); |
|---|
| 34 | } |
|---|
| 35 | // ************************************************************************************************************************************************* |
|---|
| 36 | ?> |
|---|
| 37 | <HTML> |
|---|
| 38 | <HEAD> |
|---|
| 39 | <meta http-equiv="Content-Type" content="text/html;charset=UTF-8"> |
|---|
| 40 | <BODY> |
|---|
| 41 | <SCRIPT language="javascript" src="../jscripts/propiedades_entornos.js"></SCRIPT> |
|---|
| [043e67d] | 42 | <?php echo '<SCRIPT language="javascript" src="../idiomas/javascripts/'.$idioma.'/comunes_'.$idioma.'.js"></SCRIPT>'?> |
|---|
| [3ec149c] | 43 | |
|---|
| [043e67d] | 44 | <?php |
|---|
| [3ec149c] | 45 | |
|---|
| 46 | $literal="resultado_modificar_entornos"; |
|---|
| 47 | |
|---|
| 48 | |
|---|
| 49 | if ($resul){ |
|---|
| 50 | echo '<SCRIPT language="javascript">'.chr(13); |
|---|
| 51 | echo $literal."(1,'".$cmd->DescripUltimoError()." ',".$identorno.");".chr(13); |
|---|
| 52 | echo '</SCRIPT>'; |
|---|
| 53 | } |
|---|
| 54 | else{ |
|---|
| 55 | echo '<SCRIPT language="javascript">'; |
|---|
| 56 | echo $literal."(0,'".$cmd->DescripUltimoError()."',".$identorno.")"; |
|---|
| 57 | echo '</SCRIPT>'; |
|---|
| 58 | } |
|---|
| 59 | |
|---|
| 60 | ?> |
|---|
| 61 | </BODY> |
|---|
| 62 | </HTML> |
|---|
| [043e67d] | 63 | <?php |
|---|
| [3ec149c] | 64 | /************************************************************************************************************************************************** |
|---|
| 65 | Inserta, modifica o elimina datos en la tabla entornos |
|---|
| 66 | ________________________________________________________________________________________________________*/ |
|---|
| 67 | function Gestiona() |
|---|
| 68 | { |
|---|
| 69 | global $cmd; |
|---|
| 70 | |
|---|
| 71 | global $identorno; |
|---|
| 72 | global $ipserveradm; |
|---|
| 73 | global $portserveradm; |
|---|
| 74 | global $protoclonacion; |
|---|
| 75 | |
|---|
| 76 | |
|---|
| 77 | $cmd->CreaParametro("@identorno",$identorno,1); |
|---|
| 78 | $cmd->CreaParametro("@ipserveradm",$ipserveradm,0); |
|---|
| 79 | $cmd->CreaParametro("@portserveradm",$portserveradm,1); |
|---|
| 80 | $cmd->CreaParametro("@protoclonacion",$protoclonacion,0); |
|---|
| 81 | |
|---|
| 82 | $cmd->texto="UPDATE entornos SET ipserveradm=@ipserveradm,portserveradm=@portserveradm,protoclonacion=@protoclonacion"; |
|---|
| 83 | $resul=$cmd->Ejecutar(); |
|---|
| 84 | return($resul); |
|---|
| 85 | } |
|---|
| 86 | ?> |
|---|
