src/monkey/mail_sender.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <ctype.h>
   4 #include <unistd.h>
   5 #include <getopt.h>
   6 #include <string.h>
   7 #include <fcntl.h>
   8 #include <signal.h>
   9 #include <errno.h>
  10 #include <stdarg.h>
  11
  12 #include <openssl/ssl.h>
  13 #include <auth-client.h>
  14 #include <libesmtp.h>
  15
  16 #if !defined (__GNUC__) || __GNUC__ < 2
  17 # define __attribute__(x)
  18 #endif
  19 #define unused      __attribute__((unused))
  20
  21
  22 int
  23 handle_invalid_peer_certificate(long vfy_result)
  24 {
  25   const char *k ="rare error";
  26   switch(vfy_result) {
  27   case X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT:
  28     k="X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT"; break;
  29   case X509_V_ERR_UNABLE_TO_GET_CRL:
  30     k="X509_V_ERR_UNABLE_TO_GET_CRL"; break;
  31   case X509_V_ERR_UNABLE_TO_DECRYPT_CERT_SIGNATURE:
  32     k="X509_V_ERR_UNABLE_TO_DECRYPT_CERT_SIGNATURE"; break;
  33   case X509_V_ERR_UNABLE_TO_DECRYPT_CRL_SIGNATURE:
  34     k="X509_V_ERR_UNABLE_TO_DECRYPT_CRL_SIGNATURE"; break;
  35   case X509_V_ERR_UNABLE_TO_DECODE_ISSUER_PUBLIC_KEY:
  36     k="X509_V_ERR_UNABLE_TO_DECODE_ISSUER_PUBLIC_KEY"; break;
  37   case X509_V_ERR_CERT_SIGNATURE_FAILURE:
  38     k="X509_V_ERR_CERT_SIGNATURE_FAILURE"; break;
  39   case X509_V_ERR_CRL_SIGNATURE_FAILURE:
  40     k="X509_V_ERR_CRL_SIGNATURE_FAILURE"; break;
  41   case X509_V_ERR_CERT_NOT_YET_VALID:
  42     k="X509_V_ERR_CERT_NOT_YET_VALID"; break;
  43   case X509_V_ERR_CERT_HAS_EXPIRED:
  44     k="X509_V_ERR_CERT_HAS_EXPIRED"; break;
  45   case X509_V_ERR_CRL_NOT_YET_VALID:
  46     k="X509_V_ERR_CRL_NOT_YET_VALID"; break;
  47   case X509_V_ERR_CRL_HAS_EXPIRED:
  48     k="X509_V_ERR_CRL_HAS_EXPIRED"; break;
  49   case X509_V_ERR_ERROR_IN_CERT_NOT_BEFORE_FIELD:
  50     k="X509_V_ERR_ERROR_IN_CERT_NOT_BEFORE_FIELD"; break;
  51   case X509_V_ERR_ERROR_IN_CERT_NOT_AFTER_FIELD:
  52     k="X509_V_ERR_ERROR_IN_CERT_NOT_AFTER_FIELD"; break;
  53   case X509_V_ERR_ERROR_IN_CRL_LAST_UPDATE_FIELD:
  54     k="X509_V_ERR_ERROR_IN_CRL_LAST_UPDATE_FIELD"; break;
  55   case X509_V_ERR_ERROR_IN_CRL_NEXT_UPDATE_FIELD:
  56     k="X509_V_ERR_ERROR_IN_CRL_NEXT_UPDATE_FIELD"; break;
  57   case X509_V_ERR_OUT_OF_MEM:
  58     k="X509_V_ERR_OUT_OF_MEM"; break;
  59   case X509_V_ERR_DEPTH_ZERO_SELF_SIGNED_CERT:
  60     k="X509_V_ERR_DEPTH_ZERO_SELF_SIGNED_CERT"; break;
  61   case X509_V_ERR_SELF_SIGNED_CERT_IN_CHAIN:
  62     k="X509_V_ERR_SELF_SIGNED_CERT_IN_CHAIN"; break;
  63   case X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT_LOCALLY:
  64     k="X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT_LOCALLY"; break;
  65   case X509_V_ERR_UNABLE_TO_VERIFY_LEAF_SIGNATURE:
  66     k="X509_V_ERR_UNABLE_TO_VERIFY_LEAF_SIGNATURE"; break;
  67   case X509_V_ERR_CERT_CHAIN_TOO_LONG:
  68     k="X509_V_ERR_CERT_CHAIN_TOO_LONG"; break;
  69   case X509_V_ERR_CERT_REVOKED:
  70     k="X509_V_ERR_CERT_REVOKED"; break;
  71   case X509_V_ERR_INVALID_CA:
  72     k="X509_V_ERR_INVALID_CA"; break;
  73   case X509_V_ERR_PATH_LENGTH_EXCEEDED:
  74     k="X509_V_ERR_PATH_LENGTH_EXCEEDED"; break;
  75   case X509_V_ERR_INVALID_PURPOSE:
  76     k="X509_V_ERR_INVALID_PURPOSE"; break;
  77   case X509_V_ERR_CERT_UNTRUSTED:
  78     k="X509_V_ERR_CERT_UNTRUSTED"; break;
  79   case X509_V_ERR_CERT_REJECTED:
  80     k="X509_V_ERR_CERT_REJECTED"; break;
  81   }
  82   printf("SMTP_EV_INVALID_PEER_CERTIFICATE: %ld: %s\n", vfy_result, k);
  83   return 1; /* Accept the problem */
  84 }
  85
  86
  87 void event_cb (smtp_session_t session, int event_no, void *arg,...)
  88 {
  89   va_list alist;
  90   int *ok;
  91
  92   va_start(alist, arg);
  93   switch(event_no) {
  94   case SMTP_EV_CONNECT:
  95   case SMTP_EV_MAILSTATUS:
  96   case SMTP_EV_RCPTSTATUS:
  97   case SMTP_EV_MESSAGEDATA:
  98   case SMTP_EV_MESSAGESENT:
  99   case SMTP_EV_DISCONNECT: break;
 100   case SMTP_EV_WEAK_CIPHER: {
 101     int bits;
 102     bits = va_arg(alist, long); ok = va_arg(alist, int*);
 103     printf("SMTP_EV_WEAK_CIPHER, bits=%d - accepted.\n", bits);
 104     *ok = 1; break;
 105   }
 106   case SMTP_EV_STARTTLS_OK:
 107     puts("SMTP_EV_STARTTLS_OK - TLS started here."); break;
 108   case SMTP_EV_INVALID_PEER_CERTIFICATE: {
 109     long vfy_result;
 110     vfy_result = va_arg(alist, long); ok = va_arg(alist, int*);
 111     *ok = handle_invalid_peer_certificate(vfy_result);
 112     break;
 113   }
 114   case SMTP_EV_NO_PEER_CERTIFICATE: {
 115     ok = va_arg(alist, int*);
 116     puts("SMTP_EV_NO_PEER_CERTIFICATE - accepted.");
 117     *ok = 1; break;
 118   }
 119   case SMTP_EV_WRONG_PEER_CERTIFICATE: {
 120     ok = va_arg(alist, int*);
 121     puts("SMTP_EV_WRONG_PEER_CERTIFICATE - accepted.");
 122     *ok = 1; break;
 123   }
 124   case SMTP_EV_NO_CLIENT_CERTIFICATE: {
 125     ok = va_arg(alist, int*);
 126     puts("SMTP_EV_NO_CLIENT_CERTIFICATE - accepted.");
 127     *ok = 1; break;
 128   }
 129   default:
 130     printf("Got event: %d - ignored.\n", event_no);
 131   }
 132   va_end(alist);
 133 }
 134
 135
 136 /* Callback to prnt the recipient status */
 137 void
 138 print_recipient_status (smtp_recipient_t recipient,
 139                         const char *mailbox, void *arg unused)
 140 {
 141   const smtp_status_t *status;
 142
 143   status = smtp_recipient_status (recipient);
 144   printf ("%s: %d %s", mailbox, status->code, status->text);
 145 }
 146
 147
 148 void sendMail(const char *messageContents)
 149 {
 150         smtp_session_t session;
 151         smtp_message_t message;
 152         smtp_recipient_t recipient;
 153         const smtp_status_t *status;
 154         struct sigaction sa;
 155         char *host = "localhost:25";
 156         char *from = "gnunet-monkey";
 157         char *subject = "e-mail from Libesmtp!";
 158         const char *recipient_address = "safey.allah@gmail.com";
 159         char tempFileName[1000];
 160         int tempFd;
 161         FILE *fp;
 162         enum notify_flags notify = Notify_SUCCESS | Notify_FAILURE;
 163
 164         auth_client_init();
 165         session = smtp_create_session();
 166         message = smtp_add_message(session);
 167
 168         /* Ignore sigpipe */
 169         sa.sa_handler = SIG_IGN;
 170         sigemptyset(&sa.sa_mask);
 171         sa.sa_flags = 0;
 172         sigaction(SIGPIPE, &sa, NULL);
 173
 174
 175         smtp_set_server(session, host);
 176         smtp_set_eventcb(session, event_cb, NULL);
 177
 178         /* Set the reverse path for the mail envelope.  (NULL is ok)
 179          */
 180         smtp_set_reverse_path(message, from);
 181
 182         /* Set the Subject: header.  For no reason, we want the supplied subject
 183          to override any subject line in the message headers. */
 184         if (subject != NULL) {
 185                 smtp_set_header(message, "Subject", subject);
 186                 smtp_set_header_option(message, "Subject", Hdr_OVERRIDE, 1);
 187         }
 188
 189
 190         /* Prepare message */
 191         memset(tempFileName, 0, sizeof(tempFileName));
 192         sprintf(tempFileName, "/tmp/messageXXXXXX");
 193         tempFd = mkstemp(tempFileName);
 194         fp = fdopen(tempFd, "w");
 195         fprintf(fp, messageContents);
 196         fclose(fp);
 197         fp = fopen(tempFileName, "r");
 198         smtp_set_message_fp(message, fp);
 199
 200
 201         recipient = smtp_add_recipient(message, recipient_address);
 202
 203         smtp_dsn_set_notify (recipient, notify);
 204
 205         /* Initiate a connection to the SMTP server and transfer the
 206          message. */
 207         if (!smtp_start_session(session)) {
 208                 char buf[128];
 209
 210                 fprintf(stderr, "SMTP server problem %s\n", smtp_strerror(smtp_errno(),
 211                                 buf, sizeof buf));
 212         } else {
 213                 /* Report on the success or otherwise of the mail transfer.
 214                  */
 215                 status = smtp_message_transfer_status(message);
 216                 printf("%d %s", status->code, (status->text != NULL) ? status->text
 217                                 : "\n");
 218                 smtp_enumerate_recipients(message, print_recipient_status, NULL);
 219         }
 220
 221         /* Free resources consumed by the program.
 222          */
 223         smtp_destroy_session(session);
 224         fclose(fp);
 225         auth_client_exit();
 226 }
 227