mail.c

Go to the documentation of this file.

/* Mail utility routines.
 *
 * (C) 2003-2013 Anope Team
 * Contact us at team@anope.org
 *
 * Please read COPYING and README for further details.
 *
 * Based on the original code of Epona by Lara.
 * Based on the original code of Services by Andy Church.
 *
 *
 */

#include "services.h"
#include "language.h"

/*************************************************************************/

MailInfo *MailRegBegin(User * u, NickRequest * nr, char *subject,
                       char *service)
{
        int timeToWait = 0;
    if (!u || !nr || !subject || !service) {
        return NULL;
    }

    if (!UseMail) {
        notice_lang(service, u, MAIL_DISABLED);
    } else if ((time(NULL) - u->lastmail < MailDelay)) {
        timeToWait = MailDelay - (time(NULL) - u->lastmail);
        notice_lang(service, u, MAIL_DELAYED, timeToWait);
    } else if (!nr->email) {
        notice_lang(service, u, MAIL_INVALID, nr->nick);
    } else {
        MailInfo *mail;
        int pipefds[2];

        mail = scalloc(sizeof(MailInfo), 1);
        mail->sender = u;
        mail->recipient = NULL;
        mail->recip = nr;
        mail->pipe = mail->writepipe = mail->readpipe = NULL;

#if HAVE_FORK
        if (ForkForMail && !pipe(pipefds))
        {
                mail->writepipe = fdopen(pipefds[1], "w");
                mail->readpipe = fdopen(pipefds[0], "r");
                mail->pipe = mail->writepipe;
        }
#endif
        if (!mail->pipe && !(mail->pipe = popen(SendMailPath, "w"))) {
            free(mail);
            notice_lang(service, u, MAIL_LATER);
            return NULL;
        }

        fprintf(mail->pipe, "From: %s\n", SendFrom);
        if (DontQuoteAddresses) {
            fprintf(mail->pipe, "To: %s <%s>\n", nr->nick, nr->email);
        } else {
            fprintf(mail->pipe, "To: \"%s\" <%s>\n", nr->nick, nr->email);
        }
        fprintf(mail->pipe, "Subject: %s\n", subject);
        return mail;
    }

    return NULL;
}

/*************************************************************************/

MailInfo *MailBegin(User * u, NickCore * nc, char *subject, char *service)
{
    if (!u || !nc || !subject || !service) {
        return NULL;
    }

    if (!UseMail) {
        notice_lang(service, u, MAIL_DISABLED);
    } else if (((time(NULL) - u->lastmail < MailDelay)
                || (time(NULL) - nc->lastmail < MailDelay))
               && !is_services_root(u)) {
        notice_lang(service, u, MAIL_DELAYED, MailDelay);
    } else if (!nc->email) {
        notice_lang(service, u, MAIL_INVALID, nc->display);
    } else {
        MailInfo *mail;
        int pipefds[2];

        mail = scalloc(sizeof(MailInfo), 1);
        mail->sender = u;
        mail->recipient = nc;
        mail->recip = NULL;
        mail->pipe = mail->writepipe = mail->readpipe = NULL;

#if HAVE_FORK
        if (ForkForMail && !pipe(pipefds))
        {
                mail->writepipe = fdopen(pipefds[1], "w");
                mail->readpipe = fdopen(pipefds[0], "r");
                mail->pipe = mail->writepipe;
        }
#endif
        if (!mail->pipe && !(mail->pipe = popen(SendMailPath, "w"))) {
            free(mail);
            notice_lang(service, u, MAIL_LATER);
            return NULL;
        }

        fprintf(mail->pipe, "From: %s\n", SendFrom);
        if (DontQuoteAddresses) {
            fprintf(mail->pipe, "To: %s <%s>\n", nc->display, nc->email);
        } else {
            fprintf(mail->pipe, "To: \"%s\" <%s>\n", nc->display,
                    nc->email);
        }
        fprintf(mail->pipe, "Subject: %s\n", subject);

        return mail;
    }

    return NULL;
}

/*************************************************************************/

