<?
if(!function_exists("array_text")){
	function array_text($arr){
		$res = "";
		foreach($arr as $opcion){
			$res .= $opcion . ",";	
		}
		$res = substr($res, 0, strlen($res)-1);
		return $res;
	}
}

if(!function_exists("get_user_browser")){
	function get_user_browser()  {	//returns browser name
		$u_agent = $_SERVER['HTTP_USER_AGENT'];
		$ub = '';
		if(preg_match('/MSIE/i',$u_agent))
		{
			$ub = "ie";
		}
		elseif(preg_match('/Firefox/i',$u_agent))
		{
			$ub = "firefox";
		}
		elseif(preg_match('/Safari/i',$u_agent))
		{
			$ub = "safari";
		}
		elseif(preg_match('/Chrome/i',$u_agent))
		{
			$ub = "chrome";
		}
		elseif(preg_match('/Flock/i',$u_agent))
		{
			$ub = "flock";
		}
		elseif(preg_match('/Opera/i',$u_agent))
		{
			$ub = "opera";
		}
		else
		{
			$ub = "s/d";
		}
		return $ub;
	}
}

if(!function_exists("ifnull")){
	function ifnull($valor) { //checks if 'valor' is null
	
		if ( strlen(trim($valor)) == 0) {
			$valor = 'null';
		} else {
			$valor = $valor;
		}
		return $valor;
	}
}

if(!function_exists("nl")){
	function nl($valor) { //checks if 'valor' is null
	
		if (strlen(trim($valor)) == 0) {
			$valor = ' - ';
		} else {
			$valor = $valor;
		}
		return $valor;
	}
}

if(!function_exists("zero")){
	function zero($valor){ //checks if valor is zero
		if (is_null($valor) || strlen(trim($valor)) == 0 || !is_numeric($valor)){
			$valor = 0;
		} else {
			$valor = $valor;
		}
		return $valor;
	}
}

if(!function_exists("forfecha")){
	function forfecha($fecha) { //converts dd-mm-yyyy date format to yyyymmdd date format
		$resss = '';
		if ( strlen($fecha) == 0) {
			$resss = "null";
		} else {
			$fecha = substr($fecha, 6, 4) . '-' . substr($fecha, 3, 2) . '-' . substr($fecha, 0, 2);
			$resss = "'" . $fecha . "'";
		}
		return $resss;
	}
}
if(!function_exists("dbfecha")){
	function dbfecha($fecha) { //converts dd-mm-yyyy date format to yyyymmdd date format
		$resss = '';
		if ( strlen($fecha) == 0) {
			$resss = "";
		} else {
			$fecha = substr($fecha, 8, 2) . '-' . substr($fecha, 5, 2) . '-' . substr($fecha, 0, 4);
			$resss =  $fecha ;
		}
		return $resss;
	}
}

if(!function_exists("tofecha")){
	function tofecha($fecha) { // converts dd-mm-yyyy date format to yyyymmdd date format
		$resss = '';
		if ( strlen($fecha) == 0) {
			$resss = "null";
		} else {
			$fecha = substr($fecha, 6, 4) . substr($fecha, 3, 2) . substr($fecha, 0, 2);
			$resss = "'" . $fecha . "'";
		}
		return $resss;
	}
}

if(!function_exists("dateadd")){
	function dateadd($date, $dd=0, $mm=0, $yy=0, $hh=0, $mn=0, $ss=0){ // adds/substract a date value to another
		$date_r = getdate(strtotime($date));
		$date_result = date("d/m/Y", mktime(($date_r["hours"]+$hh),($date_r["minutes"]+$mn),($date_r["seconds"]+$ss),($date_r["mon"]+$mm),($date_r["mday"]+$dd),($date_r["year"]+$yy)));
		return $date_result;
	}
}

if(!function_exists("clean")){
	function clean($input, $type) {
	  switch ($type) {
		// 1- Input Validation
	 
		case 'int': // checks if $input is an integer
		  if (is_int($input)) {
			$output = TRUE;
		  } else {
			$output = FALSE;
		  }
		  break;
	 
		case 'str': // checks if $input is a string
		  if (is_string($input)) {
			$output = TRUE;
		  } else {
			$output = FALSE;
		  }
		  break;
	 
		case 'digit': // checks if $input has only numbers
		  if (ctype_digit($input)) {
			$output = TRUE;
		  } else {
			$output = FALSE;
		  }
		  break;
	 
		case 'mobile': // checks if $input has only 9 numbers
		  if ((strlen($input) == 9) && (ctype_digit($input) == TRUE)) {
			$output = TRUE;
		  } else {
			$output = FALSE;
		  }
		  break;
	 
		case 'email': // checks if $input is an email address
		  $reg_exp = "/^[-\.0-9A-Z]+@([-0-9A-Z]+\.)+([0-9A-Z]){2,4}$/i";
		  if (preg_match($reg_exp, $input)) {
			$output = $input;
		  } else {
			$output = FALSE;
		  }
		  break;
	
		// 2- SQL Encoding
	 
		case 'sql': // escapes illegal characters for sql query
	 
		  // if magic_quotes is ON, we nned to "stripslashes()" first.
		  //otherwise will be escapes twice
		  if (get_magic_quotes_gpc()) {
			$input = stripslashes($input);
		  }
	 
		  // requieres a MySQL conn opened
		  $output = pg_escape_string(trim($input));
		  break;
	 
		// 3- Output Filtering
	 
		case 'no_html': // los datos van a una pagina web, escapar para HTML
		  $output = htmlentities(trim($input), ENT_QUOTES);
		  break;
	 
		case 'shell_arg': // los datos van al shell, escapar para shell argument
		  $output = escapeshellarg(trim($input));
		  break;
	 
		case 'shell_cmd': // los datos van al shell, escapar para shell command
		  $output = escapeshellcmd(trim($input));
		  break;
	 
		case 'url': // los datos forman parte de una URL, escapar para URL
	 
		  // htmlentities() traduce a HTML el separador &
		  $output = htmlentities(urlencode(trim($input)));
		  break;
	 
		case 'com': // los datos solo pueden contener algunos tags HTML
		  $output = pg_escape_string(strip_tags($input));
		  break;
		  
		case 'num': // los datos solo pueden contener algunos tags HTML
			if (ctype_digit($input)) {
				$output = $input;
			} else {
				$output = preg_replace('/[^0-9]/','',$input);
			}
			break;
	  }
	  return $output;
	}
}<script>
						//alert('Debe registrarse para ingresar.');
						window.location = 'https://www.rotariaweb.net/procuenca/index.php';
					</script><?
$db_server = "192.168.1.225"; //nombre o IP del servidor de base de datos mssql
$db_puerto = "5433"; //puerto publicado del servidor de base de datos mssql
$db_nombre = "procuenca"; //nombre de la base de datos mssql
$db_usuario = "postgres"; //usuario con acceso al motor de la base de datos
$db_password = "Martes@19"; //contraseña del usuario registrado
?>No se pudo conectar con el Servidor.