src/lib/emailer.cc

   1 /*
   2     Copyright (C) 2015 Carl Hetherington <cth@carlh.net>
   3
   4     This file is part of DCP-o-matic.
   5
   6     DCP-o-matic is free software; you can redistribute it and/or modify
   7     it under the terms of the GNU General Public License as published by
   8     the Free Software Foundation; either version 2 of the License, or
   9     (at your option) any later version.
  10
  11     DCP-o-matic is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14     GNU General Public License for more details.
  15
  16     You should have received a copy of the GNU General Public License
  17     along with DCP-o-matic.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 */
  20
  21 #include "compose.hpp"
  22 #include "config.h"
  23 #include "emailer.h"
  24 #include "exceptions.h"
  25 #include <curl/curl.h>
  26 #include <boost/algorithm/string.hpp>
  27 #include <boost/date_time/c_local_time_adjustor.hpp>
  28 #include <boost/foreach.hpp>
  29
  30 #include "i18n.h"
  31
  32 using std::string;
  33 using std::min;
  34 using std::list;
  35 using std::cout;
  36 using std::pair;
  37 using boost::shared_ptr;
  38 using dcp::Data;
  39
  40 Emailer::Emailer (string from, list<string> to, string subject, string body)
  41         : _from (from)
  42         , _to (to)
  43         , _subject (subject)
  44         , _body (body)
  45         , _offset (0)
  46 {
  47         boost::algorithm::replace_all (_body, "\n", "\r\n");
  48         boost::algorithm::replace_all (_body, "\0", " ");
  49 }
  50
  51 void
  52 Emailer::add_cc (string cc)
  53 {
  54         _cc.push_back (cc);
  55 }
  56
  57 void
  58 Emailer::add_bcc (string bcc)
  59 {
  60         _bcc.push_back (bcc);
  61 }
  62
  63 void
  64 Emailer::add_attachment (boost::filesystem::path file, string name, string mime_type)
  65 {
  66         Attachment a;
  67         a.file = file;
  68         a.name = name;
  69         a.mime_type = mime_type;
  70         _attachments.push_back (a);
  71 }
  72
  73 static size_t
  74 curl_data_shim (void* ptr, size_t size, size_t nmemb, void* userp)
  75 {
  76         return reinterpret_cast<Emailer*>(userp)->get_data (ptr, size, nmemb);
  77 }
  78
  79 static int
  80 curl_debug_shim (CURL* curl, curl_infotype type, char* data, size_t size, void* userp)
  81 {
  82         return reinterpret_cast<Emailer*>(userp)->debug (curl, type, data, size);
  83 }
  84
  85 size_t
  86 Emailer::get_data (void* ptr, size_t size, size_t nmemb)
  87 {
  88         size_t const t = min (_email.length() - _offset, size * nmemb);
  89         memcpy (ptr, _email.substr (_offset, t).c_str(), t);
  90         _offset += t;
  91         return t;
  92 }
  93
  94 void
  95 Emailer::send (string server, int port, string user, string password)
  96 {
  97         char date_buffer[32];
  98         time_t now = time (0);
  99         strftime (date_buffer, sizeof(date_buffer), "%a, %d %b %Y %H:%M:%S ", localtime (&now));
 100
 101         boost::posix_time::ptime const utc_now = boost::posix_time::second_clock::universal_time ();
 102         boost::posix_time::ptime const local_now = boost::date_time::c_local_adjustor<boost::posix_time::ptime>::utc_to_local (utc_now);
 103         boost::posix_time::time_duration offset = local_now - utc_now;
 104         sprintf (date_buffer + strlen(date_buffer), "%s%02d%02d", (offset.hours() >= 0 ? "+" : "-"), abs (offset.hours()), offset.minutes());
 105
 106         _email = "Date: " + string(date_buffer) + "\r\n"
 107                 "To: " + address_list (_to) + "\r\n"
 108                 "From: " + _from + "\r\n";
 109
 110         if (!_cc.empty ()) {
 111                 _email += "Cc: " + address_list (_cc) + "\r\n";
 112         }
 113
 114         if (!_bcc.empty ()) {
 115                 _email += "Bcc: " + address_list (_bcc) + "\r\n";
 116         }
 117
 118         string const chars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890";
 119         string boundary;
 120         for (int i = 0; i < 32; ++i) {
 121                 boundary += chars[rand() % chars.length()];
 122         }
 123
 124         if (!_attachments.empty ()) {
 125                 _email += "MIME-Version: 1.0\r\n"
 126                         "Content-Type: multipart/mixed; boundary=" + boundary + "\r\n";
 127         }
 128
 129         _email += "Subject: " + _subject + "\r\n"
 130                 "User-Agent: DCP-o-matic\r\n"
 131                 "\r\n";
 132
 133         if (!_attachments.empty ()) {
 134                 _email += "--" + boundary + "\r\n"
 135                         + "Content-Type: text/plain; charset=utf-8\r\n\r\n";
 136         }
 137
 138         _email += _body;
 139
 140         BOOST_FOREACH (Attachment i, _attachments) {
 141                 _email += "\r\n\r\n--" + boundary + "\r\n"
 142                         "Content-Type: " + i.mime_type + "; name=" + i.name + "\r\n"
 143                         "Content-Transfer-Encoding: Base64\r\n"
 144                         "Content-Disposition: attachment; filename=" + i.name + "\r\n\r\n";
 145
 146                 BIO* b64 = BIO_new (BIO_f_base64());
 147
 148                 BIO* bio = BIO_new (BIO_s_mem());
 149                 bio = BIO_push (b64, bio);
 150
 151                 Data data (i.file);
 152                 BIO_write (bio, data.data().get(), data.size());
 153                 (void) BIO_flush (bio);
 154
 155                 char* out;
 156                 long int bytes = BIO_get_mem_data (bio, &out);
 157                 _email += string (out, bytes);
 158
 159                 BIO_free_all (b64);
 160         }
 161
 162         if (!_attachments.empty ()) {
 163                 _email += "\r\n--" + boundary + "--\r\n";
 164         }
 165
 166         curl_global_init (CURL_GLOBAL_DEFAULT);
 167
 168         CURL* curl = curl_easy_init ();
 169         if (!curl) {
 170                 throw NetworkError ("Could not initialise libcurl");
 171         }
 172
 173         curl_easy_setopt (curl, CURLOPT_URL, String::compose ("smtp://%1:%2", server.c_str(), port).c_str());
 174
 175         if (!user.empty ()) {
 176                 curl_easy_setopt (curl, CURLOPT_USERNAME, user.c_str ());
 177         }
 178         if (!password.empty ()) {
 179                 curl_easy_setopt (curl, CURLOPT_PASSWORD, password.c_str());
 180         }
 181
 182         curl_easy_setopt (curl, CURLOPT_MAIL_FROM, _from.c_str());
 183
 184         struct curl_slist* recipients = 0;
 185         BOOST_FOREACH (string i, _to) {
 186                 recipients = curl_slist_append (recipients, i.c_str());
 187         }
 188         BOOST_FOREACH (string i, _cc) {
 189                 recipients = curl_slist_append (recipients, i.c_str());
 190         }
 191         BOOST_FOREACH (string i, _bcc) {
 192                 recipients = curl_slist_append (recipients, i.c_str());
 193         }
 194
 195         curl_easy_setopt (curl, CURLOPT_MAIL_RCPT, recipients);
 196
 197         curl_easy_setopt (curl, CURLOPT_READFUNCTION, curl_data_shim);
 198         curl_easy_setopt (curl, CURLOPT_READDATA, this);
 199         curl_easy_setopt (curl, CURLOPT_UPLOAD, 1L);
 200
 201         curl_easy_setopt (curl, CURLOPT_USE_SSL, (long) CURLUSESSL_TRY);
 202         curl_easy_setopt (curl, CURLOPT_SSL_VERIFYPEER, 0L);
 203         curl_easy_setopt (curl, CURLOPT_SSL_VERIFYHOST, 0L);
 204         curl_easy_setopt (curl, CURLOPT_VERBOSE, 1L);
 205         curl_easy_setopt (curl, CURLOPT_DEBUGFUNCTION, curl_debug_shim);
 206         curl_easy_setopt (curl, CURLOPT_DEBUGDATA, this);
 207
 208         CURLcode const r = curl_easy_perform (curl);
 209         if (r != CURLE_OK) {
 210                 throw KDMError (String::compose (_("Failed to send email (%1)"), curl_easy_strerror (r)));
 211         }
 212
 213         curl_slist_free_all (recipients);
 214         curl_easy_cleanup (curl);
 215         curl_global_cleanup ();
 216 }
 217
 218 string
 219 Emailer::address_list (list<string> addresses)
 220 {
 221         string o;
 222         BOOST_FOREACH (string i, addresses) {
 223                 o += i + ", ";
 224         }
 225
 226         return o.substr (0, o.length() - 2);
 227 }
 228
 229 int
 230 Emailer::debug (CURL *, curl_infotype type, char* data, size_t size)
 231 {
 232         if (type == CURLINFO_TEXT) {
 233                 _notes += string (data, size);
 234         } else if (type == CURLINFO_HEADER_IN) {
 235                 _notes += "<- " + string (data, size);
 236         } else if (type == CURLINFO_HEADER_OUT) {
 237                 _notes += "-> " + string (data, size);
 238         }
 239         return 0;
 240 }