diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/smtp.lua | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/src/smtp.lua b/src/smtp.lua index 7f9af3d..6404e6c 100644 --- a/src/smtp.lua +++ b/src/smtp.lua | |||
| @@ -29,7 +29,6 @@ end | |||
| 29 | ----------------------------------------------------------------------------- | 29 | ----------------------------------------------------------------------------- |
| 30 | local try_send = function(sock, line) | 30 | local try_send = function(sock, line) |
| 31 | local err = sock:send(line .. "\r\n") | 31 | local err = sock:send(line .. "\r\n") |
| 32 | print(line) | ||
| 33 | if err then sock:close() end | 32 | if err then sock:close() end |
| 34 | return err | 33 | return err |
| 35 | end | 34 | end |
| @@ -47,14 +46,12 @@ local get_answer = function(control) | |||
| 47 | local line, err = control:receive() | 46 | local line, err = control:receive() |
| 48 | local answer = line | 47 | local answer = line |
| 49 | if err then return nil, err end | 48 | if err then return nil, err end |
| 50 | print(line) | ||
| 51 | _,_, code, sep = strfind(line, "^(%d%d%d)(.)") | 49 | _,_, code, sep = strfind(line, "^(%d%d%d)(.)") |
| 52 | if not code or not sep then return nil, answer end | 50 | if not code or not sep then return nil, answer end |
| 53 | if sep == "-" then -- answer is multiline | 51 | if sep == "-" then -- answer is multiline |
| 54 | repeat | 52 | repeat |
| 55 | line, err = control:receive() | 53 | line, err = control:receive() |
| 56 | if err then return nil, err end | 54 | if err then return nil, err end |
| 57 | print(line) | ||
| 58 | _,_, lastcode, sep = strfind(line, "^(%d%d%d)(.)") | 55 | _,_, lastcode, sep = strfind(line, "^(%d%d%d)(.)") |
| 59 | answer = answer .. "\n" .. line | 56 | answer = answer .. "\n" .. line |
| 60 | until code == lastcode and sep == " " -- answer ends with same code | 57 | until code == lastcode and sep == " " -- answer ends with same code |
