Initial Anope Import

git-svn-id: svn://svn.anope.org/anope/trunk@1 31f1291d-b8d6-0310-a050-a5561fc1590b


git-svn-id: http://anope.svn.sourceforge.net/svnroot/anope/trunk@1 5417fbe8-f217-4b02-8779-1006273d7864

1 files changed, 202 insertions, 0 deletions

diff --git a/mail.c b/mail.c
new file mode 100644
index 000000000..342d9b0ad
--- /dev/null
+++ b/mail.c
@@ -0,0 +1,202 @@
+/* Mail utility routines.
+ *
+ * (C) 2003 Anope Team
+ * Contact us at info@anope.org
+ *
+ * Please read COPYING and README for furhter details.
+ *
+ * Based on the original code of Epona by Lara.
+ * Based on the original code of Services by Andy Church. 
+ * 
+ * $Id: mail.c,v 1.9 2003/09/04 18:55:34 rob Exp $ 
+ *
+ */
+
+#include "services.h"
+#include "language.h"
+
+/* Begins to send a mail. Must be followed by a MailEnd call.
+ * Returns NULL if the call failed. Error messages are
+ * automatically sent to the user.
+ */
+
+MailInfo *MailRegBegin(User * u, NickRequest * nr, char *subject,
+                       char *service)
+{
+    if (!u || !nr || !subject)
+        return NULL;
+
+    if (!UseMail) {
+        notice_lang(service, u, MAIL_DISABLED);
+    } else if ((time(NULL) - u->lastmail < MailDelay)
+               || (time(NULL) - nr->lastmail < MailDelay)) {
+        notice_lang(service, u, MAIL_DELAYED, MailDelay);
+    } else if (!nr->email) {
+        notice_lang(service, u, MAIL_INVALID, nr->nick);
+    } else {
+        MailInfo *mail;
+
+        mail = scalloc(sizeof(MailInfo), 1);
+        mail->sender = u;
+        mail->recipient = NULL;
+        mail->recip = nr;
+
+        if (!(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;
+}
+
+/* Begins to send a mail. Must be followed by a MailEnd call.
+ * Returns NULL if the call failed. Error messages are
+ * automatically sent to the user.
+ */
+
+MailInfo *MailBegin(User * u, NickCore * nc, char *subject, char *service)
+{
+    if (!u || !nc || !subject)
+        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;
+
+        mail = scalloc(sizeof(MailInfo), 1);
+        mail->sender = u;
+        mail->recipient = nc;
+        mail->recip = NULL;
+
+        if (!(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;
+}
+
+/* Finish to send the mail. Cleanup everything. */
+
+void MailEnd(MailInfo * mail)
+{
+    if (!mail || !mail->sender || !mail->pipe)
+        return;
+
+    if (!mail->recipient && !mail->recip)
+        return;
+
+    pclose(mail->pipe);
+
+    mail->sender->lastmail = time(NULL);
+    if (mail->recipient)
+        mail->recipient->lastmail = time(NULL);
+    else
+        mail->recip->lastmail = time(NULL);
+
+
+    free(mail);
+}
+
+/* Resets the MailDelay protection */
+
+void MailReset(User * u, NickCore * nc)
+{
+    if (u)
+        u->lastmail = 0;
+    if (nc)
+        nc->lastmail = 0;
+}
+
+/* Checks whether we have a valid, common e-mail address.
+ * This is NOT entirely RFC compliant, and won't be so, because I said 
+ * *common* cases. ;) It is very unlikely that e-mail addresses that
+ * are really being used will fail the check.
+ *
+ * FIXME: rewrite this a bit cleaner.
+ */
+
+int MailValidate(const char *email)
+{
+    int i, j, has_period = 0, len;
+    char copy[BUFSIZE], *domain;
+
+    static char specials[] =
+        { '(', ')', '<', '>', '@', ',', ';', ':', '\\', '\"', '[', ']',
+        ' '
+    };
+
+    if (!email)
+        return 0;
+    strcpy(copy, email);
+
+    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;
+}