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) ] ]
}
}
}
