1
0
mirror of https://github.com/vlang/v.git synced 2023-08-10 21:13:21 +03:00
v/vlib/net/smtp/smtp.v

259 lines
5.5 KiB
V

module smtp
/*
*
* smtp module
* Created by: nedimf (07/2020)
*/
import net
import net.openssl
import encoding.base64
import strings
import time
import io
const (
recv_size = 128
)
enum ReplyCode {
ready = 220
close = 221
auth_ok = 235
action_ok = 250
mail_start = 354
}
pub enum BodyType {
text
html
}
pub struct Client {
mut:
conn net.TcpConn
ssl_conn &openssl.SSLConn = unsafe { nil }
reader io.BufferedReader
pub:
server string
port int = 25
username string
password string
from string
ssl bool
starttls bool
pub mut:
is_open bool
encrypted bool
}
pub struct Mail {
from string
to string
cc string
bcc string
date time.Time = time.now()
subject string
body_type BodyType
body string
}
// new_client returns a new SMTP client and connects to it
pub fn new_client(config Client) ?&Client {
if config.ssl && config.starttls {
return error('Can not use both implicit SSL and STARTTLS')
}
mut c := &Client{
...config
}
c.reconnect()?
return c
}
// reconnect reconnects to the SMTP server if the connection was closed
pub fn (mut c Client) reconnect() ? {
if c.is_open {
return error('Already connected to server')
}
conn := net.dial_tcp('$c.server:$c.port') or { return error('Connecting to server failed') }
c.conn = conn
if c.ssl {
c.connect_ssl()?
} else {
c.reader = io.new_buffered_reader(reader: c.conn)
}
c.expect_reply(.ready) or { return error('Received invalid response from server') }
c.send_ehlo() or { return error('Sending EHLO packet failed') }
if c.starttls && !c.encrypted {
c.send_starttls() or { return error('Sending STARTTLS failed') }
}
c.send_auth() or { return error('Authenticating to server failed') }
c.is_open = true
}
// send sends an email
pub fn (mut c Client) send(config Mail) ? {
if !c.is_open {
return error('Disconnected from server')
}
from := if config.from != '' { config.from } else { c.from }
c.send_mailfrom(from) or { return error('Sending mailfrom failed') }
c.send_mailto(config.to) or { return error('Sending mailto failed') }
c.send_data() or { return error('Sending mail data failed') }
c.send_body(Mail{
...config
from: from
}) or { return error('Sending mail body failed') }
}
// quit closes the connection to the server
pub fn (mut c Client) quit() ? {
c.send_str('QUIT\r\n')?
c.expect_reply(.close)?
if c.encrypted {
c.ssl_conn.shutdown()?
} else {
c.conn.close()?
}
c.is_open = false
c.encrypted = false
}
fn (mut c Client) connect_ssl() ? {
c.ssl_conn = openssl.new_ssl_conn()
c.ssl_conn.connect(mut c.conn, c.server) or {
return error('Connecting to server using OpenSSL failed: $err')
}
c.reader = io.new_buffered_reader(reader: c.ssl_conn)
c.encrypted = true
}
// expect_reply checks if the SMTP server replied with the expected reply code
fn (mut c Client) expect_reply(expected ReplyCode) ? {
mut str := ''
for {
str = c.reader.read_line()?
if str.len < 4 {
return error('Invalid SMTP response: $str')
}
if str.runes()[3] == `-` {
continue
} else {
break
}
}
$if smtp_debug ? {
eprintln('\n\n[RECV]')
eprint(str)
}
if str.len >= 3 {
status := str[..3].int()
if ReplyCode(status) != expected {
return error('Received unexpected status code $status, expecting $expected')
}
} else {
return error('Recieved unexpected SMTP data: $str')
}
}
[inline]
fn (mut c Client) send_str(s string) ? {
$if smtp_debug ? {
eprintln('\n\n[SEND START]')
eprint(s.trim_space())
eprintln('\n[SEND END]')
}
if c.encrypted {
c.ssl_conn.write(s.bytes())?
} else {
c.conn.write(s.bytes())?
}
}
[inline]
fn (mut c Client) send_ehlo() ? {
c.send_str('EHLO $c.server\r\n')?
c.expect_reply(.action_ok)?
}
[inline]
fn (mut c Client) send_starttls() ? {
c.send_str('STARTTLS\r\n')?
c.expect_reply(.ready)?
c.connect_ssl()?
}
[inline]
fn (mut c Client) send_auth() ? {
if c.username.len == 0 {
return
}
mut sb := strings.new_builder(100)
sb.write_u8(0)
sb.write_string(c.username)
sb.write_u8(0)
sb.write_string(c.password)
a := sb.str()
auth := 'AUTH PLAIN ${base64.encode_str(a)}\r\n'
c.send_str(auth)?
c.expect_reply(.auth_ok)?
}
fn (mut c Client) send_mailfrom(from string) ? {
c.send_str('MAIL FROM: <$from>\r\n')?
c.expect_reply(.action_ok)?
}
fn (mut c Client) send_mailto(to string) ? {
for rcpt in to.split(';') {
c.send_str('RCPT TO: <$rcpt>\r\n')?
c.expect_reply(.action_ok)?
}
}
fn (mut c Client) send_data() ? {
c.send_str('DATA\r\n')?
c.expect_reply(.mail_start)?
}
fn (mut c Client) send_body(cfg Mail) ? {
is_html := cfg.body_type == .html
date := cfg.date.custom_format('ddd, D MMM YYYY HH:mm ZZ')
nonascii_subject := cfg.subject.bytes().any(it < u8(` `) || it > u8(`~`))
mut sb := strings.new_builder(200)
sb.write_string('From: $cfg.from\r\n')
sb.write_string('To: <${cfg.to.split(';').join('>; <')}>\r\n')
sb.write_string('Cc: <${cfg.cc.split(';').join('>; <')}>\r\n')
sb.write_string('Bcc: <${cfg.bcc.split(';').join('>; <')}>\r\n')
sb.write_string('Date: $date\r\n')
if nonascii_subject {
// handle UTF-8 subjects according RFC 1342
sb.write_string('Subject: =?utf-8?B?' + base64.encode_str(cfg.subject) + '?=\r\n')
} else {
sb.write_string('Subject: $cfg.subject\r\n')
}
if is_html {
sb.write_string('Content-Type: text/html; charset=UTF-8\r\n')
} else {
sb.write_string('Content-Type: text/plain; charset=UTF-8\r\n')
}
sb.write_string('Content-Transfer-Encoding: base64')
sb.write_string('\r\n\r\n')
sb.write_string(base64.encode_str(cfg.body))
sb.write_string('\r\n.\r\n')
c.send_str(sb.str())?
c.expect_reply(.action_ok)?
}