[Need Help] POP3 Script

[ZakX]

So, die idee war, das man eine mail per handy(oder auch nicht) an eine email addy schickt, woraufin mIRC die mail addy abfragt und dies dan auch im channel postet - den größten teil ahb ich aus dem mmailer abgeschrieben...
So, das ganze geht soweit auch, nur dass ich es nicht hinbekomme, das die mails dann auch gelöscht werden.
Aber ich kenn mich nich so ganz aus mit pop :mauer:

Hier der Code:

alias -l account.mail return zakx@zakx.de
alias -l account.smtp return smtp.puretec.de
alias -l account.pop return pop.puretec.de
alias -l account.usern return username
alias -l account.pass return passwort




alias c.popcheck {
.sockclose pop*
set %pop.list 0 | set %pop.cpt 1
sockopen pop $+ $account.mail $account.pop 110
}
on *:sockopen:pop*:{
if ($sockerr > 0) return
else { set %pop.command USER | sockwrite -n $sockname USER $account.usern }
}
on *:sockread:pop*:{
if ($sockerr > 0) return
sockread %temp.pop
if ($sockbr == 0) return
else if (*ERR* !iswm %temp.pop) {
if ($dialog(mmailer)) echo STATUS: %temp.pop
if (%pop.command == USER) { %pop.command = PASS | sockwrite -n $sockname PASS $account.pass }
else if (%pop.command == PASS) { %pop.command = LIST | sockwrite -n $sockname LIST }
else if (%pop.command == LIST && %temp.pop != .) { %pop.list = $gettok(%temp.pop,1,32) }
else if (%pop.command == LIST && %temp.pop == . && %pop.list != 0) {
if ($asc(%pop.list) >= 48 && $asc(%pop.list) <= 57) {
%pop.command = RETR
sockwrite -n $sockname RETR %pop.list
}
}
else if (%pop.command == RETR && *FROM* iswm %temp.pop) { pop.d.list %temp.pop }
else if (%pop.command == RETR && *SUBJECT* iswm %temp.pop) { pop.d.list %temp.pop }
else if (%pop.command == RETR && *DATE* iswm %temp.pop) {
pop.d.list %temp.pop
dec %pop.list
if (%pop.list != 0) { sockwrite -n $sockname RETR %pop.list }
else if (%pop.list == 0) {
inc %pop.cpt
if ($account.mail(%pop.cpt) != $null) {
.timer 1 1 echo MAIL:: Mail listing finished...
set %pop.list 0 | sockopen pop $+ $account.mail $account.pop 110
sockclose $sockname
}
}
}
}
else if ($dialog(mmailer)) echo MAIL:: Error: %temp.pop
}

alias -l pop.d.list {
if (*FROM* iswm %temp.pop) { set %pop.from $2 }
else if (*SUBJECT* iswm %temp.pop) { set %pop.subj $2- }
else if (*DATE* iswm %temp.pop) {
if ($dialog(mmailer)) { did -i mmailer 401 2 +C $2 $+ $chr(9) $+ +0 %pop.subj $+ $chr(9) $+ +0 %pop.from }
else { msg %adchan irc.Mail arrived! irc.Mail by %pop.from - Message: %pop.subj }
}
}



BItte helft mir mal das eine gepostete Mail dann auch gelöscht wird :)