#804: Sustituir funciones para compatibilidad con PHP 7 ({{{split}}} por {{{explode}}} y {{{ereg...}}} por {{{preg_...}}}).

git-svn-id: https://opengnsys.es/svn/branches/version1.1@5619 a21b9725-9963-47de-94b9-378ad31fedc9

7 files changed, 38 insertions, 38 deletions

diff --git a/admin/WebConsole/includes/CreaComando.php b/admin/WebConsole/includes/CreaComando.php
index f8d3f8d7..056ac3ae 100644
--- a/admin/WebConsole/includes/CreaComando.php
+++ b/admin/WebConsole/includes/CreaComando.php
@@ -12,7 +12,7 @@
 //		usuario,password,base de datos,etc separados por coma
 // *************************************************************************************************************************************************
 function CreaComando($cadenaconexion){
-	$strcn=split(";",$cadenaconexion);
+	$strcn=explode(";",$cadenaconexion);
 	$cn=new Conexion; 
 	$cmd=new Comando;	
 	$cn->CadenaConexion($strcn[0],$strcn[1],$strcn[2],$strcn[3],$strcn[4]);
@@ -21,4 +21,4 @@ function CreaComando($cadenaconexion){
 	$cmd->Conexion=&$cn; 
 	return($cmd);
 }
-?>
\ No newline at end of file
+?>
diff --git a/admin/WebConsole/includes/HTMLCTEMULSELECT.php b/admin/WebConsole/includes/HTMLCTEMULSELECT.php
index f7f24630..3de38882 100644
--- a/admin/WebConsole/includes/HTMLCTEMULSELECT.php
+++ b/admin/WebConsole/includes/HTMLCTEMULSELECT.php
@@ -20,10 +20,10 @@ function HTMLCTEMULSELECT($parametros,$nombreid,$tbvalor,$clase,$eventochg,$anch
 	if (!empty($eventochg)) $eventochg='onchange="'.$eventochg.'(this);"';
 	if (empty($clase))	$clase='formulariodatos';
 	$x=0;
-	$opciones=split(chr(13),$parametros);
+	$opciones=explode(chr(13),$parametros);
 	$SelectHtml= '<SELECT '.$eventochg.' class="'.$clase.'" name="'.$nombreid.'" multiple size='.$alto.' style="WIDTH: '.$ancho.'">';
 	for($i=0;$i<sizeof($opciones);$i++){
-		$item=split("=",$opciones[$i]);
+		$item=explode("=",$opciones[$i]);
 		$SelectHtml.= '<OPTION value="'.$item[0].'"';
 		if (isset($tbvalor[$x])){
 			if($tbvalor[$x]==$item[0]) {
@@ -34,4 +34,4 @@ function HTMLCTEMULSELECT($parametros,$nombreid,$tbvalor,$clase,$eventochg,$anch
 		$SelectHtml.= '>'.$item[1].'</OPTION>';
 	}
 	return($SelectHtml);
-}
\ No newline at end of file
+}
diff --git a/admin/WebConsole/includes/HTMLCTESELECT.php b/admin/WebConsole/includes/HTMLCTESELECT.php
index 31f59385..78b80084 100644
--- a/admin/WebConsole/includes/HTMLCTESELECT.php
+++ b/admin/WebConsole/includes/HTMLCTESELECT.php
@@ -18,11 +18,11 @@
 // *************************************************************************************************************************************************
 function HTMLCTESELECT($parametros,$nombreid,$clase,$defaultlit,$valorselec,$ancho,$eventochg=""){
 	if (!empty($eventochg))	$eventochg='onchange="'.$eventochg.'(this);"';
-	$opciones=split(chr(13),$parametros);
+	$opciones=explode(chr(13),$parametros);
 	$SelectHtml= '<select '.$eventochg.' class="'.$clase.'" id='.$nombreid.' name="'.$nombreid.'" style="width: '.$ancho.'">';
 	if (!empty($defaultlit)) $SelectHtml.= '<option value="0">'.$defaultlit.'</option>';
 	for($i=0;$i<sizeof($opciones);$i++){
-		$item=split("=",$opciones[$i]);
+		$item=explode("=",$opciones[$i]);
 		// Comprobar formato de línea: "nombre=valor".
 		if (! empty ($item[1])) {
 			$SelectHtml.= '<option value="'.$item[0].'"';
diff --git a/admin/WebConsole/includes/InvFecha.php b/admin/WebConsole/includes/InvFecha.php
index c21816d0..0064d4f5 100644
--- a/admin/WebConsole/includes/InvFecha.php
+++ b/admin/WebConsole/includes/InvFecha.php
@@ -8,8 +8,8 @@ _______________________________________________________________________*/
 function InvFecha($fecha){
 	if ($fecha=="1970-01-01")return("");
 
-	$auxsplit=split(" ",$fecha);
-	list($anno_p,$mes_p,$dia_p)=split("[/-]",$auxsplit[0]);
+	$auxexplode=explode(" ",$fecha);
+	list($anno_p,$mes_p,$dia_p)=explode("[/-]",$auxexplode[0]);
 	$fecha_p=$dia_p.'-'.$mes_p.'-'.$anno_p;
 	return($fecha_p);
 }
@@ -17,7 +17,7 @@ function InvFecha($fecha){
 //Convierte fecha de mysql a normal 
 //////////////////////////////////////////////////// 
 function sacafechaDB($fecha){ 
-    ereg( "([0-9]{2,4})-([0-9]{1,2})-([0-9]{1,2})", $fecha, $mifecha); 
+    preg_match("/([0-9]{2,4})-([0-9]{1,2})-([0-9]{1,2})/", $fecha, $mifecha); 
     $lafecha=$mifecha[3]."/".$mifecha[2]."/".$mifecha[1]; 
     return $lafecha; 
 } 
@@ -27,7 +27,7 @@ function sacafechaDB($fecha){
 //////////////////////////////////////////////////// 
 
 function metefechaDB($fecha){ 
-    ereg( "([0-9]{1,2})/([0-9]{1,2})/([0-9]{2,4})", $fecha, $mifecha); 
+    preg_match("/([0-9]{1,2})/([0-9]{1,2})/([0-9]{2,4})/", $fecha, $mifecha); 
     $lafecha=$mifecha[3]."-".$mifecha[2]."-".$mifecha[1]; 
     return $lafecha; 
 } 
diff --git a/admin/WebConsole/includes/TomaDato.php b/admin/WebConsole/includes/TomaDato.php
index c865e80b..4e694475 100644
--- a/admin/WebConsole/includes/TomaDato.php
+++ b/admin/WebConsole/includes/TomaDato.php
@@ -22,8 +22,8 @@ function TomaDato($cmd,$idcentro,$nombretabla,$identificador,$nombreid,$nombreli
 	if (empty($identificador)) return($Dato);
 
 	if($swid==0)	$ch='"';	else $ch=""; // Caracter comillas para campos alfanuméricos
-	$auxidentificador=split(";",$identificador);
-	$auxnombreid=split(";",$nombreid);
+	$auxidentificador=explode(";",$identificador);
+	$auxnombreid=explode(";",$nombreid);
 
 	$clausulaWhere=" WHERE  ".$auxnombreid[0]."=".$ch.$auxidentificador[0].$ch;
 	for ($i=1;$i<sizeof($auxidentificador);$i++)
diff --git a/admin/WebConsole/includes/comunes.php b/admin/WebConsole/includes/comunes.php
index f9f56382..b89701ac 100644
--- a/admin/WebConsole/includes/comunes.php
+++ b/admin/WebConsole/includes/comunes.php
@@ -9,9 +9,9 @@
 	//________________________________________________________________________________________
 	function extrae_parametros($parametros,$chsep,$chval){
 		$ParametrosCadena="";
-		$auxP=split($chsep,$parametros);
+		$auxP=explode($chsep,$parametros);
 		for ($i=0;$i<sizeof($auxP);$i++){
-			$dualparam=split($chval,$auxP[$i]);
+			$dualparam=explode($chval,$auxP[$i]);
 
 			if (isset($dualparam[0]) && isset($dualparam[1])){
 				$streval='$ParametrosCadena["'.$dualparam[0].'"]="'.$dualparam[1].'";';
@@ -29,9 +29,9 @@
 	//________________________________________________________________________________________
 	function extrae_parametro($parametros,$chsep,$chval,$chr){
 		$ParametrosCadena="";
-		$auxP=split($chsep,$parametros);
+		$auxP=explode($chsep,$parametros);
 		for ($i=0;$i<sizeof($auxP);$i++){
-			$dualparam=split($chval,$auxP[$i]);
+			$dualparam=explode($chval,$auxP[$i]);
 			if (isset($dualparam[0]) && isset($dualparam[1])){
 				if($dualparam[0]==$chr)
 					return($dualparam[1]);
@@ -149,9 +149,9 @@
 	{
 		global $tbParametros;
 		$html="";
-		$auxprm=split($ch,$parametros);
+		$auxprm=explode($ch,$parametros);
 		for($i=0;$i<sizeof($auxprm);$i++){
-			list($nemonico,$valor)=split("=",$auxprm[$i]);
+			list($nemonico,$valor)=explode("=",$auxprm[$i]);
 			if(isset($tbParametros[$nemonico])){
 				if($tbParametros[$nemonico]["visual"]==1){
 					$tbParametrosValor[$nemonico]["descripcion"]=$tbParametros[$nemonico]["descripcion"];
@@ -163,7 +163,7 @@
 							$tbParametrosValor[$nemonico]["valor"]=TomaDato($cmd,0,$tbParametros[$nemonico]["nomtabla"],$valor,$tbParametros[$nemonico]["nomidentificador"],$tbParametros[$nemonico]["nomliteral"]);
 							break;
 						case 2: // El parámetro es compuesto de otros parametros
-							$blkprm=split(chr(10),substr($auxprm[$i],4));
+							$blkprm=explode(chr(10),substr($auxprm[$i],4));
 							for($j=0;$j<sizeof($blkprm);$j++){
 								$tbSubParametrosValor=array();
 								ParametrosValor($cmd,$blkprm[$j],$tbSubParametrosValor,chr(9));
@@ -177,7 +177,7 @@
 							}
 							break;	
 						case 3: // El valor lo toma de una array 
-							$tbcte=split($tbParametros[$nemonico]["nomidentificador"],$tbParametros[$nemonico]["nomliteral"]);
+							$tbcte=explode($tbParametros[$nemonico]["nomidentificador"],$tbParametros[$nemonico]["nomliteral"]);
 							$tbParametrosValor[$nemonico]["valor"]=$tbcte[$valor];
 							break;
 						case 4: // El valor lo toma directamente pero está codificado con urlencode
diff --git a/admin/WebConsole/includes/pintaParticiones.php b/admin/WebConsole/includes/pintaParticiones.php
index 505defe1..f29aaf02 100644
--- a/admin/WebConsole/includes/pintaParticiones.php
+++ b/admin/WebConsole/includes/pintaParticiones.php
@@ -11,9 +11,9 @@ include_once("../idiomas/php/".$idioma."/pintaParticiones_".$idioma.".php");
 function splitConfigurationsByDisk($configuraciones){
 	// Recorremos las configuraciones para separalas segun el disco al que pertenezcan
 	$diskConfigs = array();
-	$configs = split("@",$configuraciones);
+	$configs = explode("@",$configuraciones);
 	foreach($configs as $config){
-		$parts = split(";",$config);
+		$parts = explode(";",$config);
 		if(!isset($diskConfigs[$parts[0]])){
 			$diskConfigs[$parts[0]] = "@";
 		}
@@ -71,9 +71,9 @@ function pintaParticiones($cmd,$configuraciones,$idordenadores,$cc)
 
 
 		
-		$auxCfg=split("@",$diskConfig); // Crea lista de particiones
+		$auxCfg=explode("@",$diskConfig); // Crea lista de particiones
 		for($i=0;$i<sizeof($auxCfg);$i++){
-			$auxKey=split(";",$auxCfg[$i]); // Toma clave de configuracion
+			$auxKey=explode(";",$auxCfg[$i]); // Toma clave de configuracion
 			for($k=0;$k<$conKeys;$k++){ // Busca los literales para las claves de esa partición
 				if($tbKeys[$k]["cfg"]==$auxCfg[$i]){ // Claves encontradas
 					if ($tbKeys[$k]["numpar"] == 0) { // Info del disco (umpart=0)
@@ -131,8 +131,8 @@ function pintaParticiones($cmd,$configuraciones,$idordenadores,$cc)
 
 						if ($filesys == "CACHE") {
 							echo '<td align="leght">&nbsp;';
-							$campocache = eregi_replace("[\n|\r|\n\r]", '', tomaCache($tbKeys[$k]["numpar"],$idordenadores,$tbKeys[$k]["numdisk"]));
-							$ima=split(",",$campocache);
+							$campocache = preg_replace("/[\n|\r|\n\r]/i", '', tomaCache($tbKeys[$k]["numpar"],$idordenadores,$tbKeys[$k]["numdisk"]));
+							$ima=explode(",",$campocache);
 							$numero=1;
 							for ($x=0;$x<count($ima); $x++) {
 								if(substr($ima[$x],-3)==".MB") {
@@ -149,7 +149,7 @@ function pintaParticiones($cmd,$configuraciones,$idordenadores,$cc)
 									// Esto para numerarla
 									if(substr($ima[$x],-4)==".img" || substr($ima[$x],-5)==".diff" || substr($ima[$x],-4)=="") {
 										echo '<br />('.$info.') &nbsp;'.$numero++.'.-'.$ima[$x];
-									} elseif(ereg(".sum",$ima[$x]) || ereg(".torrent",$ima[$x]) || ereg(".full.sum",$ima[$x])) {
+									} elseif(preg_match("/.sum/",$ima[$x]) or preg_match("/.torrent/",$ima[$x]) or preg_match("/.full.sum/",$ima[$x])) {
 										echo '<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.$ima[$x];
 										}else{
 											echo '<br /><font color=blue>('.$info.') </font>'.$numero++.'.-<font color=blue>'.$ima[$x]."</font>";
@@ -245,9 +245,9 @@ function pintaParticionesRestaurarImagen($cmd,$configuraciones,$idordenadores,$c
 		echo'<tr height="16">'.chr(13);
 		echo '<td colspan="'.$columns.'" style="BORDER-TOP: #999999 1px solid;BACKGROUND-COLOR: #D4D0C8;">&nbsp;'.$TbMsg["DISK"].'&nbsp;'.$disk.'</td>'.chr(13);
 	         
-		$auxCfg=split("@",$diskConfig); // Crea lista de particiones
+		$auxCfg=explode("@",$diskConfig); // Crea lista de particiones
 		for($i=0;$i<sizeof($auxCfg);$i++){
-			$auxKey=split(";",$auxCfg[$i]); // Toma clave de configuracion
+			$auxKey=explode(";",$auxCfg[$i]); // Toma clave de configuracion
 			for($k=0;$k<$conKeys;$k++){ // Busca los literales para las claves de esa partición
 				if($tbKeys[$k]["cfg"]==$auxCfg[$i]){ // Claves encontradas
 				    if($tbKeys[$k]["numpar"]!=0){    // No es info. del disco (part. 0)
@@ -327,9 +327,9 @@ function pintaParticionesConfigurar($cmd,$configuraciones,$idordenadores,$cc)
 
 
 	$aviso=false;
-	$auxCfg=split("@",$configuraciones); // Crea lista de particiones
+	$auxCfg=explode("@",$configuraciones); // Crea lista de particiones
 	for($i=0;$i<sizeof($auxCfg);$i++){
-		$auxKey=split(";",$auxCfg[$i]); // Toma clave de configuracion
+		$auxKey=explode(";",$auxCfg[$i]); // Toma clave de configuracion
 		for($k=1;$k<$conKeys;$k++){ // Busca los literales para las claves de esa partición
 			if($tbKeys[$k]["cfg"]==$auxCfg[$i]){ // Claves encontradas
 				if($tbKeys[$k]["numdisk"]==1){ // Solo tratar disco 1
@@ -436,9 +436,9 @@ function pintaParticionesRestaurarImagenSincronizacion1($cmd,$configuraciones,$i
 		echo'<tr height="16">'.chr(13);
 		echo '<td colspan="'.$columns.'" style="BORDER-TOP: #999999 1px solid;BACKGROUND-COLOR: #D4D0C8;">&nbsp;'.$TbMsg["DISK"].'&nbsp;'.$disk.'</td>'.chr(13);
 	     
-		$auxCfg=split("@",$diskConfig); // Crea lista de particiones
+		$auxCfg=explode("@",$diskConfig); // Crea lista de particiones
 		for($i=0;$i<sizeof($auxCfg);$i++){
-			$auxKey=split(";",$auxCfg[$i]); // Toma clave de configuracion
+			$auxKey=explode(";",$auxCfg[$i]); // Toma clave de configuracion
 			for($k=0;$k<$conKeys;$k++){ // Busca los literales para las claves de esa partici�n
 				if($tbKeys[$k]["cfg"]==$auxCfg[$i]){ // Claves encontradas
 					$swcc=$tbKeys[$k]["clonable"];
@@ -539,9 +539,9 @@ function pintaParticionesRestaurarSoftIncremental($cmd,$configuraciones,$idorden
 		echo'<tr height="16">'.chr(13);
 		echo '<td colspan="'.$columns.'" style="BORDER-TOP: #999999 1px solid;BACKGROUND-COLOR: #D4D0C8;">&nbsp;'.$TbMsg["DISK"].'&nbsp;'.$disk.'</td>'.chr(13);
 	     
-		$auxCfg=split("@",$diskConfig); // Crea lista de particiones
+		$auxCfg=explode("@",$diskConfig); // Crea lista de particiones
 		for($i=0;$i<sizeof($auxCfg);$i++){
-			$auxKey=split(";",$auxCfg[$i]); // Toma clave de configuracion
+			$auxKey=explode(";",$auxCfg[$i]); // Toma clave de configuracion
 			for($k=0;$k<$conKeys;$k++){ // Busca los literales para las claves de esa partici�n
 				if($tbKeys[$k]["cfg"]==$auxCfg[$i]){ // Claves encontradas
 					$swcc=$tbKeys[$k]["clonable"];
@@ -616,9 +616,9 @@ function pintaParticionesRestaurarImagenBasica($cmd,$configuraciones,$idordenado
 		echo'<tr height="16">'.chr(13);
 		echo '<td colspan="'.$columns.'" style="BORDER-TOP: #999999 1px solid;BACKGROUND-COLOR: #D4D0C8;">&nbsp;'.$TbMsg["DISK"].'&nbsp;'.$disk.'</td>'.chr(13);
 	     
-		$auxCfg=split("@",$diskConfig); // Crea lista de particiones
+		$auxCfg=explode("@",$diskConfig); // Crea lista de particiones
 		for($i=0;$i<sizeof($auxCfg);$i++){
-			$auxKey=split(";",$auxCfg[$i]); // Toma clave de configuracion
+			$auxKey=explode(";",$auxCfg[$i]); // Toma clave de configuracion
 			for($k=0;$k<$conKeys;$k++){ // Busca los literales para las claves de esa partici�n
 				if($tbKeys[$k]["cfg"]==$auxCfg[$i]){ // Claves encontradas
 					$swcc=$tbKeys[$k]["clonable"];