From 36d42010c2dfd86ab5eed59b4a3a665c8e4a2950 Mon Sep 17 00:00:00 2001
From: AllAboutEE <miguel@allaboutee.com>
Date: Wed, 11 Mar 2015 08:32:00 -0500
Subject: [PATCH] Added IMAP read email example. The example is working but the
 output sections are not 100% correct. Parsing the output and waiting for OK
 message from server is needed.

---
 lua_examples/email/read_email_imap.lua | 88 ++++++++++++++++++++++++++
 1 file changed, 88 insertions(+)
 create mode 100644 lua_examples/email/read_email_imap.lua

diff --git a/lua_examples/email/read_email_imap.lua b/lua_examples/email/read_email_imap.lua
new file mode 100644
index 00000000..fe96ed4a
--- /dev/null
+++ b/lua_examples/email/read_email_imap.lua
@@ -0,0 +1,88 @@
+---
+-- @author Miguel (AllAboutEE.com)
+-- @description Reads email via IMAP
+
+-- this could be your email (and it is in most cases even in you have a "username")
+local IMAP_USERNAME = "myemail@xxx.rr.com" 
+local IMAP_PASSWORD = "mypassword"
+
+local IMAP_SERVER = "mail.twc.com"
+local IMAP_PORT = "143"
+local IMAP_TAG = "t1"
+
+local SSID = "ssid"
+local SSID_PASSWORD = "password"
+
+wifi.setmode(wifi.STATION)
+wifi.sta.config(SSID,SSID_PASSWORD)
+wifi.sta.autoconnect(1)
+
+
+function print_logout(sck,logout_reply)
+    print("=========== LOGOUT REPLY ==========\r\n")
+    print(logout_reply)
+end
+
+function logout(sck)
+    print("Logging out...\r\n")
+    sck:on("receive",print_logout)
+    sck:send(IMAP_TAG .. " LOGOUT\r\n")
+end
+
+function print_body(sck,email_body)
+    print("========== EMAIL BODY =========== \r\n")
+    print(email_body)
+    print("\r\n")
+    logout(sck)
+end
+
+function fetch_body(sck)
+    print("\r\nFetching first mail body...\r\n")
+    sck:on("receive",print_body)
+    sck:send(IMAP_TAG .. " FETCH 1 BODY[TEXT]\r\n")
+end
+
+
+function print_header(sck, email_header)
+    print("============== EMAIL HEADERS ==========\r\n")
+    print(email_header) -- prints the email headers
+    print("\r\n")
+    fetch_body(sck)
+end
+
+function fetch_header(sck)
+    print("\r\nFetching first mail headers...\r\n")
+    sck:on("receive",print_header)
+    sck:send(IMAP_TAG .. " FETCH 1 BODY[HEADER]\r\n")
+end
+
+function print_login(sck,login_reply)
+    print("========== LOGIN REPLY ==========\r\n")
+    print(login_reply)
+    select(sck,"INBOX")
+    
+end
+
+function print_select(sck,response)
+    print(response)
+    fetch_header(sck)
+end
+
+function select(sck,mailbox)
+    print("Selecting inbox...\r\n")
+    sck:on("receive",print_select)
+    sck:send(IMAP_TAG .. " SELECT "..mailbox.."\r\n")
+end
+
+
+
+function login(sck)
+    print("Logging in...\r\n")
+    sck:on("receive", print_login)
+    sck:send(IMAP_TAG .. " LOGIN " .. IMAP_USERNAME .. " ".. IMAP_PASSWORD.."\r\n")
+end
+
+
+local socket = net.createConnection(net.TCP,0)
+socket:on("connection",login)
+socket:connect(IMAP_PORT,IMAP_SERVER)