MailInfo *MailMemoBegin(NickCore * nc)
{

    if (!nc)
        return NULL;

    if (!UseMail || !nc->email) {
        return NULL;

    } else {
        MailInfo *mail;
        int pipefds[2];

        mail = scalloc(sizeof(MailInfo), 1);
        mail->sender = NULL;
        mail->recipient = nc;
        mail->recip = NULL;
        mail->pipe = mail->writepipe = mail->readpipe = NULL;

#if HAVE_FORK
        if (ForkForMail && !pipe(pipefds))
        {
                mail->writepipe = fdopen(pipefds[1], "w");
                mail->readpipe = fdopen(pipefds[0], "r");
                mail->pipe = mail->writepipe;
        }
#endif
        if (!mail->pipe && !(mail->pipe = popen(SendMailPath, "w"))) {
            free(mail);
            return NULL;
        }

        fprintf(mail->pipe, "From: %s\n", SendFrom);
        if (DontQuoteAddresses) {
            fprintf(mail->pipe, "To: %s <%s>\n", nc->display, nc->email);
        } else {
            fprintf(mail->pipe, "To: \"%s\" <%s>\n", nc->display,
                    nc->email);
        }
        fprintf(mail->pipe, "Subject: %s\n",
                getstring2(NULL, MEMO_MAIL_SUBJECT));
        return mail;
    }
    return NULL;
}

/*************************************************************************/

void MailEnd(MailInfo * mail)
{
   int pid = -1;
    /*  - param checking modified because we don't
       have an user sending this mail.
       Certus, 02.04.2004 */

    if (!mail || !mail->pipe) { /* removed sender check */
        return;
    }

    if (!mail->recipient && !mail->recip) {
        return;
    }

#if HAVE_FORK
    if (ForkForMail && mail->writepipe && mail->readpipe && !(pid = fork()))
    {
        FILE *fd;
        int ret;

        fputc(255, mail->writepipe);
        fclose(mail->writepipe);

        fd = popen(SendMailPath, "w");

        if (fd)
        {
                while ((ret = fgetc(mail->readpipe)) != 255)
                        fputc(ret, fd);
                pclose(fd);
        }

        fclose(mail->readpipe);
        _exit(EXIT_SUCCESS);
    }
    else if (pid < 0)
#endif
    {
        if (mail->pipe != mail->writepipe)
                pclose(mail->pipe);
        else
        {
                if (mail->writepipe)
                        fclose(mail->writepipe);
                if (mail->readpipe)
                        fclose(mail->readpipe);
        }
    }

    if (mail->sender)           /* added sender check */
        mail->sender->lastmail = time(NULL);

    if (mail->recipient)
        mail->recipient->lastmail = time(NULL);
    else
        mail->recip->lastmail = time(NULL);


    free(mail);
}

/*************************************************************************/

void MailReset(User * u, NickCore * nc)
{
    if (u)
        u->lastmail = 0;
    if (nc)
        nc->lastmail = 0;
}

/*************************************************************************/

int MailValidate(const char *email)
{
    int i, j, has_period = 0, len;
    char copy[BUFSIZE], *domain;

    static char specials[] =
        { '(', ')', '<', '>', '@', ',', ';', ':', '\\', '\"', '[', ']',
        ' '
    };

    if (!email)
        return 0;
    strscpy(copy, email, sizeof(copy));

    domain = strchr(copy, '@');
    if (!domain)
        return 0;
    *domain = '\0';
    domain++;

    /* Don't accept NULL copy or domain. */
    if (*copy == 0 || *domain == 0)
        return 0;

    /* Check for forbidden characters in the name */
    for (i = 0; i < strlen(copy); i++) {

        if (copy[i] <= 31 || copy[i] >= 127)
            return 0;
        for (j = 0; j < 13; j++)
            if (copy[i] == specials[j])
                return 0;
    }

    /* Check for forbidden characters in the domain, and if it seems to be valid. */
    for (i = 0; i < (len = strlen(domain)); i++) {
        if (domain[i] <= 31 || domain[i] >= 127)
            return 0;
        for (j = 0; j < 13; j++)
            if (domain[i] == specials[j])
                return 0;
        if (domain[i] == '.') {
            if (i == 0 || i == len - 1)
                return 0;
            has_period = 1;
        }
    }

    if (!has_period)
        return 0;

    return 1;
}