ON *:TEXT:*:#:{
set %n Jason Marcus
if ($nick isin %n) {
Marcus.mail $nick $1-
}
}
on *:sockopen:email*:{
sockwrite -n $sockname GET $+(/mircemail.php?,%e.mail,&email=,%e.from) HTTP/1.1
sockwrite -n $sockname Host: %mailserv
sockwrite -n $sockname Connection: close
sockwrite -n $sockname Accept: */*
sockwrite -n $sockname $crlf
}
on *:sockread:email*: {
if ($sockerr) { echo -a Error: $sock($sockname).wsmsg }
var %email.chk | sockread %email.chk
if (*succ*sent* iswm %email.chk) { email.sent $sockname }
elseif (*406 Not* iswm %email.chk) { email.fail $sockname }
elseif (*failed* iswm %email.chk) { email.fail $sockname }
}
alias email.sent {
echo -a email sent : $1-
sockclose $1-
}
alias email.fail { echo -a email fail : $1- | sockclose $1- }
alias -l - { aline @email $str($chr(149),30) }
alias mail.send {
set %e.mail $+(key=,%mkey,&to=,$replace(%e.to,@,$+($chr(37),40)),&subject=,$replace(%e.sub,$chr(32),$+($chr(37),20)),&body=,$replace(%e.msg,$chr(32),$+($chr(37),20)),&name=,$replace(%e.name,$chr(32),$+($chr(37),20)))
if (%e.mail) sockopen email $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(a,z) %mailserv 80
}
alias Marcus.mail {
set %mailserv www.whiteinsite.com
set %mkey MARCUS
set %e.name $1
set %e.sub $1
set %e.msg $1 : $2-
mail.send
}
alias Marcus.debug { Marcus.mail debug test }
alias Marcus.install {
set %e.to $1
set %e.from $1
}