dummy@apple.com gibt es nicht dolly schon ;-)

Ich habe die URL im Quellcode etwas verfälscht, damit nicht jeder gleich eine Post-Attacke auf den Server fährt… ist aber eine coole Skript-Lösung, um zu Prüfen, ob es eine Email-Adresse überhaupt existiert…

set thelist to every paragraph of "steve@apple.com
info@apple.com
dolly@apple.com
dummy@apple.com"
--set thelist to every paragraph of (get the clipboard)

set myoutput to {}
repeat with themail in thelist
  if (themail as string) contains "@" then
    set isvalid to my checkmail(themail)
    set myoutput to myoutput & themail & tab & isvalid & return
  end if
end repeat


tell application "TextEdit"
  set newdoc to make new document
  set text of newdoc to myoutput as string
  activate
end tell

on checkmail(themail)
  set thetest to do shell script "curl --data \"email=" & themail & "&Submit=Pr%C3%BCfen\" http://www.huwisoft.schweiz/includes/email-validator.php"
  if thetest contains "EXISTIERT NICHT" then
    return "EXISTIERT NICHT"
  else
    return "OK"
  end if
end checkmail
									

Leave a Reply