[34374f0] | 1 | <?php |
---|
[3ec149c] | 2 | //________________________________________________________________________________________ |
---|
| 3 | // |
---|
| 4 | // Trocea en elementos de una matriz la cadena enviada como parametro separando por parametros |
---|
| 5 | // Parámetros: |
---|
| 6 | // - trama: La trama |
---|
| 7 | // Devuelve: |
---|
[157b7d3] | 8 | // Una matriz con las parejas de parámertos "nombre=valor" |
---|
[3ec149c] | 9 | //________________________________________________________________________________________ |
---|
| 10 | function extrae_parametros($parametros,$chsep,$chval){ |
---|
[157b7d3] | 11 | $ParametrosCadena=array(); |
---|
[9f1274e] | 12 | $auxP=explode($chsep,$parametros); |
---|
[3ec149c] | 13 | for ($i=0;$i<sizeof($auxP);$i++){ |
---|
[9f1274e] | 14 | $dualparam=explode($chval,$auxP[$i]); |
---|
[3ec149c] | 15 | |
---|
| 16 | if (isset($dualparam[0]) && isset($dualparam[1])){ |
---|
| 17 | $streval='$ParametrosCadena["'.$dualparam[0].'"]="'.$dualparam[1].'";'; |
---|
| 18 | eval($streval); |
---|
| 19 | } |
---|
| 20 | } |
---|
| 21 | return($ParametrosCadena); |
---|
| 22 | } |
---|
| 23 | //________________________________________________________________________________________ |
---|
| 24 | // |
---|
| 25 | // Trocea en elementos de una matriz la cadena enviada como parametro separando por parametros |
---|
| 26 | // y devolviendo el elegido |
---|
| 27 | // Parámetros: |
---|
| 28 | // Devuelve: |
---|
| 29 | //________________________________________________________________________________________ |
---|
| 30 | function extrae_parametro($parametros,$chsep,$chval,$chr){ |
---|
| 31 | $ParametrosCadena=""; |
---|
[9f1274e] | 32 | $auxP=explode($chsep,$parametros); |
---|
[3ec149c] | 33 | for ($i=0;$i<sizeof($auxP);$i++){ |
---|
[9f1274e] | 34 | $dualparam=explode($chval,$auxP[$i]); |
---|
[3ec149c] | 35 | if (isset($dualparam[0]) && isset($dualparam[1])){ |
---|
| 36 | if($dualparam[0]==$chr) |
---|
| 37 | return($dualparam[1]); |
---|
| 38 | } |
---|
| 39 | } |
---|
| 40 | return(""); |
---|
| 41 | } |
---|
| 42 | //________________________________________________________________________________________ |
---|
| 43 | // |
---|
| 44 | // Busca una cadena dentro de otra. |
---|
| 45 | // Especificaciones: |
---|
| 46 | // Puede ser sensible a las mayúsculas |
---|
| 47 | // Parametros: |
---|
| 48 | // cadena; cadena donde se va a buscar |
---|
| 49 | // subcadena; cadena a buscar |
---|
| 50 | // swsensible; si es sensible o no a las mayúsculas y minúsculas |
---|
| 51 | // Devuelve: |
---|
| 52 | // La posición de comienzo de la subcadena dentro de la cadena, o (-1) en caso de no estar dentro |
---|
| 53 | //________________________________________________________________________________________ |
---|
| 54 | function EnCadena($cadena,$subcadena,$swsensible = false) { |
---|
| 55 | $i=0; |
---|
| 56 | while (strlen($cadena)>=$i) { |
---|
| 57 | unset($substring); |
---|
| 58 | if ($swsensible) { |
---|
| 59 | $subcadena=strtolower($subcadena); |
---|
| 60 | $cadena=strtolower($cadena); |
---|
| 61 | } |
---|
| 62 | $substring=substr($cadena,$i,strlen($subcadena)); |
---|
| 63 | if ($substring==$subcadena) return$i; |
---|
| 64 | $i++; |
---|
| 65 | } |
---|
| 66 | return -1; |
---|
| 67 | } |
---|
| 68 | //_____________________________________________________________________________________________ |
---|
| 69 | // Búsqueda binaria o dicotómica en una tabla y devuelve el índice del elemento buscado tabla de una dimension |
---|
| 70 | //_____________________________________________________________________________________________ |
---|
| 71 | function busca_indicebinario($dato,$tabla,$cont){ |
---|
| 72 | if (empty($tabla)) return(-1); |
---|
| 73 | $a=0; |
---|
| 74 | $b=$cont-1; |
---|
| 75 | do{ |
---|
| 76 | $p=round(($a+$b)/2,0); |
---|
| 77 | if ($tabla[$p]==$dato) |
---|
| 78 | return($p); |
---|
| 79 | |
---|
| 80 | else{ |
---|
| 81 | if ($tabla[$p]<$dato){ |
---|
| 82 | $a=$p+1; |
---|
| 83 | } |
---|
| 84 | else |
---|
| 85 | $b=$p-1; |
---|
| 86 | } |
---|
| 87 | }while($b>=$a); |
---|
| 88 | return(-1); |
---|
| 89 | } |
---|
| 90 | //_____________________________________________________________________________________________ |
---|
| 91 | // Búsqueda binaria o dicotómica en una tabla y devuelve el índice del elemento buscado tabla de dos dimensiones |
---|
| 92 | //_____________________________________________________________________________________________ |
---|
| 93 | function busca_indicebinariodual($dato,$tabla,$cont){ |
---|
| 94 | $a=0; |
---|
| 95 | $b=$cont-1; |
---|
| 96 | do{ |
---|
| 97 | $p=round(($a+$b)/2,0); |
---|
| 98 | if ($tabla[$p][0]==$dato) |
---|
| 99 | return($p); |
---|
| 100 | |
---|
| 101 | else{ |
---|
| 102 | if ($tabla[$p][0]<$dato){ |
---|
| 103 | $a=$p+1; |
---|
| 104 | } |
---|
| 105 | else |
---|
| 106 | $b=$p-1; |
---|
| 107 | } |
---|
| 108 | }while($b>=$a); |
---|
| 109 | return(-1); |
---|
| 110 | } |
---|
| 111 | //___________________________________________________________________________________ |
---|
| 112 | // |
---|
| 113 | // Crea un Array con las especificaciones de los parámetros de los comandos |
---|
| 114 | //___________________________________________________________________________________ |
---|
| 115 | function CreaTablaParametros($cmd) |
---|
| 116 | { |
---|
| 117 | $cmd->texto="SELECT * FROM parametros ORDER BY nemonico"; |
---|
| 118 | $rs=new Recordset; |
---|
| 119 | $rs->Comando=&$cmd; |
---|
| 120 | if (!$rs->Abrir()) return(false); // Error al abrir recordset |
---|
| 121 | $cont=0; |
---|
| 122 | while (!$rs->EOF){ |
---|
| 123 | $nemo=$rs->campos["nemonico"]; |
---|
[a7406f2] | 124 | $auxtabla_parametros=array(); |
---|
[3ec149c] | 125 | $auxtabla_parametros["nemonico"]=$nemo; |
---|
| 126 | $auxtabla_parametros["descripcion"]=$rs->campos["descripcion"]; |
---|
| 127 | $auxtabla_parametros["nomidentificador"]=$rs->campos["nomidentificador"]; |
---|
| 128 | $auxtabla_parametros["nomtabla"]=$rs->campos["nomtabla"]; |
---|
| 129 | $auxtabla_parametros["nomliteral"]=$rs->campos["nomliteral"]; |
---|
| 130 | $auxtabla_parametros["tipopa"]=$rs->campos["tipopa"]; |
---|
| 131 | $auxtabla_parametros["visual"]=$rs->campos["visual"]; |
---|
| 132 | $tabla_parametros[$nemo]=$auxtabla_parametros; |
---|
| 133 | $cont++; |
---|
| 134 | $rs->Siguiente(); |
---|
| 135 | } |
---|
| 136 | return($tabla_parametros); |
---|
| 137 | } |
---|
| 138 | //___________________________________________________________________________________ |
---|
| 139 | // |
---|
| 140 | // Crea una tabla en memoria con los valores reales de los parámetros enviados |
---|
| 141 | // |
---|
| 142 | // Parámetros: |
---|
| 143 | // $cmd: Objeto comando (Operativo) |
---|
| 144 | // $parámetros: El formato de parámetros que viaje en las trama y que es el mismo |
---|
| 145 | // que se almacenan en las tablas de procedimientos_acciones o acciones |
---|
| 146 | //___________________________________________________________________________________ |
---|
| 147 | |
---|
[9204a04] | 148 | function ParametrosValor($cmd,$parametros,&$tbParametrosValor,$ch="\r") |
---|
[3ec149c] | 149 | { |
---|
| 150 | global $tbParametros; |
---|
| 151 | $html=""; |
---|
[9f1274e] | 152 | $auxprm=explode($ch,$parametros); |
---|
[3ec149c] | 153 | for($i=0;$i<sizeof($auxprm);$i++){ |
---|
[9f1274e] | 154 | list($nemonico,$valor)=explode("=",$auxprm[$i]); |
---|
[3ec149c] | 155 | if(isset($tbParametros[$nemonico])){ |
---|
| 156 | if($tbParametros[$nemonico]["visual"]==1){ |
---|
| 157 | $tbParametrosValor[$nemonico]["descripcion"]=$tbParametros[$nemonico]["descripcion"]; |
---|
| 158 | switch($tbParametros[$nemonico]["tipopa"]){ |
---|
| 159 | case 0: // El valor lo toma directamente |
---|
| 160 | $tbParametrosValor[$nemonico]["valor"]=$valor; |
---|
| 161 | break; |
---|
| 162 | case 1: // El valor lo toma de una tabla */ |
---|
| 163 | $tbParametrosValor[$nemonico]["valor"]=TomaDato($cmd,0,$tbParametros[$nemonico]["nomtabla"],$valor,$tbParametros[$nemonico]["nomidentificador"],$tbParametros[$nemonico]["nomliteral"]); |
---|
| 164 | break; |
---|
| 165 | case 2: // El parámetro es compuesto de otros parametros |
---|
[9f1274e] | 166 | $blkprm=explode(chr(10),substr($auxprm[$i],4)); |
---|
[3ec149c] | 167 | for($j=0;$j<sizeof($blkprm);$j++){ |
---|
| 168 | $tbSubParametrosValor=array(); |
---|
[34374f0] | 169 | ParametrosValor($cmd,$blkprm[$j],$tbSubParametrosValor,chr(9)); |
---|
[3ec149c] | 170 | for($k=0;$k<sizeof($tbSubParametrosValor);$k++){ |
---|
| 171 | $elem=current($tbSubParametrosValor); |
---|
| 172 | $tbParametrosValor[$nemonico][$j]["valor"].=$elem["descripcion"]; |
---|
| 173 | $tbParametrosValor[$nemonico][$j]["valor"].=": ".$elem["valor"]; |
---|
| 174 | $tbParametrosValor[$nemonico][$j]["valor"].=", "; |
---|
| 175 | next($tbSubParametrosValor); |
---|
| 176 | } |
---|
| 177 | } |
---|
| 178 | break; |
---|
| 179 | case 3: // El valor lo toma de una array |
---|
[9f1274e] | 180 | $tbcte=explode($tbParametros[$nemonico]["nomidentificador"],$tbParametros[$nemonico]["nomliteral"]); |
---|
[3ec149c] | 181 | $tbParametrosValor[$nemonico]["valor"]=$tbcte[$valor]; |
---|
| 182 | break; |
---|
| 183 | case 4: // El valor lo toma directamente pero está codificado con urlencode |
---|
| 184 | $tbParametrosValor[$nemonico]["valor"]='<PRE>'.urldecode($valor).'</PRE>'; |
---|
[4329e85] | 185 | break; |
---|
| 186 | case 5: // El valor es 0 ó 1 y se muestra NO o SI |
---|
| 187 | $tbSN[0]="No"; |
---|
| 188 | $tbSN[1]="Si"; |
---|
| 189 | $tbParametrosValor[$nemonico]["valor"]=$tbSN[$valor]; |
---|
[3ec149c] | 190 | } |
---|
| 191 | } |
---|
| 192 | } |
---|
| 193 | } |
---|
| 194 | } |
---|
| 195 | /*______________________________________________________________________ |
---|
| 196 | Redirecciona a la página de error |
---|
| 197 | Parametros: |
---|
| 198 | - Literal del error |
---|
| 199 | _______________________________________________________________________*/ |
---|
| 200 | function RedireccionaError($herror){ |
---|
| 201 | |
---|
| 202 | $urlerror=urldecode($herror); |
---|
| 203 | $wurl="../seguridad/logerror.php?herror=".$urlerror; |
---|
| 204 | Header('Location: '.$wurl); |
---|
| 205 | } |
---|
| 206 | |
---|
| 207 | /*______________________________________________________________________ |
---|
| 208 | Elimina de la cadena de parametros, el parametro iph ( que debe ser el ultimo) |
---|
| 209 | Parametros: |
---|
| 210 | - cadena de parametros de un comando |
---|
| 211 | Devuelve: |
---|
| 212 | - la cadena sin el parametro iph y su valor |
---|
| 213 | _______________________________________________________________________*/ |
---|
| 214 | function Sin_iph($cadena){ |
---|
| 215 | |
---|
| 216 | $pos=EnCadena($cadena,"iph=") ; |
---|
| 217 | if($pos==-1) return($cadena); |
---|
| 218 | return(substr($cadena,0,$pos)); |
---|
| 219 | } |
---|
| 220 | /*______________________________________________________________________ |
---|
| 221 | Elimina de la cadena de parametros, el parametro mac ( que debe ser el ultimo) |
---|
| 222 | Parametros: |
---|
| 223 | - cadena de parametros de un comando |
---|
| 224 | Devuelve: |
---|
| 225 | - la cadena sin el parametro iph y su valor |
---|
| 226 | _______________________________________________________________________*/ |
---|
| 227 | function Sin_mac($cadena){ |
---|
| 228 | |
---|
| 229 | $pos=EnCadena($cadena,"mac=") ; |
---|
| 230 | if($pos==-1) return($cadena); |
---|
| 231 | return(substr($cadena,0,$pos)); |
---|
| 232 | } |
---|
| 233 | /*______________________________________________________________________ |
---|
| 234 | Formatea un campo númerico con los puntos de las unidades de millar |
---|
| 235 | Parametros: |
---|
| 236 | - cadena con el valor del campo |
---|
| 237 | Devuelve: |
---|
| 238 | - la cadena con los puntos de los miles |
---|
| 239 | ________________________________________________________________________*/ |
---|
| 240 | function formatomiles($cadena){ |
---|
| 241 | $len=strlen($cadena); |
---|
| 242 | $cadenafinal=""; |
---|
| 243 | $m=1; |
---|
| 244 | for($i=$len-1;$i>=0;$i--){ |
---|
| 245 | $cadenafinal=substr($cadena,$i,1).$cadenafinal; |
---|
| 246 | if($m%3==0 && $i>0){ |
---|
[4329e85] | 247 | $cadenafinal=".".$cadenafinal; |
---|
| 248 | $m=0; |
---|
[3ec149c] | 249 | } |
---|
| 250 | $m++; |
---|
| 251 | } |
---|
| 252 | return($cadenafinal); |
---|
| 253 | } |
---|
| 254 | /*______________________________________________________________________ |
---|
| 255 | Devuelve la url de la imagen y la descripción de un ámbito |
---|
| 256 | Parametros: |
---|
| 257 | - ambito: Identificador del ambito |
---|
[4329e85] | 258 | - urlimg: Por referencia. Es donde se devuelve la url de la imagen |
---|
[3ec149c] | 259 | - textambito: Por referencia. Es donde se devuelve la descripción |
---|
| 260 | |
---|
| 261 | Devuelve: |
---|
| 262 | - Los dos parámetros pasados por referencia |
---|
| 263 | ________________________________________________________________________*/ |
---|
[34374f0] | 264 | function tomaAmbito($ambito,&$urlimg,&$textambito) |
---|
[3ec149c] | 265 | { |
---|
| 266 | global $AMBITO_CENTROS; |
---|
| 267 | global $AMBITO_GRUPOSAULAS; |
---|
| 268 | global $AMBITO_AULAS; |
---|
| 269 | global $AMBITO_GRUPOSORDENADORES; |
---|
| 270 | global $AMBITO_ORDENADORES; |
---|
| 271 | |
---|
| 272 | switch($ambito){ |
---|
| 273 | case $AMBITO_CENTROS : |
---|
| 274 | $urlimg='../images/iconos/centros.gif'; |
---|
| 275 | $textambito="Centros"; |
---|
| 276 | break; |
---|
| 277 | case $AMBITO_GRUPOSAULAS : |
---|
| 278 | $urlimg='../images/iconos/carpeta.gif'; |
---|
| 279 | $textambito="Grupos de aulas"; |
---|
| 280 | break; |
---|
| 281 | case $AMBITO_AULAS : |
---|
| 282 | $urlimg='../images/iconos/aula.gif'; |
---|
| 283 | $textambito="Aulas"; |
---|
| 284 | break; |
---|
| 285 | case $AMBITO_GRUPOSORDENADORES : |
---|
| 286 | $urlimg='../images/iconos/carpeta.gif'; |
---|
| 287 | $textambito="Grupos de ordenadores"; |
---|
| 288 | break; |
---|
| 289 | case $AMBITO_ORDENADORES : |
---|
| 290 | $urlimg='../images/iconos/ordenador.gif'; |
---|
| 291 | $textambito="Ordenadores"; |
---|
| 292 | break; |
---|
| 293 | default: |
---|
| 294 | $urlimg='../images/iconos/ordenador.gif'; |
---|
| 295 | $textambito="Ordenadores"; |
---|
| 296 | break; |
---|
| 297 | } |
---|
| 298 | } |
---|
| 299 | /*______________________________________________________________________ |
---|
| 300 | |
---|
| 301 | Devuelve la descripción de un ambito |
---|
| 302 | Parametros: |
---|
[a7406f2] | 303 | - cmd: Objeto comando (Operativo) |
---|
[3ec149c] | 304 | - ambito: tipo de ambito |
---|
| 305 | - idambito: Identificador del ambito |
---|
| 306 | - textambito: Por referencia. Es donde se devuelve la descripción |
---|
| 307 | |
---|
| 308 | Devuelve: |
---|
| 309 | - Los dos parámetros pasados por referencia |
---|
| 310 | ________________________________________________________________________*/ |
---|
| 311 | |
---|
[a7406f2] | 312 | function tomaDescriAmbito($cmd,$ambito,$idambito,&$textambito) |
---|
[3ec149c] | 313 | { |
---|
| 314 | global $AMBITO_CENTROS; |
---|
| 315 | global $AMBITO_GRUPOSAULAS; |
---|
| 316 | global $AMBITO_AULAS; |
---|
| 317 | global $AMBITO_GRUPOSORDENADORES; |
---|
| 318 | global $AMBITO_ORDENADORES; |
---|
| 319 | |
---|
[4329e85] | 320 | switch($ambito){ |
---|
| 321 | case $AMBITO_CENTROS : |
---|
| 322 | $textambito=TomaDato($cmd,0,'centros',$idambito,'idcentro','nombrecentro'); |
---|
| 323 | break; |
---|
| 324 | case $AMBITO_GRUPOSAULAS : |
---|
| 325 | $textambito=TomaDato($cmd,0,'grupos',$idambito,'idgrupo','nombregrupo'); |
---|
| 326 | break; |
---|
| 327 | case $AMBITO_AULAS : |
---|
| 328 | $textambito=TomaDato($cmd,0,'aulas',$idambito,'idaula','nombreaula'); |
---|
| 329 | break; |
---|
| 330 | case $AMBITO_GRUPOSORDENADORES : |
---|
| 331 | $textambito=TomaDato($cmd,0,'gruposordenadores',$idambito,'idgrupo','nombregrupoordenador'); |
---|
| 332 | break; |
---|
| 333 | case $AMBITO_ORDENADORES : |
---|
| 334 | $textambito=TomaDato($cmd,0,'ordenadores',$idambito,'idordenador','nombreordenador'); |
---|
| 335 | break; |
---|
| 336 | default: |
---|
[a7406f2] | 337 | $textambito=""; |
---|
[4329e85] | 338 | } |
---|
[3ec149c] | 339 | } |
---|
| 340 | /*______________________________________________________________________ |
---|
| 341 | |
---|
[4329e85] | 342 | Devuelve el código html de una etiqueta SELECT para un ámbito concreto |
---|
[3ec149c] | 343 | Parametros: |
---|
| 344 | - cmd: Objeto comando (Operativo) |
---|
| 345 | - ambito: tipo de ambito |
---|
| 346 | - idambito: Identificador del ambito |
---|
| 347 | - $idcentro: Centro donde pertenecen o 0 para todos |
---|
| 348 | - $wdth: Ancho del desplegable |
---|
| 349 | Devuelve: |
---|
| 350 | - Los dos parámetros pasados por referencia |
---|
| 351 | ________________________________________________________________________*/ |
---|
| 352 | |
---|
| 353 | function tomaSelectAmbito($cmd,$ambito,$idambito,$idcentro,$wdth) |
---|
| 354 | { |
---|
| 355 | global $AMBITO_CENTROS; |
---|
| 356 | global $AMBITO_GRUPOSAULAS; |
---|
| 357 | global $AMBITO_AULAS; |
---|
| 358 | global $AMBITO_GRUPOSORDENADORES; |
---|
| 359 | global $AMBITO_ORDENADORES; |
---|
| 360 | |
---|
| 361 | switch($ambito){ |
---|
| 362 | case $AMBITO_CENTROS : |
---|
| 363 | $selecHtml=HTMLSELECT($cmd,1,'centros',$idcentro,'idcentro','nombrecentro',$wdth); |
---|
| 364 | break; |
---|
| 365 | case $AMBITO_GRUPOSAULAS : |
---|
| 366 | $selecHtml=HTMLSELECT($cmd,$idcentro,'grupos',$idambito,'idgrupo','nombregrupo',$wdth,"","","tipo=".$AMBITO_GRUPOSAULAS); |
---|
| 367 | break; |
---|
| 368 | case $AMBITO_AULAS : |
---|
| 369 | $selecHtml=HTMLSELECT($cmd,$idcentro,'aulas',$idambito,'idaula','nombreaula',$wdth); |
---|
| 370 | break; |
---|
| 371 | case $AMBITO_GRUPOSORDENADORES : |
---|
[dbfc6aa] | 372 | $selecHtml=HTMLSELECT($cmd,0,'gruposordenadores',$idambito,'idgrupo','nombregrupoordenador',$wdth); |
---|
[3ec149c] | 373 | break; |
---|
| 374 | case $AMBITO_ORDENADORES : |
---|
| 375 | $clsWhere=" idaula IN (SELECT idaula FROM aulas WHERE idcentro=".$idcentro.")"; |
---|
| 376 | $selecHtml=HTMLSELECT($cmd,0,'ordenadores',$idambito,'idordenador','nombreordenador',$wdth,"","",$clsWhere); |
---|
| 377 | break; |
---|
| 378 | default: |
---|
| 379 | $selecHtml=""; |
---|
| 380 | } |
---|
| 381 | return($selecHtml); |
---|
[409af27] | 382 | } |
---|
[d610135] | 383 | |
---|
| 384 | /* |
---|
| 385 | * Devuelve el valor legible para un tamaño (en múltiplos de 1024). |
---|
| 386 | * Nota: obtenido de la documentación de PHP (php.net). |
---|
| 387 | * Parámetros: |
---|
| 388 | * bytes - tamaño en bytes (entero) |
---|
| 389 | * Devielve: |
---|
| 390 | * cadena con número en formato de sistema internacional (2 decimales) |
---|
| 391 | */ |
---|
| 392 | function humanSize($bytes) { |
---|
| 393 | $si_prefix = array( 'B', 'KB', 'MB', 'GB', 'TB', 'EB', 'ZB', 'YB' ); |
---|
| 394 | $base = 1024; |
---|
| 395 | $class = min((int)log($bytes , $base) , count($si_prefix) - 1); |
---|
[8e952da] | 396 | if ($class < 0) { |
---|
| 397 | return '0 B'; |
---|
| 398 | } else { |
---|
| 399 | return sprintf('%1.2f' , $bytes / pow($base, $class)) . ' ' . $si_prefix[$class]; |
---|
| 400 | } |
---|
[d610135] | 401 | } |
---|
| 402 | |
---|