* fix pre-conditions; since we load & keep the config in the session, we don't need...
[citadel.git] / webcit / inetconf.c
index 30125d39a92bb704e313e6cc019a05ffe471dde0..b19fc242a6beb39defff7b2f7478532d49e14872 100644 (file)
 /* 
- * inetconf.c
+ * $Id$
  *
  * Functions which handle Internet domain configuration etc.
- *
- * $Id$
  */
 
-#include <ctype.h>
-#include <stdlib.h>
-#include <unistd.h>
-#include <stdio.h>
-#include <fcntl.h>
-#include <signal.h>
-#include <sys/types.h>
-#include <sys/wait.h>
-#include <sys/socket.h>
-#include <sys/time.h>
-#include <limits.h>
-#include <netinet/in.h>
-#include <netdb.h>
-#include <string.h>
-#include <pwd.h>
-#include <errno.h>
-#include <stdarg.h>
-#include <pthread.h>
-#include <signal.h>
 #include "webcit.h"
+#include "webserver.h"
 
-
-
+/*
+ * display the inet config dialog 
+ */
 void display_inetconf(void)
 {
        char buf[SIZ];
        char ename[SIZ];
        char etype[SIZ];
+       int i;
+       int which;
+       int bg = 0;
 
-       char *ic_localhost;
-       char *ic_gwdom;
-       char *ic_directory;
-       char *ic_spamass;
-       char *ic_rbl;
-       char *ic_smarthost;
+       enum {
+               ic_localhost,
+               ic_directory,
+               ic_smarthost,
+               ic_rbl,
+               ic_spamass,
+               ic_masq,
+               ic_clamav,
+               ic_max
+       };
+
+       char *ic_spec[ic_max];
        char *ic_misc;
+       char *ic_keyword[ic_max];
+       char *ic_boxtitle[ic_max];
+       char *ic_desc[ic_max];
 
-       char *which = NULL;
+       /* These are server config keywords; do not localize! */
+       ic_keyword[0] = "localhost";
+       ic_keyword[1] = "directory";
+       ic_keyword[2] = "smarthost";
+       ic_keyword[3] = "rbl";
+       ic_keyword[4] = "spamassassin";
+       ic_keyword[5] = "masqdomain";
+       ic_keyword[6] = "clamav";
 
-       ic_localhost = strdup("");
-       ic_gwdom = strdup("");
-       ic_directory = strdup("");
-       ic_spamass = strdup("");
-       ic_rbl = strdup("");
-       ic_smarthost = strdup("");
-       ic_misc = strdup("");
+       ic_boxtitle[0] = _("Local host aliases");
+       ic_boxtitle[1] = _("Directory domains");
+       ic_boxtitle[2] = _("Smart hosts");
+       ic_boxtitle[3] = _("RBL hosts");
+       ic_boxtitle[4] = _("SpamAssassin hosts");
+       ic_boxtitle[5] = _("Masqueradable domains");
+       ic_boxtitle[6] = _("ClamAV clamd hosts");
+
+       ic_desc[0] = _("(domains for which this host receives mail)");
+       ic_desc[1] = _("(domains mapped with the Global Address Book)");
+       ic_desc[2] = _("(if present, forward all outbound mail to one of these hosts)");
+       ic_desc[3] = _("(hosts running a Realtime Blackhole List)");
+       ic_desc[4] = _("(hosts running the SpamAssassin service)");
+       ic_desc[5] = _("(Domains as which users are allowed to masquerade)");
+       ic_desc[6] = _("(hosts running the ClamAV clamd service)");
+
+       for (i=0; i<ic_max; ++i) {
+               ic_spec[i] = strdup("");
+       }
 
-       output_headers(3);
-       wprintf("<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>");
-       wprintf("<SPAN CLASS=\"titlebar\">Internet configuration</SPAN>\n");
-       wprintf("</TD></TR></TABLE>\n");
+       ic_misc = strdup("");
 
        serv_printf("CONF GETSYS|application/x-citadel-internet-config");
-       serv_gets(buf);
-       if (buf[0] == '1') while (serv_gets(buf), strcmp(buf, "000")) {
-
-               extract(ename, buf, 0);
-               extract(etype, buf, 0);
-               which = NULL;
-               if (!strcasecmp(etype, "localhost")) which = ic_localhost;
-               else if (!strcasecmp(etype, "gatewaydomain")) which = ic_gwdom;
-               else if (!strcasecmp(etype, "directory")) which = ic_directory;
-               else if (!strcasecmp(etype, "spamassassin")) which = ic_directory;
-               else if (!strcasecmp(etype, "rbl")) which = ic_rbl;
-               else if (!strcasecmp(etype, "smarthost")) which = ic_smarthost;
-
-               if (which != NULL) {
-                       which = realloc(which, strlen(which) + strlen(ename) + 2);
-                       if (strlen(which) > 0) strcat(which, "\n");
-                       strcat(which, ename);
+       serv_getln(buf, sizeof buf);
+       if (buf[0] == '1') while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
+
+               extract_token(ename, buf, 0, '|', sizeof ename);
+               extract_token(etype, buf, 1, '|', sizeof etype);
+               which = (-1);
+               for (i=0; i<ic_max; ++i) {
+                       if (!strcasecmp(etype, ic_keyword[i])) {
+                               which = i;
+                       }
+               }
+
+               if (which >= 0) {
+                       ic_spec[which] = realloc(ic_spec[which], strlen(ic_spec[which]) + strlen(ename) + 2);
+                       if (!IsEmptyStr(ic_spec[which])) strcat(ic_spec[which], "\n");
+                       strcat(ic_spec[which], ename);
                }
                else {
                        ic_misc = realloc(ic_misc, strlen(ic_misc) + strlen(buf) + 2);
-                       if (strlen(ic_misc) > 0) strcat(ic_misc, "\n");
-                       strcat(which, buf);
+                       if (!IsEmptyStr(ic_misc)) strcat(ic_misc, "\n");
+                       strcat(ic_misc, buf);
                }
 
-               /* FIXME finish this */
-               escputs(buf);
-               wprintf("<BR>\n");
        }
 
+       output_headers(1, 1, 2, 0, 0, 0);
+       wprintf("<div id=\"banner\">\n");
+       wprintf("<h1>");
+       wprintf(_("Internet configuration"));
+       wprintf("</h1>");
+       wprintf("</div>\n");
+
+       wprintf("<div id=\"content\" class=\"service\">\n");
+
+       wprintf("<div class=\"fix_scrollbar_bug\">"
+               "<table border=0 width=100%% cellspacing=\"10\" cellpadding=\"10\"> "
+               "<tr><td valign=top width=50%%>\n");
+       for (which=0; which<ic_max; ++which) {
+               if (which == (ic_max / 2)) {
+                       wprintf("</td><td valign=top>");
+               }
+               svput("BOXTITLE", WCS_STRING, ic_boxtitle[which]);
+               do_template("beginbox", NULL);
+               wprintf("<span class=\"menudesc\">");
+               escputs(ic_desc[which]);
+               wprintf("</span><br />");
+               wprintf("<table border=0 cellspacing=\"2px\" cellpadding=\"2px\" width=94%% "
+                       "class=\"altern\" >\n");
+               bg = 0;
+               if (!IsEmptyStr(ic_spec[which])) {
+                       for (i=0; i<num_tokens(ic_spec[which], '\n'); ++i) {
+                               bg = 1 - bg;
+                               wprintf("<tr class=\"%s\">",
+                                       (bg ? "even" : "odd")
+                               );
+                               wprintf("<td align=left>");
+                               extract_token(buf, ic_spec[which], i, '\n', sizeof buf);
+                               escputs(buf);
+                               wprintf("</td><td align=left>"
+                                       "<span class=\"button_link\">"
+                                       "<a href=\"save_inetconf?oper=delete&ename=");
+                               escputs(buf);
+                               wprintf("&etype=%s\" ", ic_keyword[which]);
+                               wprintf("onClick=\"return confirm('%s');\">",
+                                       _("Delete this entry?"));
+                               wprintf(_("Delete"));
+                               wprintf("</a></span></td></tr>\n");
+                       }
+
+               }
+               wprintf("<form method=\"post\" action=\"save_inetconf\">\n");
+               wprintf("<input type=\"hidden\" name=\"nonce\" value=\"%d\">\n", WC->nonce);
+               wprintf("<tr><td>"
+                       "<input type=\"text\" name=\"ename\" maxlength=\"64\">"
+                       "<input type=\"hidden\" name=\"etype\" VALUE=\"%s\">", ic_keyword[which]);
+               wprintf("</td><td align=left>"
+                       "<input type=\"submit\" name=\"oper\" value=\"Add\">"
+                       "</td></tr></table></form>\n");
+               do_template("endbox", NULL);
+               wprintf("<br />");
+       }
+       wprintf("</td></tr></table></div>\n");
        wDumpContent(1);
 
-       free(ic_localhost);
-       free(ic_gwdom);
-       free(ic_directory);
-       free(ic_spamass);
-       free(ic_rbl);
-       free(ic_smarthost);
+       for (i=0; i<ic_max; ++i) {
+               free(ic_spec[i]);
+       }
        free(ic_misc);
 }
 
 
+
+/*
+ * save changes to the inet config
+ */
 void save_inetconf(void) {
+       char *buf;
+       char *ename;
+       char *etype;
+       char *newconfig;
 
-       strcpy(WC->ImportantMessage, "FIXME did we do anything?");
+       buf = malloc(SIZ);
+       ename = malloc(SIZ);
+       etype = malloc(SIZ);
+       newconfig = malloc(65536);
 
+       strcpy(newconfig, "");
+       serv_printf("CONF GETSYS|application/x-citadel-internet-config");
+       serv_getln(buf, SIZ);
+       if (buf[0] == '1') while (serv_getln(buf, SIZ), strcmp(buf, "000")) {
+               extract_token(ename, buf, 0, '|', SIZ);
+               extract_token(etype, buf, 1, '|', SIZ);
+               if (IsEmptyStr(buf)) {
+                       /* skip blank lines */
+               }
+               else if ((!strcasecmp(ename, bstr("ename")))
+                  &&   (!strcasecmp(etype, bstr("etype")))
+                  &&   (!strcasecmp(bstr("oper"), "delete"))
+               ) {
+                       sprintf(WC->ImportantMessage, _("%s has been deleted."), ename);
+               }
+               else {
+                       if (!IsEmptyStr(newconfig)) strcat(newconfig, "\n");
+                       strcat(newconfig, buf);
+               }
+       }
+
+       serv_printf("CONF PUTSYS|application/x-citadel-internet-config");
+       serv_getln(buf, SIZ);
+       if (buf[0] == '4') {
+               serv_puts(newconfig);
+               if (!strcasecmp(bstr("oper"), "add")) {
+                       serv_printf("%s|%s", bstr("ename"), bstr("etype") );
+                       sprintf(WC->ImportantMessage, _("%s added."), bstr("ename"));
+               }
+               serv_puts("000");
+       }
+       
        display_inetconf();
+
+       free(buf);
+       free(ename);
+       free(etype);
+       free(newconfig);
+}
+
+typedef enum _e_cfg {
+       ic_localhost,
+       ic_directory,
+       ic_smarthost,
+       ic_rbl,
+       ic_spamass,
+       ic_masq,
+       ic_clamav,
+       ic_max
+} ECfg;
+
+typedef struct _ConstStrBuf {
+       const char *name;
+       size_t len;
+} ConstStrBuf;
+
+
+  /* These are server config keywords; do not localize! */
+ConstStrBuf CfgNames[] = {
+       { HKEY("localhost") },
+       { HKEY("directory") },
+       { HKEY("smarthost") },
+       { HKEY("rbl") },
+       { HKEY("spamassassin") },
+       { HKEY("masqdomain") },
+       { HKEY("clamav") }
+};
+
+       
+
+
+/*
+ * display the inet config dialog 
+ */
+void load_inetconf(void)
+{
+       struct wcsession *WCC = WC;
+       StrBuf *Buf, *Token, *Value;
+       void *vHash;
+       HashList *Hash;
+       char nnn[64];
+       char buf[SIZ];
+       int i, len, nUsed;
+       
+       WCC->InetCfg = NewHash(1, NULL);
+
+       for (i = 0; i < (sizeof(CfgNames) / sizeof(ConstStrBuf)); i++) {
+               Hash = NewHash(1, NULL);
+               Put(WCC->InetCfg, CfgNames[i].name, CfgNames[i].len, Hash, HDeleteHash);
+       }
+
+       serv_printf("CONF GETSYS|application/x-citadel-internet-config");
+       serv_getln(buf, sizeof buf);
+       
+       if (buf[0] == '1') {
+               Buf = NewStrBuf();
+               Token = NewStrBuf();
+               while ((len = StrBuf_ServGetln(Buf),
+                       strcmp(ChrPtr(Buf), "000"))) {
+                       Value = NewStrBuf();
+                       StrBufExtract_token(Token, Buf, 1, '|');
+                       StrBufExtract_token(Value, Buf, 0, '|');
+                       GetHash(WCC->InetCfg, ChrPtr(Token), StrLength(Token), &vHash);
+                       Hash = (HashList*) vHash;
+                       if (Hash == NULL) {
+                               lprintf(1, "ERROR Loading inet config line: [%s]\n", 
+                                       ChrPtr(Buf));
+                               FreeStrBuf(&Value);
+                               continue;
+                       }
+                       nUsed = GetCount(Hash);
+                       nUsed = snprintf(nnn, sizeof(nnn), "%d", nUsed+1);
+                       Put(Hash, nnn, nUsed, Value, HFreeStrBuf); 
+               }
+               FreeStrBuf(&Buf);
+               FreeStrBuf(&Token);
+       }
+}
+
+
+/*
+ * save changes to the inet config
+ */
+void new_save_inetconf(void) {
+       struct wcsession *WCC = WC;
+       HashList *Hash;
+       StrBuf *Str;
+       const StrBuf *eType, *eNum, *eName;
+       char nnn[64];
+       void *vHash, *vStr;
+       char buf[SIZ];
+       int i, nUsed;
+
+       load_inetconf();
+       eType = sbstr("etype");
+
+       GetHash(WCC->InetCfg, ChrPtr(eType), StrLength(eType), &vHash);
+       Hash = (HashList*) vHash;
+       if (Hash == NULL) {
+               sprintf(WC->ImportantMessage, _("Invalid Parameter"));
+               url_do_template();
+               return;
+       }
+
+       if (strcasecmp(bstr("oper"), "delete") == 0) {
+               eNum = sbstr("ename");
+               if (!GetHash(Hash, ChrPtr(eNum), StrLength(eNum), &vStr) ||
+                   (vStr == NULL)) {
+                       sprintf(WC->ImportantMessage, _("Invalid Parameter"));
+                       url_do_template();
+                       return;
+               }
+
+               Str = (StrBuf*)vStr;
+               sprintf(WC->ImportantMessage, _("%s has been deleted."), ChrPtr(Str));
+               FlushStrBuf(Str);       
+       }
+       else if (!strcasecmp(bstr("oper"), "add")) {
+               eName = sbstr("ename");
+               if (eName == NULL) {
+                       sprintf(WC->ImportantMessage, _("Invalid Parameter"));
+                       url_do_template();
+                       return;
+               }
+
+               nUsed = GetCount(Hash);
+               nUsed = snprintf(nnn, sizeof(nnn), "%d", nUsed+1);
+       
+               Put(Hash, nnn, nUsed, NewStrBufDup(eName), HFreeStrBuf); 
+               sprintf(WC->ImportantMessage, "%s added.", ChrPtr(eName));
+       }
+
+       serv_printf("CONF PUTSYS|application/x-citadel-internet-config");
+       serv_getln(buf, SIZ);
+       if (buf[0] == '4') {
+               for (i = 0; i < (sizeof(CfgNames) / sizeof(ConstStrBuf)); i++) {
+                       HashPos *where;
+                       const char *Key;
+                       long KeyLen;
+
+                       GetHash(WCC->InetCfg, CfgNames[i].name, CfgNames[i].len, &vHash);
+                       Hash = (HashList*) vHash;
+                       if (Hash == NULL) {
+                               sprintf(WC->ImportantMessage, _("Invalid Parameter"));
+                               url_do_template();
+                               return;
+                       }
+                       if (GetCount(Hash) > 0) {
+                               where = GetNewHashPos();
+                               while (GetNextHashPos(Hash, where, &KeyLen, &Key, &vStr)) {
+                                       Str = (StrBuf*) vStr;
+                                       if ((Str!= NULL) && (StrLength(Str) > 0))
+                                               serv_printf("%s|%s", 
+                                                           ChrPtr(Str),
+                                                           CfgNames[i].name); 
+                               }
+                               DeleteHashPos(&where);
+                       }                       
+               }
+               serv_puts("000");
+               DeleteHash(&WCC->InetCfg);
+       }
+       
+       url_do_template();
+}
+
+void InetCfgSubst(StrBuf *TemplBuffer, void *vContext, WCTemplateToken *Token)
+{
+       SVPutBuf("SERVCFG:INET:HOSTNAME", vContext, 1);
+}
+
+void DeleteInetConfHash(StrBuf *Target, int nArgs, WCTemplateToken *Token, void *Context, int ContextType)
+{
+       struct wcsession *WCC = WC;
+
+       if (WCC->InetCfg != NULL)
+               DeleteHash(&WCC->InetCfg);
+
+}
+
+
+HashList *GetInetConfHash(WCTemplateToken *Token)
+{
+       struct wcsession *WCC = WC;
+       void *vHash;
+
+       if (WCC->InetCfg == NULL)
+               load_inetconf();
+       GetHash(WCC->InetCfg, 
+               Token->Params[2]->Start, 
+               Token->Params[2]->len,
+               &vHash);
+       svprintf(HKEY("SERVCFG:INET:TYPE"), WCS_STRING, Token->Params[2]->Start);
+       return vHash;
+}
+
+void 
+InitModule_INETCONF
+(void)
+{
+       WebcitAddUrlHandler(HKEY("display_inetconf"), display_inetconf, 0);
+       WebcitAddUrlHandler(HKEY("save_inetconf"), new_save_inetconf, AJAX);
+       RegisterIterator("SERVCFG:INET", 1, NULL, GetInetConfHash, InetCfgSubst, NULL, CTX_INETCFG);
+       RegisterNamespace("SERVCFG:FLUSHINETCFG",0, 0, DeleteInetConfHash, CTX_NONE);
 }