source: admin/WebConsole/propiedades/propiedades_entornos.php @ 5d05b06

Last change on this file since 5d05b06 was b0d5fb32, checked in by Ramón M. Gómez <ramongomez@…>, 6 years ago

#834: Fixing more code cleanup: CSS units, HTML syntax and PHP closing tags.
  • Property mode set to 100644
File size: 5.9 KB
RevLine 
[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: propiedades_entornos.php
8// Descripción :
9//               Presenta el formulario de captura de datos de entorno para insertar,modificar y eliminar
10// *************************************************************************************************************************************************
11include_once("../includes/ctrlacc.php");
12include_once("../includes/opciones.php");
13include_once("../includes/constantes.php");
14include_once("../includes/CreaComando.php");
15include_once("../includes/TomaDato.php");
16include_once("../includes/HTMLSELECT.php");
17include_once("../includes/HTMLCTESELECT.php");
18include_once("../clases/AdoPhp.php");
19include_once("../idiomas/php/".$idioma."/propiedades_entornos_".$idioma.".php");
20//________________________________________________________________________________________________________
21$opcion=0;
22$opciones=array($TbMsg[0],$TbMsg[1],$TbMsg[2],$TbMsg[3]);
23//________________________________________________________________________________________________________
24
25
26$identorno=1;
27$ipserveradm="";
28$portserveradm="";
29$protoclonacion="";
30
31
32if (isset($_GET["opcion"])) $opcion=$_GET["opcion"]; // Recoge parametros
33if (isset($_GET["identorno"])) $identorno=$_GET["identorno"];
34
35//________________________________________________________________________________________________________
36$cmd=CreaComando($cadenaconexion); // Crea objeto comando
37
38
39if (!$cmd){
40        Header('Location: '.$pagerror.'?herror=2'); // Error de conexión con servidor B.D.
41}
42if  ($opcion!=$op_alta){
43        $resul=TomaPropiedades($cmd,$identorno);
44        if (!$resul)
45                Header('Location: '.$pagerror.'?herror=3'); // Error de recuperación de datos.
46}
47
48
49//________________________________________________________________________________________________________
50?>
51<HTML>
52<HEAD>
[b0d5fb32]53    <TITLE>Administración web de aulas</TITLE>
[3ec149c]54        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
55        <LINK rel="stylesheet" type="text/css" href="../estilos.css">
56        <SCRIPT language="javascript" src="../jscripts/propiedades_entornos.js"></SCRIPT>
57        <SCRIPT language="javascript" src="../jscripts/opciones.js"></SCRIPT>
[043e67d]58        <?php echo '<SCRIPT language="javascript" src="../idiomas/javascripts/'.$idioma.'/propiedades_entornos_'.$idioma.'.js"></SCRIPT>'?>
59        <?php echo '<SCRIPT language="javascript" src="../idiomas/javascripts/'.$idioma.'/comunes_'.$idioma.'.js"></SCRIPT>'?>
[3ec149c]60</HEAD>
61<BODY>
62<DIV  align=center>
[b0d5fb32]63<FORM name="fdatos" action="../gestores/gestor_entornos.php" method="post">
[043e67d]64        <INPUT type=hidden name=identorno value="<?php echo $identorno?>">
[3ec149c]65
[043e67d]66        <P align=center class=cabeceras><?php echo $TbMsg[4]?><BR>
[b0d5fb32]67        <SPAN class=subcabeceras><?php echo $opciones[$opcion]?></SPAN></P>
[3ec149c]68        <TABLE  align=center border=0 cellPadding=1 cellSpacing=1 class=tabla_datos >
69
70       
71
72<!------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
73                <TR>
[b0d5fb32]74                        <TH align=center>&nbsp;<?php echo $TbMsg[5]?>&nbsp;</TH>
[043e67d]75                        <?php
[3ec149c]76                                if ($opcion==$op_eliminacion){
77                                        echo '<TD>'. $ipserveradm.'</TD>';
78                        }
79                        else{
80                                        echo '<TD><INPUT type=tex class="formulariodatos" name=ipserveradm size="50" value="'. $ipserveradm.'"></TD>';
81                                       
82                        }
83                        ?>
84                </TR>
85<!------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
86                <TR>
[b0d5fb32]87                        <TH align=center>&nbsp;<?php echo $TbMsg[6]?>&nbsp;</TH>
[043e67d]88                        <?php if ($opcion==$op_eliminacion)
[3ec149c]89                                        echo '<TD>'.$portserveradm.'&nbsp; </TD>';
90                                else
91                                        echo '<TD><INPUT type=text class="formulariodatos" name=portserveradm size="50" value="'.$portserveradm.'"></TD>';
92                        ?>
93                </TR>   
94               
95<!------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
96                <TR>
[b0d5fb32]97                        <TH align=center>&nbsp;<?php echo $TbMsg[7]?>&nbsp;</TH>
[043e67d]98                        <?php
[3ec149c]99                                if ($opcion==$op_eliminacion)
100                                        echo '<TD>'.$protoclonacion.'</TD>';
101                                else{
102                                                $metodos="UNICAST=UNICAST".chr(13);
103                                                $metodos.="MULTICAST=MULTICAST".chr(13);
104                                                $metodos.="TORRENT=TORRENT";
105                                        echo '<TD>'.HTMLCTESELECT($metodos,"protoclonacion","estilodesple","",$protoclonacion,100).'</TD>'.chr(13);
106                        } 
107                        ?>
108                </TR>   
109<!------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
110        </TABLE>
111</FORM>
112</DIV>
[043e67d]113<?php
[3ec149c]114//________________________________________________________________________________________________________
115include_once("../includes/opcionesbotonesop.php");
116//________________________________________________________________________________________________________
117?>
118</BODY>
119</HTML>
[043e67d]120<?php
[3ec149c]121//________________________________________________________________________________________________________
122//      Recupera los datos de entorno
123//              Parametros:
124//              - cmd: Una comando ya operativo (con conexión abierta) 
125//              - id: El identificador del entorno.
126//________________________________________________________________________________________________________
127function TomaPropiedades($cmd,$id){
128
129  global $identorno;   
130        global $ipserveradm;
131        global $portserveradm;
132        global $protoclonacion;
133       
134
135        $rs=new Recordset;
136        $cmd->texto="SELECT * FROM entornos WHERE identorno=".$id;
137
138        $rs->Comando=&$cmd;
139        if (!$rs->Abrir()) return(false); // Error al abrir recordset
140        $rs->Primero();
141        if (!$rs->EOF){
142                $ipserveradm=$rs->campos["ipserveradm"];
143                $portserveradm=$rs->campos["portserveradm"];
144                $protoclonacion=$rs->campos["protoclonacion"];
145               
146                $rs->Cerrar();
147                return(true);
148        }
149        else
150                return(false);
151}
Note: See TracBrowser for help on using the repository browser.