// ________________________________________________________________________________________________________
// Función: INTROaFINCAD
//
//		Descripción:
// 			Cambia INTROS por caracteres fin de cadena ('\0') en una cadena
//		Parametros:
//				- parametros : La cadena a explorar
// ________________________________________________________________________________________________________
void INTROaFINCAD(char* parametros) {
	int lon, i;
	lon = strlen(parametros);
	for (i = 0; i < lon; i++) {
		if (parametros[i] == '\r')
			parametros[i] = '\0';
	}
}
// ________________________________________________________________________________________________________
// Funciónn: FINCADaINTRO
//
//		Descripciónn?:
// 			Cambia caracteres fin de cadena ('\0') por INTROS en una cadena
//		Parametros:
//				- parametros : La cadena a explorar
// ________________________________________________________________________________________________________
void FINCADaINTRO(char* a, char *b) {
	char *i;
	for (i = a; i < b; i++) { // Cambia los NULOS por INTROS
		if (*i == '\0')
			*i = '\r';
	}
}

// ________________________________________________________________________________________________________
// Función: AbreConexion
//
//		Descripción: 
//			Crea un socket y lo conecta a una interface de red. Devuelve el socket
//		Parámetros:
//			- ips : La direccin IP con la que se comunicarnel socket
//			- port : Puerto para la  comunicacin
// ________________________________________________________________________________________________________
SOCKET AbreConexion(char *ips, int port) {
	struct sockaddr_in server;
	SOCKET s;

	// Crea el socket y se intenta conectar
	s = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
	if (s == SOCKET_ERROR) {
		RegistraLog("Error en la creacin del socket. Modulo: AbreConexion()",
				true);
		return INVALID_SOCKET;
	}

	server.sin_family = AF_INET;
	server.sin_port = htons((short) port);
	server.sin_addr.s_addr = inet_addr(ips);

	if (connect(s, (struct sockaddr *) &server, sizeof(server)) == SOCKET_ERROR) {
		RegistraLog("connect() fallo", true);
		return INVALID_SOCKET;
	}
	return (s);

}


// ________________________________________________________________________________________________________
// Función: cuenta_ipes
//
//		Descripción:
// 			Cuenta las comas (caracter de separacion) de las cadenas de ipes
//		Parámetros:
//			- parametros : La cadena a explorar
// ________________________________________________________________________________________________________
int cuenta_ipes(char* iph) {
	int lon, i, cont = 1;
	lon = strlen(iph);
	for (i = 0; i < lon; i++) {
		if (iph[i] == ';')
			cont++;
	}
	return (cont);
}

// ________________________________________________________________________________________________________
// Función: IgualIP
//
//		 Descripción: 
//			Comprueba si una cadena con una ipe estnincluidad en otra que  contienen varias direcciones ipes separas por punto y coma
//		Parámetros:
//			- cadenaiph: Cadena de IPes
//			- ipcliente: Cadena de la ip a buscar
// ________________________________________________________________________________________________________
BOOLEAN IgualIP(char *cadenaiph, char *ipcliente) {
	char *posa, *posb;
	int lon;

	posa = strstr(cadenaiph, ipcliente);
	if (posa == NULL)
		return (FALSE); // No existe la IP en la cadena
	posb = posa; // Iguala direcciones
	while (TRUE) {
		posb++;
		if (*posb == ';')
			break;
		if (*posb == '\0')
			break;
		if (*posb == '\r')
			break;
	}
	lon = strlen(ipcliente);
	if ((posb - posa) == lon)
		return (TRUE); // IP encontrada !!!!

	return (FALSE);
}

// ________________________________________________________________________________________________________
// Función: RegistraLog
//
//		Descripción:
//			Esta funcin registra los evento de errores en un fichero log
//	 	Parametros:
//			- msg : Mensage de error
//			- swerrno: Switch que indica que recupere literal de error del sistema
// ________________________________________________________________________________________________________
void RegistraLog(const char *msg, int swerrno) {
	struct tm * timeinfo;
	timeinfo = TomaHora();
	FILE *FLog;

	FLog = fopen(szPathFileLog, "at");
	if (swerrno)
		fprintf(FLog, "%02d/%02d/%d %02d:%02d ***%s:%s\n", timeinfo->tm_mday,
				timeinfo->tm_mon + 1, timeinfo->tm_year + 1900,
				timeinfo->tm_hour, timeinfo->tm_min, msg, strerror(errno));
	else
		fprintf(FLog, "%02d/%02d/%d %02d:%02d ***%s\n", timeinfo->tm_mday,
				timeinfo->tm_mon + 1, timeinfo->tm_year + 1900,
				timeinfo->tm_hour, timeinfo->tm_min, msg);
	fclose(FLog);

	// Lo muestra por consola
	/*printf("%02d/%02d/%d %02d:%02d ***%s\n", timeinfo->tm_mday,
			timeinfo->tm_mon + 1,
			timeinfo->tm_year + 1900,
			timeinfo->tm_hour,
			timeinfo->tm_min,
			msg);
	*/
}
// ________________________________________________________________________________________________________
// Función: TomaHora
//
//		Descripción:
//			Esta función toma la hora actual  del sistema y devuelve una estructura conlos datos
// ________________________________________________________________________________________________________
struct tm * TomaHora() {
	time_t rawtime;
	time(&rawtime);
	return (localtime(&rawtime));
}


