2 This file is part of GNUnet
3 (C) 2003, 2004, 2005, 2006, 2007 Christian Grothoff (and other contributing authors)
5 GNUnet is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published
7 by the Free Software Foundation; either version 3, or (at your
8 option) any later version.
10 GNUnet is distributed in the hope that it will be useful, but
11 WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with GNUnet; see the file COPYING. If not, write to the
17 Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA.
22 * @file transport/plugin_transport_smtp.c
23 * @brief Implementation of the SMTP transport service
24 * @author Christian Grothoff
25 * @author Renaldo Ferreira
29 #include "gnunet_util.h"
30 #include "gnunet_directories.h"
31 #include "gnunet_protocols.h"
32 #include "gnunet_transport.h"
33 #include "gnunet_stats_service.h"
39 * The default maximum size of each outbound SMTP message.
41 #define SMTP_MESSAGE_SIZE 65528
43 #define DEBUG_SMTP GNUNET_NO
45 #define FILTER_STRING_SIZE 64
47 /* how long can a line in base64 encoded
48 mime text be? (in characters, excluding "\n") */
49 #define MAX_CHAR_PER_LINE 76
54 * Host-Address in a SMTP network.
60 * Filter line that every sender must include in the E-mails such
61 * that the receiver can effectively filter out the GNUnet traffic
64 char filter[FILTER_STRING_SIZE];
67 * Claimed E-mail address of the sender.
68 * Format is "foo@bar.com" with null termination, padded to be
69 * of a multiple of 8 bytes long.
71 char senderAddress[0];
76 * Encapsulation of a GNUnet message in the SMTP mail body (before
81 GNUNET_MessageHeader header;
84 * What is the identity of the sender (GNUNET_hash of public key)
86 GNUNET_PeerIdentity sender;
90 /* *********** globals ************* */
93 * apis (our advertised API and the core api )
95 static GNUNET_CoreAPIForTransport *coreAPI;
97 static struct GNUNET_GE_Context *ectx;
100 * Thread that listens for inbound messages
102 static struct GNUNET_ThreadHandle *dispatchThread;
105 * Flag to indicate that server has been shut down.
107 static int smtp_shutdown = GNUNET_YES;
110 * Set to the SMTP server hostname (and port) for outgoing messages.
112 static char *smtp_server_name;
114 static char *pipename;
117 * Lock for uses of libesmtp (not thread-safe).
119 static struct GNUNET_Mutex *lock;
122 * Old handler for SIGPIPE (kept to be able to restore).
124 static struct sigaction old_handler;
128 static GNUNET_TransportAPI smtpAPI;
130 static GNUNET_Stats_ServiceAPI *stats;
132 static int stat_bytesReceived;
134 static int stat_bytesSent;
136 static int stat_bytesDropped;
139 * How many e-mails are we allowed to send per hour?
141 static unsigned long long rate_limit;
143 static GNUNET_CronTime last_transmission;
145 /** ******************** Base64 encoding ***********/
148 static char *cvt = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
149 "abcdefghijklmnopqrstuvwxyz" "0123456789+/";
152 * Encode into Base64.
154 * @param data the data to encode
155 * @param len the length of the input
156 * @param output where to write the output (*output should be NULL,
158 * @return the size of the output
161 base64_encode (const char *data, unsigned int len, char **output)
168 /* (*output)[ret++] = '\r'; \*/
170 if ( (ret % MAX_CHAR_PER_LINE) == 0) { \
171 (*output)[ret++] = '\n'; \
174 opt = GNUNET_malloc (2 + (((len * 4 / 3) + 8) * (MAX_CHAR_PER_LINE + 2)) /
176 /* message must start with \r\n for libesmtp */
181 for (i = 0; i < len; ++i)
183 c = (data[i] >> 2) & 0x3f;
184 opt[ret++] = cvt[(int) c];
186 c = (data[i] << 4) & 0x3f;
188 c |= (data[i] >> 4) & 0x0f;
189 opt[ret++] = cvt[(int) c];
193 c = (data[i] << 2) & 0x3f;
195 c |= (data[i] >> 6) & 0x03;
196 opt[ret++] = cvt[(int) c];
202 opt[ret++] = FILLCHAR;
208 opt[ret++] = cvt[(int) c];
213 opt[ret++] = FILLCHAR;
217 opt[ret++] = FILLCHAR;
221 #define cvtfind(a)( (((a) >= 'A')&&((a) <= 'Z'))? (a)-'A'\
222 :(((a)>='a')&&((a)<='z')) ? (a)-'a'+26\
223 :(((a)>='0')&&((a)<='9')) ? (a)-'0'+52\
225 :((a) == '/') ? 63 : -1)
227 * Decode from Base64.
229 * @param data the data to encode
230 * @param len the length of the input
231 * @param output where to write the output (*output should be NULL,
233 * @return the size of the output
236 base64_decode (const char *data, unsigned int len, char **output)
241 unsigned int ret = 0;
243 #define CHECK_CRLF while (data[i] == '\r' || data[i] == '\n') {\
244 GNUNET_GE_LOG(ectx, GNUNET_GE_DEBUG | GNUNET_GE_REQUEST | GNUNET_GE_USER, "ignoring CR/LF\n"); \
246 if (i >= len) goto END; \
249 *output = GNUNET_malloc ((len * 3 / 4) + 8);
251 GNUNET_GE_LOG (ectx, GNUNET_GE_DEBUG | GNUNET_GE_REQUEST | GNUNET_GE_USER,
252 "base64_decode decoding len=%d\n", len);
254 for (i = 0; i < len; ++i)
257 if (data[i] == FILLCHAR)
259 c = (char) cvtfind (data[i]);
262 c1 = (char) cvtfind (data[i]);
263 c = (c << 2) | ((c1 >> 4) & 0x3);
264 (*output)[ret++] = c;
271 c = (char) cvtfind (c);
272 c1 = ((c1 << 4) & 0xf0) | ((c >> 2) & 0xf);
273 (*output)[ret++] = c1;
282 c1 = (char) cvtfind (c1);
283 c = ((c << 6) & 0xc0) | c1;
284 (*output)[ret++] = c;
291 /* ********************* the real stuff ******************* */
293 #define strAUTOncmp(a,b) strncmp(a,b,strlen(b))
296 * Listen to the pipe, decode messages and send to core.
299 listenAndDistribute (void *unused)
302 unsigned int linesize;
308 GNUNET_TransportPacket *coreMP;
312 linesize = ((GNUNET_MAX_BUFFER_SIZE * 4 / 3) + 8) * (MAX_CHAR_PER_LINE + 2) / MAX_CHAR_PER_LINE; /* maximum size of a line supported */
313 line = GNUNET_malloc (linesize + 2); /* 2 bytes for off-by-one errors, just to be safe... */
315 #define READLINE(l,limit) \
316 do { retl = fgets(l, (limit), fdes); \
317 if ( (retl == NULL) || (smtp_shutdown == GNUNET_YES)) {\
320 if (coreAPI->load_monitor != NULL) \
321 GNUNET_network_monitor_notify_transmission(coreAPI->load_monitor, GNUNET_ND_DOWNLOAD, strlen(retl)); \
325 while (smtp_shutdown == GNUNET_NO)
327 fd = OPEN (pipename, O_RDONLY | O_ASYNC);
330 if (smtp_shutdown == GNUNET_NO)
331 GNUNET_thread_sleep (5 * GNUNET_CRON_SECONDS);
334 fdes = fdopen (fd, "r");
335 while (smtp_shutdown == GNUNET_NO)
337 /* skip until end of header */
340 READLINE (line, linesize);
342 while ((line[0] != '\r') && (line[0] != '\n')); /* expect newline */
343 READLINE (line, linesize); /* read base64 encoded message; decode, process */
347 pos = strlen (line) - 1; /* ignore new line */
348 READLINE (&line[pos], linesize - pos); /* read base64 encoded message; decode, process */
349 if ((line[pos] == '\r') || (line[pos] == '\n'))
350 break; /* empty line => end of message! */
352 size = base64_decode (line, pos, &out);
353 if (size < sizeof (SMTPMessage))
355 GNUNET_GE_BREAK (ectx, 0);
360 mp = (SMTPMessage *) & out[size - sizeof (SMTPMessage)];
361 if (ntohs (mp->header.size) != size)
364 GNUNET_GE_WARNING | GNUNET_GE_BULK |
367 ("Received malformed message via %s. Ignored.\n"),
371 GNUNET_GE_DEBUG | GNUNET_GE_REQUEST |
373 "Size returned by base64=%d, in the msg=%d.\n",
374 size, ntohl (mp->size));
380 stats->change (stat_bytesReceived, size);
381 coreMP = GNUNET_malloc (sizeof (GNUNET_TransportPacket));
383 coreMP->size = size - sizeof (SMTPMessage);
384 coreMP->tsession = NULL;
385 coreMP->sender = mp->sender;
388 GNUNET_GE_DEBUG | GNUNET_GE_REQUEST | GNUNET_GE_USER,
389 "SMTP message passed to the core.\n");
392 coreAPI->receive (coreMP);
397 GNUNET_GE_DEBUG | GNUNET_GE_REQUEST | GNUNET_GE_USER,
398 "SMTP message processed.\n");
407 /* *************** API implementation *************** */
410 * Verify that a hello-Message is correct (a node is reachable at that
411 * address). Since the reply will be asynchronous, a method must be
414 * @param hello the hello message to verify
415 * (the signature/crc have been verified before)
416 * @return GNUNET_OK on success, GNUNET_SYSERR on error
419 api_verify_hello (const GNUNET_MessageHello * hello)
421 const EmailAddress *maddr;
423 maddr = (const EmailAddress *) &hello[1];
424 if ((ntohs (hello->header.size) !=
425 sizeof (GNUNET_MessageHello) + ntohs (hello->senderAddressSize)) ||
426 (maddr->senderAddress[ntohs (hello->senderAddressSize) - 1 -
427 FILTER_STRING_SIZE] != '\0'))
429 GNUNET_GE_BREAK (ectx, 0);
430 return GNUNET_SYSERR; /* obviously invalid */
432 if (NULL == strstr (maddr->filter, ": "))
433 return GNUNET_SYSERR;
438 * Create a hello-Message for the current node. The hello is created
439 * without signature and without a timestamp. The GNUnet core will
440 * GNUNET_RSA_sign the message and add an expiration time.
442 * @return hello on success, NULL on error
444 static GNUNET_MessageHello *
447 GNUNET_MessageHello *msg;
452 GNUNET_GC_get_configuration_value_string (coreAPI->cfg,
454 "X-mailer: GNUnet", &filter);
455 if (NULL == strstr (filter, ": "))
458 GNUNET_GE_WARNING | GNUNET_GE_BULK | GNUNET_GE_USER,
459 _("SMTP filter string to invalid, lacks ': '\n"));
460 GNUNET_free (filter);
464 if (strlen (filter) > FILTER_STRING_SIZE)
466 filter[FILTER_STRING_SIZE] = '\0';
468 GNUNET_GE_WARNING | GNUNET_GE_BULK | GNUNET_GE_USER,
469 _("SMTP filter string to long, capped to `%s'\n"),
472 i = (strlen (email) + 8) & (~7); /* make multiple of 8 */
474 GNUNET_malloc (sizeof (GNUNET_MessageHello) + sizeof (EmailAddress) + i);
475 memset (msg, 0, sizeof (GNUNET_MessageHello) + sizeof (EmailAddress) + i);
476 haddr = (EmailAddress *) & msg[1];
477 memset (&haddr->filter[0], 0, FILTER_STRING_SIZE);
478 strcpy (&haddr->filter[0], filter);
479 memcpy (&haddr->senderAddress[0], email, strlen (email) + 1);
480 msg->senderAddressSize = htons (strlen (email) + 1 + sizeof (EmailAddress));
481 msg->protocol = htons (GNUNET_TRANSPORT_PROTOCOL_NUMBER_SMTP);
482 msg->MTU = htonl (smtpAPI.mtu);
483 msg->header.size = htons (GNUNET_sizeof_hello (msg));
484 if (api_verify_hello (msg) == GNUNET_SYSERR)
485 GNUNET_GE_ASSERT (ectx, 0);
486 GNUNET_free (filter);
490 struct GetMessageClosure
498 get_message (void **buf, int *len, void *cls)
500 struct GetMessageClosure *gmc = cls;
508 if (gmc->pos == gmc->esize)
509 return NULL; /* done */
511 gmc->pos = gmc->esize;
516 * Send a message to the specified remote node.
518 * @param tsession the GNUNET_MessageHello identifying the remote node
519 * @param msg what to send
520 * @param size the size of the message
521 * @param important is this message important enough to override typical limits?
522 * @return GNUNET_SYSERR on error, GNUNET_OK on success
525 api_send (GNUNET_TSession * tsession,
526 const void *msg, const unsigned int size, int important)
528 const GNUNET_MessageHello *hello;
529 const EmailAddress *haddr;
534 struct GetMessageClosure gm_cls;
535 smtp_session_t session;
536 smtp_message_t message;
537 smtp_recipient_t recipient;
542 if (smtp_shutdown == GNUNET_YES)
543 return GNUNET_SYSERR;
544 if ((size == 0) || (size > smtpAPI.mtu))
546 GNUNET_GE_BREAK (ectx, 0);
547 return GNUNET_SYSERR;
549 now = GNUNET_get_time ();
550 if ((important != GNUNET_YES) &&
551 ((now - last_transmission) * rate_limit) < GNUNET_CRON_HOURS)
552 return GNUNET_NO; /* rate too high */
553 last_transmission = now;
555 hello = (const GNUNET_MessageHello *) tsession->internal;
557 return GNUNET_SYSERR;
558 GNUNET_mutex_lock (lock);
559 session = smtp_create_session ();
563 GNUNET_GE_ERROR | GNUNET_GE_ADMIN | GNUNET_GE_USER |
565 _("SMTP: `%s' failed: %s.\n"),
566 "smtp_create_session",
567 smtp_strerror (smtp_errno (), ebuf, EBUF_LEN));
568 GNUNET_mutex_unlock (lock);
569 return GNUNET_SYSERR;
571 if (0 == smtp_set_server (session, smtp_server_name))
574 GNUNET_GE_ERROR | GNUNET_GE_ADMIN | GNUNET_GE_USER |
576 _("SMTP: `%s' failed: %s.\n"),
578 smtp_strerror (smtp_errno (), ebuf, EBUF_LEN));
579 smtp_destroy_session (session);
580 GNUNET_mutex_unlock (lock);
581 return GNUNET_SYSERR;
583 haddr = (const EmailAddress *) &hello[1];
584 message = smtp_add_message (session);
588 GNUNET_GE_WARNING | GNUNET_GE_ADMIN | GNUNET_GE_USER |
590 _("SMTP: `%s' failed: %s.\n"),
592 smtp_strerror (smtp_errno (), ebuf, EBUF_LEN));
593 smtp_destroy_session (session);
594 GNUNET_mutex_unlock (lock);
595 return GNUNET_SYSERR;
597 smtp_set_header (message, "To", NULL, haddr->senderAddress);
598 smtp_set_header (message, "From", NULL, email);
600 filter = GNUNET_strdup (haddr->filter);
601 fvalue = strstr (filter, ": ");
602 GNUNET_GE_ASSERT (NULL, NULL != fvalue);
605 if (0 == smtp_set_header (message, filter, fvalue))
608 GNUNET_GE_WARNING | GNUNET_GE_ADMIN | GNUNET_GE_USER |
610 _("SMTP: `%s' failed: %s.\n"),
612 smtp_strerror (smtp_errno (), ebuf, EBUF_LEN));
613 smtp_destroy_session (session);
614 GNUNET_mutex_unlock (lock);
615 GNUNET_free (filter);
616 return GNUNET_SYSERR;
618 GNUNET_free (filter);
619 m = GNUNET_malloc (size + sizeof (SMTPMessage));
620 memcpy (m, msg, size);
621 mp = (SMTPMessage *) & m[size];
622 mp->header.size = htons (size + sizeof (SMTPMessage));
623 mp->header.type = htons (0);
624 mp->sender = *coreAPI->my_identity;
628 base64_encode (m, size + sizeof (SMTPMessage), &gm_cls.ebody);
630 if (0 == smtp_size_set_estimate (message, gm_cls.esize))
633 GNUNET_GE_WARNING | GNUNET_GE_ADMIN | GNUNET_GE_USER |
635 _("SMTP: `%s' failed: %s.\n"),
636 "smtp_size_set_estimate",
637 smtp_strerror (smtp_errno (), ebuf, EBUF_LEN));
639 if (0 == smtp_set_messagecb (message, &get_message, &gm_cls))
642 GNUNET_GE_WARNING | GNUNET_GE_ADMIN | GNUNET_GE_USER |
644 _("SMTP: `%s' failed: %s.\n"),
645 "smtp_set_messagecb",
646 smtp_strerror (smtp_errno (), ebuf, EBUF_LEN));
647 smtp_destroy_session (session);
648 GNUNET_mutex_unlock (lock);
649 GNUNET_free (gm_cls.ebody);
650 return GNUNET_SYSERR;
652 recipient = smtp_add_recipient (message, haddr->senderAddress);
653 if (recipient == NULL)
656 GNUNET_GE_WARNING | GNUNET_GE_ADMIN | GNUNET_GE_USER |
658 _("SMTP: `%s' failed: %s.\n"),
659 "smtp_add_recipient",
660 smtp_strerror (smtp_errno (), ebuf, EBUF_LEN));
661 smtp_destroy_session (session);
662 GNUNET_mutex_unlock (lock);
663 return GNUNET_SYSERR;
665 if (0 == smtp_start_session (session))
668 GNUNET_GE_WARNING | GNUNET_GE_ADMIN | GNUNET_GE_USER |
670 _("SMTP: `%s' failed: %s.\n"),
671 "smtp_start_session",
672 smtp_strerror (smtp_errno (), ebuf, EBUF_LEN));
673 smtp_destroy_session (session);
674 GNUNET_mutex_unlock (lock);
675 GNUNET_free (gm_cls.ebody);
676 return GNUNET_SYSERR;
679 stats->change (stat_bytesSent, size);
680 if (coreAPI->load_monitor != NULL)
681 GNUNET_network_monitor_notify_transmission (coreAPI->load_monitor,
684 smtp_message_reset_status (message); /* this is needed to plug a 28-byte/message memory leak in libesmtp */
685 smtp_destroy_session (session);
686 GNUNET_mutex_unlock (lock);
687 GNUNET_free (gm_cls.ebody);
692 * Establish a connection to a remote node.
693 * @param hello the hello-Message for the target node
694 * @param tsessionPtr the session handle that is to be set
695 * @param may_reuse can we re-use an existing connection?
696 * @return GNUNET_OK on success, GNUNET_SYSERR if the operation failed
699 api_connect (const GNUNET_MessageHello * hello,
700 GNUNET_TSession ** tsessionPtr, int may_reuse)
702 GNUNET_TSession *tsession;
704 tsession = GNUNET_malloc (sizeof (GNUNET_TSession));
705 tsession->internal = GNUNET_malloc (GNUNET_sizeof_hello (hello));
706 tsession->peer = hello->senderIdentity;
707 memcpy (tsession->internal, hello, GNUNET_sizeof_hello (hello));
708 tsession->ttype = smtpAPI.protocol_number;
709 (*tsessionPtr) = tsession;
714 * Disconnect from a remote node.
716 * @param tsession the session that is closed
717 * @return GNUNET_OK on success, GNUNET_SYSERR if the operation failed
720 api_disconnect (GNUNET_TSession * tsession)
722 if (tsession != NULL)
724 if (tsession->internal != NULL)
725 GNUNET_free (tsession->internal);
726 GNUNET_free (tsession);
732 * Start the server process to receive inbound traffic.
733 * @return GNUNET_OK on success, GNUNET_SYSERR if the operation failed
736 api_start_transport_server ()
738 smtp_shutdown = GNUNET_NO;
739 /* initialize SMTP network */
741 GNUNET_thread_create (&listenAndDistribute, NULL, 1024 * 4);
742 if (dispatchThread == NULL)
744 GNUNET_GE_DIE_STRERROR (ectx,
745 GNUNET_GE_ADMIN | GNUNET_GE_BULK |
746 GNUNET_GE_FATAL, "pthread_create");
747 return GNUNET_SYSERR;
753 * Shutdown the server process (stop receiving inbound traffic). Maybe
757 api_stop_transport_server ()
761 smtp_shutdown = GNUNET_YES;
762 GNUNET_thread_stop_sleep (dispatchThread);
763 GNUNET_thread_join (dispatchThread, &unused);
768 * Convert SMTP hello to an IP address (always fails).
771 api_hello_to_address (const GNUNET_MessageHello * hello,
772 void **sa, unsigned int *sa_len)
774 return GNUNET_SYSERR;
781 api_associate (GNUNET_TSession * tsession)
783 return GNUNET_SYSERR; /* SMTP connections can never be associated */
787 * Always succeeds (for now; we should look at adding
788 * frequency limits to SMTP in the future!).
791 api_test_would_try (GNUNET_TSession * tsession, const unsigned int size,
794 return GNUNET_OK; /* we always try... */
798 * The exported method. Makes the core api available via a global and
799 * returns the smtp transport API.
801 GNUNET_TransportAPI *
802 inittransport_smtp (GNUNET_CoreAPIForTransport * core)
806 unsigned long long mtu;
811 if (!GNUNET_GC_have_configuration_value (coreAPI->cfg, "SMTP", "EMAIL"))
814 GNUNET_GE_ERROR | GNUNET_GE_BULK | GNUNET_GE_USER,
816 ("No email-address specified, can not start SMTP transport.\n"));
819 GNUNET_GC_get_configuration_value_number (coreAPI->cfg,
824 SMTP_MESSAGE_SIZE, &mtu);
825 GNUNET_GC_get_configuration_value_number (coreAPI->cfg,
828 0, 0, 1024 * 1024, &rate_limit);
829 stats = coreAPI->service_request ("stats");
833 = stats->create (gettext_noop ("# bytes received via SMTP"));
834 stat_bytesSent = stats->create (gettext_noop ("# bytes sent via SMTP"));
836 = stats->create (gettext_noop ("# bytes dropped by SMTP (outgoing)"));
838 GNUNET_GC_get_configuration_value_filename (coreAPI->cfg,
841 GNUNET_DEFAULT_DAEMON_VAR_DIRECTORY
842 "/smtp-pipe", &pipename);
844 if (0 != mkfifo (pipename, S_IWUSR | S_IRUSR | S_IWGRP | S_IWOTH))
846 GNUNET_GE_LOG_STRERROR (ectx,
847 GNUNET_GE_ADMIN | GNUNET_GE_BULK |
848 GNUNET_GE_FATAL, "mkfifo");
849 GNUNET_free (pipename);
850 coreAPI->service_release (stats);
854 /* we need to allow the mailer program to send us messages;
855 easiest done by giving it write permissions (see Mantis #1142) */
856 if (0 != chmod (pipename, S_IWUSR | S_IRUSR | S_IWGRP | S_IWOTH))
857 GNUNET_GE_LOG_STRERROR (ectx,
858 GNUNET_GE_ADMIN | GNUNET_GE_BULK |
859 GNUNET_GE_WARNING, "chmod");
860 GNUNET_GC_get_configuration_value_string (coreAPI->cfg,
861 "SMTP", "EMAIL", NULL, &email);
862 lock = GNUNET_mutex_create (GNUNET_NO);
863 GNUNET_GC_get_configuration_value_string (coreAPI->cfg,
868 sa.sa_handler = SIG_IGN;
869 sigemptyset (&sa.sa_mask);
871 sigaction (SIGPIPE, &sa, &old_handler);
873 smtpAPI.protocol_number = GNUNET_TRANSPORT_PROTOCOL_NUMBER_SMTP;
874 smtpAPI.mtu = mtu - sizeof (SMTPMessage);
876 smtpAPI.hello_verify = &api_verify_hello;
877 smtpAPI.hello_create = &api_create_hello;
878 smtpAPI.connect = &api_connect;
879 smtpAPI.send = &api_send;
880 smtpAPI.associate = &api_associate;
881 smtpAPI.disconnect = &api_disconnect;
882 smtpAPI.server_start = &api_start_transport_server;
883 smtpAPI.server_stop = &api_stop_transport_server;
884 smtpAPI.hello_to_address = &api_hello_to_address;
885 smtpAPI.send_now_test = &api_test_would_try;
890 donetransport_smtp ()
892 sigaction (SIGPIPE, &old_handler, NULL);
893 GNUNET_free (smtp_server_name);
896 coreAPI->service_release (stats);
899 GNUNET_mutex_destroy (lock);
902 GNUNET_free (pipename);