diff options
Diffstat (limited to 'admin/WebConsole/includes/comunes.php')
| -rw-r--r-- | admin/WebConsole/includes/comunes.php | 190 |
1 files changed, 0 insertions, 190 deletions
diff --git a/admin/WebConsole/includes/comunes.php b/admin/WebConsole/includes/comunes.php deleted file mode 100644 index 8fbb3674..00000000 --- a/admin/WebConsole/includes/comunes.php +++ /dev/null @@ -1,190 +0,0 @@ -<? -//________________________________________________________________________________________ -// -// Trocea en elementos de una matriz la cadena enviada como parametro separando por parametros -// Parámetros: -// - trama: La trama -// Devuelve: -// Una matriz con las parejas de paramertos "nombre=valor" -//________________________________________________________________________________________ -function extrae_parametros($parametros,$chsep,$chval){ - $ParametrosCadena=""; - $auxP=split($chsep,$parametros); - for ($i=0;$i<sizeof($auxP);$i++){ - $dualparam=split($chval,$auxP[$i]); - if (isset($dualparam[0]) && isset($dualparam[1])){ - $streval='$ParametrosCadena["'.$dualparam[0].'"]="'.$dualparam[1].'";'; - eval($streval); - } - } - return($ParametrosCadena); -} -//________________________________________________________________________________________ -// -// Trocea en elementos de una matriz la cadena enviada como parametro separando por parametros y devolviendo el elegido -// Parámetros: -// Devuelve: -//________________________________________________________________________________________ -function extrae_parametro($parametros,$chsep,$chval,$chr){ - $ParametrosCadena=""; - $auxP=split($chsep,$parametros); - for ($i=0;$i<sizeof($auxP);$i++){ - $dualparam=split($chval,$auxP[$i]); - if (isset($dualparam[0]) && isset($dualparam[1])){ - if($dualparam[0]==$chr) - return($dualparam[1]); - } - } - return(""); -} - - -//________________________________________________________________________________________ -// -// Busca una cadena dentro de otra. -// Especificaciones: -// Puede ser sensible a las mayúsculas -// Parametros: -// cadena; cadena donde se va a buscar -// subcadena; cadena a buscar -// swsensible; si es sensible o no a las mayúsculas y minúsculas -// Devuelve: -// La posición de comienzo de la subcadena dentro de la cadena, o (-1) en caso de no estar dentro -//________________________________________________________________________________________ -function EnCadena($cadena,$subcadena,$swsensible = false) { - $i=0; - while (strlen($cadena)>=$i) { - unset($substring); - if ($swsensible) { - $subcadena=strtolower($subcadena); - $cadena=strtolower($cadena); - } - $substring=substr($cadena,$i,strlen($subcadena)); - if ($substring==$subcadena) return$i; - $i++; - } - return -1; - } -//_____________________________________________________________________________________________ -// Búsqueda binaria o dicotómica en una tabla y devuelve el índice del elemento buscado tabla de una dimension -//_____________________________________________________________________________________________ -function busca_indicebinario($dato,$tabla,$cont){ - if (empty($tabla)) return(-1); - $a=0; - $b=$cont-1; - do{ - $p=round(($a+$b)/2,0); - if ($tabla[$p]==$dato) - return($p); - - else{ - if ($tabla[$p]<$dato){ - $a=$p+1; - } - else - $b=$p-1; - } - }while($b>=$a); - return(-1); -} -//_____________________________________________________________________________________________ -// Búsqueda binaria o dicotómica en una tabla y devuelve el índice del elemento buscado tabla de dos dimensiones -//_____________________________________________________________________________________________ -function busca_indicebinariodual($dato,$tabla,$cont){ - $a=0; - $b=$cont-1; - do{ - $p=round(($a+$b)/2,0); - if ($tabla[$p][0]==$dato) - return($p); - - else{ - if ($tabla[$p][0]<$dato){ - $a=$p+1; - } - else - $b=$p-1; - } - }while($b>=$a); - return(-1); -} -//___________________________________________________________________________________ -function CreaTablaParametros($cmd){ - - global $tabla_parametros; - global $cont_parametros; - - $rs=new Recordset; - $cmd->texto="SELECT * FROM parametros"; - $rs->Comando=&$cmd; - if (!$rs->Abrir()) return; // Error al abrir recordset - $rs->Primero(); - $cont=0; - while (!$rs->EOF){ - $auxtabla_parametros=""; - $auxtabla_parametros["nemonico"]=$rs->campos["nemonico"]; - $auxtabla_parametros["descripcion"]=$rs->campos["descripcion"]; - $auxtabla_parametros["nomidentificador"]=$rs->campos["nomidentificador"]; - $auxtabla_parametros["nomtabla"]=$rs->campos["nomtabla"]; - $auxtabla_parametros["nomliteral"]=$rs->campos["nomliteral"]; - $auxtabla_parametros["tipopa"]=$rs->campos["tipopa"]; - $tabla_parametros[$cont][0]=$auxtabla_parametros["nemonico"]; - $tabla_parametros[$cont][1]=$auxtabla_parametros; - $cont++; - $rs->Siguiente(); - } - $auxnemonico=""; - // Ordena según el nemonico - for ($i=0;$i<$cont-1;$i++){ - for ($j=$i+1;$j<$cont;$j++){ - if($tabla_parametros[$i][0]>$tabla_parametros[$j][0]){ - $auxnemonico=$tabla_parametros[$i][0]; - $tabla_parametros[$i][0]=$tabla_parametros[$j][0]; - $tabla_parametros[$j][0]=$auxnemonico; - - $auxtabla_parametros=$tabla_parametros[$i][1]; - $tabla_parametros[$i][1]=$tabla_parametros[$j][1]; - $tabla_parametros[$j][1]=$auxtabla_parametros; - } - } - } - $cont_parametros=$cont; -} -/*______________________________________________________________________ - Redirecciona a la página de error - Parametros: - - Literal del error -_______________________________________________________________________*/ -function RedireccionaError($herror){ - - $urlerror=urldecode($herror); - $wurl="../seguridad/logerror.php?herror=".$urlerror; - Header('Location: '.$wurl); -} - -/*______________________________________________________________________ - Elimina de la cadena de parametros, el parametro iph ( que debe ser el ultimo) - Parametros: - - cadena de parametros de un comando - Devuelve: - - la cadena sin el parametro iph y su valor -_______________________________________________________________________*/ -function Sin_iph($cadena){ - - $pos=EnCadena($cadena,"iph=") ; - if($pos==-1) return($cadena); - return(substr($cadena,0,$pos)); -} -/*______________________________________________________________________ - Elimina de la cadena de parametros, el parametro mac ( que debe ser el ultimo) - Parametros: - - cadena de parametros de un comando - Devuelve: - - la cadena sin el parametro iph y su valor -_______________________________________________________________________*/ -function Sin_mac($cadena){ - - $pos=EnCadena($cadena,"mac=") ; - if($pos==-1) return($cadena); - return(substr($cadena,0,$pos)); -} |