// ________________________________________________________________________________________________________
// Funcinn: toma_parametro
// 
//		Descripcinn?:
// 			Esta funci? devuelve el valor de un parametro incluido en la trmInfo.
// 			El formato del protocolo es: "nombre_parametro=valor_parametro"
// 		Par?etros:
// 			- nombre_parametro: Es el nombre del par?etro a recuperar
// 			- parametros: Es la matriz que contiene todos los par?etros
// ________________________________________________________________________________________________________
char * toma_parametro(const char* nombre_parametro,char *parametros)
{
	int i=0;
	char* pos;

	for(i=0;i<LONGITUD_PARAMETROS-4;i++){ 
		if(parametros[i]==nombre_parametro[0]){
			if(parametros[i+1]==nombre_parametro[1]){
				if(parametros[i+2]==nombre_parametro[2]){
					if(parametros[i+3]=='='){
						pos=&parametros[i+4];
						return(pos);
					}
				}
			}
		}
	}
	return(NULL);
}

// ________________________________________________________________________________________________________
// Función: split_parametros
//
//	Descripción:
//			Trocea una cadena según un carácter delimitador
//	Parámetros:
// 			- trozos: Array de punteros a cadenas
// 			- cadena: Cadena a trocear
// 			- chd: Carácter delimitador
//	Devuelve:
//		Número de trozos en que se divide la cadena
// ________________________________________________________________________________________________________
int split_parametros(char **trozos, char *cadena, char *ch)
{
	int w = 0;
	
	char chd = ch[0];
	trozos[w++] = cadena;
	if(cadena!=NULL){
		while (*cadena != '\0') {
			if (*cadena == chd) {
				*cadena = '\0';
				if (*(cadena + 1) != '\0')
					trozos[w++] = cadena + 1;
			}
			cadena++;
		}
	}
	return (w); // Devuelve el número de trozos
}

//______________________________________________________________________________________________________
// Función: recibe_tramas
//
//	 Descripción:
//		Recibe una trama por la red (TCP)
//	Parámetros:
//		s: socket TCP
//		trama: contenido a  enviar
// 	Devuelve:
//		true si el envío ha sido correcto o false en caso contrario
//______________________________________________________________________________________________________
int recibe_tramas(SOCKET s,TRAMA *trama)
{
	int ret;

	ret = recv(s,(char*)trama,LONGITUD_TRAMA,0);
	if (ret == 0) // Conexin cerrada por parte del cliente (Graceful close)
		return (false);
	else{ 
		if (ret == SOCKET_ERROR){
			return (false);
		}
		else{ // Datos recibidos
			Desencriptar((char*)trama);
			return(true);
		}
	}
}
//__________________________________________________________________________________________________________
//
// Función: Encripta
//
//	 Descripción:
//		Esta función encripta una cadena y la devuelve como parametro
//__________________________________________________________________________________________________________
char * Encriptar(char *cadena)
{
	return(cadena); // vuelve sin encriptar
	
	int i,lon;
	char clave; 
	
	clave = 12 & 0xFFU; // La clave elegida entre 0-255, en este caso 12
	lon=strlen(cadena);
	for(i=0;i<lon;i++)
      cadena[i]=((char)cadena[i] ^ clave) & 0xFF; 
	return(cadena);
}
//__________________________________________________________________________________________________________
//
// Funci�: Desencripta
//
//	 Descripción:
//		Esta funci� desencripta una cadena y la devuelve como parametro
//__________________________________________________________________________________________________________
char * Desencriptar(char *cadena)
{
	return(cadena);
	
	int i,lon;
	char clave; 
	
	clave = 12 & 0xFFU; // La clave elegida entre 0-255, en este caso 12
	lon=strlen(cadena);
	for(i=0;i<lon;i++)
		cadena[i]=((char)cadena[i] ^ clave) & 0xFF;
	return(cadena);
}