source: admin/WebConsole/propiedades/propiedades_entornos.php @ 5701de1

918-git-images-111dconfigfileconfigure-oglivegit-imageslgromero-new-oglivemainmaint-cronmount-efivarfsmultivmmultivm-ogboot-installerogClonningEngineogboot-installer-jenkinsoglive-ipv6test-python-scriptsticket-301ticket-50ticket-50-oldticket-577ticket-585ticket-611ticket-612ticket-693ticket-700ubu24tplunification2use-local-agent-oglivevarios-instalacionwebconsole3
Last change on this file since 5701de1 was 00b3dff, checked in by alonso <alonso@…>, 15 years ago

Modificaciones de Alfonso

git-svn-id: https://opengnsys.es/svn/trunk@855 a21b9725-9963-47de-94b9-378ad31fedc9
  • Property mode set to 100644
File size: 6.8 KB
Line 
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: Febrero-2005
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$repositorio="";
31
32
33if (isset($_GET["opcion"])) $opcion=$_GET["opcion"]; // Recoge parametros
34if (isset($_GET["identorno"])) $identorno=$_GET["identorno"];
35
36//________________________________________________________________________________________________________
37$cmd=CreaComando($cadenaconexion); // Crea objeto comando
38
39
40if (!$cmd){
41        Header('Location: '.$pagerror.'?herror=2'); // Error de conexión con servidor B.D.
42}
43if  ($opcion!=$op_alta){
44        $resul=TomaPropiedades($cmd,$identorno);
45        if (!$resul)
46                Header('Location: '.$pagerror.'?herror=3'); // Error de recuperación de datos.
47}
48
49
50//________________________________________________________________________________________________________
51?>
52<HTML>
53<TITLE>Administración web de aulas</TITLE>
54<HEAD>
55        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
56        <LINK rel="stylesheet" type="text/css" href="../estilos.css">
57        <SCRIPT language="javascript" src="../jscripts/propiedades_entornos.js"></SCRIPT>
58        <SCRIPT language="javascript" src="../jscripts/opciones.js"></SCRIPT>
59        <SCRIPT language="javascript" >
60
61        </SCRIPT>
62
63        <? echo '<SCRIPT language="javascript" src="../idiomas/javascripts/'.$idioma.'/propiedades_entornos_'.$idioma.'.js"></SCRIPT>'?>
64        <? echo '<SCRIPT language="javascript" src="../idiomas/javascripts/'.$idioma.'/comunes_'.$idioma.'.js"></SCRIPT>'?>
65</HEAD>
66<BODY>
67<DIV  align=center>
68<FORM  name="fdatos" action="../gestores/gestor_entornos.php" method="post">
69        <INPUT type=hidden name="identorno" value="<? echo $identorno?>">
70        <INPUT type=hidden name="opcion" value="<? echo $opcion?>">
71
72        <P align=center class=cabeceras><?echo $TbMsg[4]?><BR>
73        <SPAN align=center class=subcabeceras><? echo $opciones[$opcion]?></SPAN></P>
74        <TABLE  align=center border=0 cellPadding=1 cellSpacing=1 class=tabla_datos >
75
76       
77
78<!------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
79                <TR>
80                        <TH align=center>&nbsp;<?echo $TbMsg[5]?>&nbsp;</TD>
81                        <?
82                                if ($opcion==$op_eliminacion){
83                                        echo '<TD>'. $ipserveradm.'</TD>';
84                        }
85                        else{
86                                        echo '<TD><INPUT type=tex class="formulariodatos" name=ipserveradm size="50" value="'. $ipserveradm.'"></TD>';
87                                       
88                        }
89                        ?>
90                </TR>
91<!------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
92                <TR>
93                        <TH align=center>&nbsp;<?echo $TbMsg[6]?>&nbsp;</TD>
94                        <?if ($opcion==$op_eliminacion)
95                                        echo '<TD>'.$portserveradm.'&nbsp; </TD>';
96                                else
97                                        echo '<TD><INPUT type=text class="formulariodatos" name=portserveradm size="50" value="'.$portserveradm.'"></TD>';
98                        ?>
99                </TR>   
100               
101<!------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
102                <TR>
103                        <TH align=center>&nbsp;<?echo $TbMsg[7]?>&nbsp;</TD>
104                        <?
105                                if ($opcion==$op_eliminacion)
106                                        echo '<TD>'.$protoclonacion.'</TD>';
107                                else{
108                                                $metodos="UNICAST=UNICAST".chr(13);
109                                                $metodos.="MULTICAST=MULTICAST".chr(13);
110                                                $metodos.="TORRENT=TORRENT";
111                                        echo '<TD>'.HTMLCTESELECT($metodos,"protoclonacion","estilodesple","",$protoclonacion,100).'</TD>'.chr(13);
112                        } 
113                        ?>
114                </TR>   
115<!------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
116
117                <TR>
118                        <TH align=center>&nbsp;<?echo $TbMsg[8]?>&nbsp;</TD>
119                        <?if ($opcion==$op_eliminacion)
120                                        echo '<TD style="width:300"><IMG src="'.$tbimg[$repositorio].'">&nbsp;&nbsp;('.$TbMsg[8+$repositorio].')</TD>';
121                        else{
122                                        echo '<TD>';
123                                        echo '<INPUT  name=repositorio type=radio value="'.$CON_REPOSITORIO.'"';
124                                        if ($repositorio==1) echo " checked ";
125                                        echo ">".$TbMsg[9];
126
127                                        echo '<INPUT  name=repositorio type=radio value="'.$SIN_REPOSITORIO.'"';
128                                        if ($repositorio==0) echo " checked ";
129                                        echo ">".$TbMsg[10];
130                                        echo '</TD>';
131                        }
132                        ?>
133                </TR>   
134
135<!------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
136        </TABLE>
137</FORM>
138</DIV>
139<?
140//________________________________________________________________________________________________________
141include_once("../includes/opcionesbotonesop.php");
142//________________________________________________________________________________________________________
143
144?>
145</BODY>
146</HTML>
147<?
148//________________________________________________________________________________________________________
149//      Recupera los datos de entorno
150//              Parametros:
151//              - cmd: Una comando ya operativo (con conexión abierta) 
152//              - id: El identificador del entorno.
153//________________________________________________________________________________________________________
154function TomaPropiedades($cmd,$id){
155
156  global $identorno;   
157        global $ipserveradm;
158        global $portserveradm;
159        global $protoclonacion;
160        global $repositorio;
161
162        $rs=new Recordset;
163        $cmd->texto="SELECT * FROM entornos WHERE identorno=".$id;
164
165        $rs->Comando=&$cmd;
166        if (!$rs->Abrir()) return(false); // Error al abrir recordset
167        $rs->Primero();
168        if (!$rs->EOF){
169                $ipserveradm=$rs->campos["ipserveradm"];
170                $portserveradm=$rs->campos["portserveradm"];
171                $protoclonacion=$rs->campos["protoclonacion"];
172                $repositorio=$rs->campos["repositorio"];               
173
174                $rs->Cerrar();
175                return(true);
176        }
177        else
178                return(false);
179}
180?>
Note: See TracBrowser for help on using the repository browser.