]> code.citadel.org Git - citadel.git/blobdiff - webcit/subst.c
* more work on sitewide config
[citadel.git] / webcit / subst.c
index 215515ea36b61fed0163f5ba6df671984430d130..f3bb28711c50203d2725abccbf3c3b6d58874e69 100644 (file)
@@ -14,6 +14,8 @@
 #include <unistd.h>
 #include <dirent.h>
 #include <errno.h>
+#include <stdarg.h>
+#define SHOW_ME_VAPPEND_PRINTF
 
 #include "webcit.h"
 #include "webserver.h"
@@ -29,12 +31,16 @@ HashList *GlobalNS;
 HashList *Iterators;
 HashList *Contitionals;
 
+int LoadTemplates = 0;
+
 #define SV_GETTEXT 1
 #define SV_CONDITIONAL 2
 #define SV_NEG_CONDITIONAL 3
+#define SV_SUBTEMPL 4
 
 typedef struct _WCTemplate {
        StrBuf *Data;
+       StrBuf *FileName;
        int nTokensUsed;
        int TokenSpace;
        WCTemplateToken **Tokens;
@@ -46,6 +52,8 @@ typedef struct _HashHandler {
        WCHandlerFunc HandlerFunc;
 }HashHandler;
 
+void *load_template(StrBuf *filename, StrBuf *Key, HashList *PutThere);
+
 void RegisterNS(const char *NSName, long len, int nMinArgs, int nMaxArgs, WCHandlerFunc HandlerFunc)
 {
        HashHandler *NewHandler;
@@ -73,10 +81,10 @@ void VarPrintEntry(const char *Key, void *vSubst, int odd)
 
        switch(ptr->wcs_type) {
        case WCS_STRING:
-               lprintf(1, "  -> %s\n", ptr->wcs_value);
+               lprintf(1, "  -> %s\n", ChrPtr(ptr->wcs_value));
                break;
        case WCS_SERVCMD:
-               lprintf(1, "  -> Server [%s]\n", ptr->wcs_value);
+               lprintf(1, "  -> Server [%s]\n", ChrPtr(ptr->wcs_value));
                break;
        case WCS_FUNCTION:
                lprintf(1, "  -> function at [%0xd]\n", ptr->wcs_function);
@@ -94,7 +102,6 @@ void VarPrintEntry(const char *Key, void *vSubst, int odd)
 void clear_substs(struct wcsession *wc) {
 
        if (wc->vars != NULL) {
-       
                DeleteHash(&wc->vars);
        }
 }
@@ -106,19 +113,98 @@ void clear_local_substs(void) {
        clear_substs (WC);
 }
 
+int NeedNewBuf(type)
+{
+       switch(type) {
+       case WCS_STRING:
+       case WCS_SERVCMD:
+       case WCS_STRBUF:
+               return 1;
+       case WCS_FUNCTION:
+       case WCS_STRBUF_REF:
+       case WCS_LONG:
+       default:
+               return 0;
+       }
+}
+
+void FlushPayload(wcsubst *ptr, int reusestrbuf, int type)
+{
+       int NeedNew = NeedNewBuf(type);
+       switch(ptr->wcs_type) {
+       case WCS_STRING:
+       case WCS_SERVCMD:
+       case WCS_STRBUF:
+               if (reusestrbuf && NeedNew) {
+                       FlushStrBuf(ptr->wcs_value);
+               }
+               else {
+                       
+                       FreeStrBuf(&ptr->wcs_value);
+                       ptr->wcs_value = NULL;
+               }
+               break;
+       case WCS_FUNCTION:
+               ptr->wcs_function = NULL;
+               if (reusestrbuf && NeedNew)
+                       ptr->wcs_value = NewStrBuf();
+               break;
+       case WCS_STRBUF_REF:
+               ptr->wcs_value = NULL;
+               if (reusestrbuf && NeedNew)
+                       ptr->wcs_value = NewStrBuf();
+               break;
+       case WCS_LONG:
+               ptr->lvalue = 0;
+               if (reusestrbuf && NeedNew)
+                       ptr->wcs_value = NewStrBuf();
+               break;
+       default:
+               if (reusestrbuf && NeedNew)
+                       ptr->wcs_value = NewStrBuf();
+               break;
+       }
+}
+
 /**
  * \brief destructor; kill one entry.
  */
 void deletevar(void *data)
 {
        wcsubst *ptr = (wcsubst*)data;
-//             if ((wc->vars->wcs_type == WCS_STRING)
-//                || (wc->vars->wcs_type == WCS_SERVCMD)) {
-       if (ptr->wcs_type != WCS_FUNCTION)
-               free(ptr->wcs_value);
+       FlushPayload(ptr, 0, ptr->wcs_type);
        free(ptr);      
 }
 
+
+wcsubst *NewSubstVar(const char *keyname, int keylen, int type)
+{
+       wcsubst* ptr;
+       struct wcsession *WCC = WC;
+
+       ptr = (wcsubst *) malloc(sizeof(wcsubst));
+       memset(ptr, 0, sizeof(wcsubst));
+
+       ptr->wcs_type = type;
+       safestrncpy(ptr->wcs_key, keyname, sizeof ptr->wcs_key);
+       Put(WCC->vars, keyname, keylen, ptr,  deletevar);
+
+       switch(ptr->wcs_type) {
+       case WCS_STRING:
+       case WCS_SERVCMD:
+               ptr->wcs_value = NewStrBuf();
+               break;
+       case WCS_STRBUF:
+       case WCS_FUNCTION:
+       case WCS_STRBUF_REF:
+       case WCS_LONG:
+       default:
+               break;
+       }
+       return ptr;
+}
+
+
 /**
  * \brief Add a substitution variable (local to this session) (strlen version...)
  * \param keyname the replacementstring to substitute
@@ -129,7 +215,6 @@ void deletevar(void *data)
 void SVPRINTF(char *keyname, int keytype, const char *format,...)
 {
        va_list arg_ptr;
-       char wbuf[SIZ];
        void *vPtr;
        wcsubst *ptr = NULL;
        size_t keylen;
@@ -143,25 +228,18 @@ void SVPRINTF(char *keyname, int keytype, const char *format,...)
        /*PrintHash(WCC->vars, VarPrintTransition, VarPrintEntry);*/
        if (GetHash(WCC->vars, keyname, keylen, &vPtr)) {
                ptr = (wcsubst*)vPtr;
-               if (ptr->wcs_value != NULL)
-                       free(ptr->wcs_value);
+               FlushPayload(ptr, keytype, keytype);
+               ptr->wcs_type = keytype;
        }
        else    /** Otherwise allocate a new one */
        {
-               ptr = (wcsubst *) malloc(sizeof(wcsubst));
-               safestrncpy(ptr->wcs_key, keyname, sizeof ptr->wcs_key);
-               Put(WCC->vars, keyname, keylen, ptr,  deletevar);
+               ptr = NewSubstVar(keyname, keylen, keytype);
        }
 
-       /** Format the string and save it */
-
+       /** Format the string */
        va_start(arg_ptr, format);
-       vsnprintf(wbuf, sizeof wbuf, format, arg_ptr);
+       StrBufVAppendPrintf(ptr->wcs_value, format, arg_ptr);
        va_end(arg_ptr);
-
-       ptr->wcs_function = NULL;
-       ptr->wcs_type = keytype;
-       ptr->wcs_value = strdup(wbuf);
 }
 
 /**
@@ -174,12 +252,10 @@ void SVPRINTF(char *keyname, int keytype, const char *format,...)
 void svprintf(char *keyname, size_t keylen, int keytype, const char *format,...)
 {
        va_list arg_ptr;
-       char wbuf[SIZ];
        void *vPtr;
        wcsubst *ptr = NULL;
        struct wcsession *WCC = WC;
-       size_t len;
-       
+               
        /**
         * First look if we're doing a replacement of
         * an existing key
@@ -187,26 +263,18 @@ void svprintf(char *keyname, size_t keylen, int keytype, const char *format,...)
        /*PrintHash(WCC->vars, VarPrintTransition, VarPrintEntry);*/
        if (GetHash(WCC->vars, keyname, keylen, &vPtr)) {
                ptr = (wcsubst*)vPtr;
-               if (ptr->wcs_value != NULL)
-                       free(ptr->wcs_value);
+               FlushPayload(ptr, 1, keytype);
+               ptr->wcs_type = keytype;
        }
        else    /** Otherwise allocate a new one */
        {
-               ptr = (wcsubst *) malloc(sizeof(wcsubst));
-               safestrncpy(ptr->wcs_key, keyname, sizeof ptr->wcs_key);
-               Put(WCC->vars, keyname, keylen, ptr,  deletevar);
+               ptr = NewSubstVar(keyname, keylen, keytype);
        }
 
        /** Format the string and save it */
-
        va_start(arg_ptr, format);
-       len = vsnprintf(wbuf, sizeof wbuf, format, arg_ptr);
+       StrBufVAppendPrintf(ptr->wcs_value, format, arg_ptr);
        va_end(arg_ptr);
-
-       ptr->wcs_value = (char*) malloc(len + 1);
-       memcpy(ptr->wcs_value, wbuf, len + 1);
-       ptr->wcs_function = NULL;
-       ptr->wcs_type = keytype;
 }
 
 /**
@@ -230,19 +298,14 @@ void SVPut(char *keyname, size_t keylen, int keytype, char *Data)
        /*PrintHash(WCC->vars, VarPrintTransition, VarPrintEntry);*/
        if (GetHash(WCC->vars, keyname, keylen, &vPtr)) {
                ptr = (wcsubst*)vPtr;
-               if (ptr->wcs_value != NULL)
-                       free(ptr->wcs_value);
+               FlushPayload(ptr, 1, keytype);
+               ptr->wcs_type = keytype;
        }
        else    /** Otherwise allocate a new one */
        {
-               ptr = (wcsubst *) malloc(sizeof(wcsubst));
-               safestrncpy(ptr->wcs_key, keyname, sizeof ptr->wcs_key);
-               Put(WCC->vars, keyname, keylen, ptr,  deletevar);
+               ptr = NewSubstVar(keyname, keylen, keytype);
        }
-
-       ptr->wcs_function = NULL;
-       ptr->wcs_type = keytype;
-       ptr->wcs_value = strdup(Data);
+       StrBufAppendBufPlain(ptr->wcs_value, Data, -1, 0);
 }
 
 /**
@@ -266,18 +329,13 @@ void SVPutLong(char *keyname, size_t keylen, long Data)
        /*PrintHash(WCC->vars, VarPrintTransition, VarPrintEntry);*/
        if (GetHash(WCC->vars, keyname, keylen, &vPtr)) {
                ptr = (wcsubst*)vPtr;
-               if (ptr->wcs_value != NULL)
-                       free(ptr->wcs_value);
+               FlushPayload(ptr, 1, WCS_LONG);
+               ptr->wcs_type = WCS_LONG;
        }
        else    /** Otherwise allocate a new one */
        {
-               ptr = (wcsubst *) malloc(sizeof(wcsubst));
-               safestrncpy(ptr->wcs_key, keyname, sizeof ptr->wcs_key);
-               Put(WCC->vars, keyname, keylen, ptr,  deletevar);
+               ptr = NewSubstVar(keyname, keylen, WCS_LONG);
        }
-
-       ptr->wcs_function = NULL;
-       ptr->wcs_type = WCS_LONG;
        ptr->lvalue = Data;
 }
 
@@ -299,18 +357,14 @@ void SVCallback(char *keyname, size_t keylen, var_callback_fptr fcn_ptr)
        /*PrintHash(WCC->vars, VarPrintTransition, VarPrintEntry);*/
        if (GetHash(WCC->vars, keyname, keylen, &vPtr)) {
                ptr = (wcsubst*)vPtr;
-               if (ptr->wcs_value != NULL)
-                       free(ptr->wcs_value);
+               FlushPayload(ptr, 1, WCS_FUNCTION);
+               ptr->wcs_type = WCS_FUNCTION;
        }
        else    /** Otherwise allocate a new one */
        {
-               ptr = (wcsubst *) malloc(sizeof(wcsubst));
-               safestrncpy(ptr->wcs_key, keyname, sizeof ptr->wcs_key);
-               Put(WCC->vars, keyname, keylen, ptr,  deletevar);
+               ptr = NewSubstVar(keyname, keylen, WCS_FUNCTION);
        }
 
-       ptr->wcs_value = NULL;
-       ptr->wcs_type = WCS_FUNCTION;
        ptr->wcs_function = fcn_ptr;
 }
 inline void SVCALLBACK(char *keyname, var_callback_fptr fcn_ptr)
@@ -333,30 +387,25 @@ void SVPUTBuf(const char *keyname, int keylen, StrBuf *Buf, int ref)
        /*PrintHash(WCC->vars, VarPrintTransition, VarPrintEntry);*/
        if (GetHash(WCC->vars, keyname, keylen, &vPtr)) {
                ptr = (wcsubst*)vPtr;
-               if (ptr->wcs_value != NULL)
-                       free(ptr->wcs_value);///TODO: respect type
+               FlushPayload(ptr, 0, (ref)?WCS_STRBUF_REF:WCS_STRBUF);
+               ptr->wcs_type = (ref)?WCS_STRBUF_REF:WCS_STRBUF;
        }
        else    /** Otherwise allocate a new one */
        {
-               ptr = (wcsubst *) malloc(sizeof(wcsubst));
-               safestrncpy(ptr->wcs_key, keyname, sizeof ptr->wcs_key);
-               Put(WCC->vars, keyname, keylen, ptr,  deletevar);
+               ptr = NewSubstVar(keyname, keylen, (ref)?WCS_STRBUF_REF:WCS_STRBUF);
        }
-
-       ptr->wcs_value = NULL;
-       ptr->wcs_type = (ref)?WCS_STRBUF:WCS_STRBUF_REF;
-       ptr->wcs_function = (var_callback_fptr) Buf; ////TODO
+       ptr->wcs_value = Buf;
 }
 
 /**
  * \brief back end for print_value_of() ... does a server command
  * \param servcmd server command to execute on the citadel server
  */
-void pvo_do_cmd(StrBuf *Target, char *servcmd) {
+void pvo_do_cmd(StrBuf *Target, StrBuf *servcmd) {
        char buf[SIZ];
        int len;
 
-       serv_puts(servcmd);
+       serv_puts(ChrPtr(servcmd));
        len = serv_getln(buf, sizeof buf);
 
        switch(buf[0]) {
@@ -386,6 +435,7 @@ void print_value_of(StrBuf *Target, const char *keyname, size_t keylen) {
        void *vVar;
 
        /*if (WCC->vars != NULL) PrintHash(WCC->vars, VarPrintTransition, VarPrintEntry);*/
+       /// TODO: debricated!
        if (keyname[0] == '=') {
                DoTemplate(keyname+1, keylen - 1, NULL, NULL);
        }
@@ -397,7 +447,7 @@ void print_value_of(StrBuf *Target, const char *keyname, size_t keylen) {
                ptr = (wcsubst*) vVar;
                switch(ptr->wcs_type) {
                case WCS_STRING:
-                       StrBufAppendBufPlain(Target, (const char*)ptr->wcs_value, -1, 0);
+                       StrBufAppendBuf(Target, ptr->wcs_value, 0);
                        break;
                case WCS_SERVCMD:
                        pvo_do_cmd(Target, ptr->wcs_value);
@@ -407,10 +457,10 @@ void print_value_of(StrBuf *Target, const char *keyname, size_t keylen) {
                        break;
                case WCS_STRBUF:
                case WCS_STRBUF_REF:
-                       StrBufAppendBuf(Target, (StrBuf*) ptr->wcs_function, 0);
+                       StrBufAppendBuf(Target, ptr->wcs_value, 0);
                        break;
                case WCS_LONG:
-                       StrBufAppendPrintf(Target, "%l", ptr->lvalue);
+                       StrBufAppendPrintf(Target, "%ld", ptr->lvalue);
                        break;
                default:
                        lprintf(1,"WARNING: invalid value in SV-Hash at %s!", keyname);
@@ -442,7 +492,7 @@ void PutNewToken(WCTemplate *Template, WCTemplateToken *NewToken)
        Template->Tokens[(Template->nTokensUsed)++] = NewToken;
 }
 
-TemplateParam *GetNextParamter(StrBuf *Buf, const char **pCh, const char *pe)
+TemplateParam *GetNextParameter(StrBuf *Buf, const char **pCh, const char *pe)
 {
        const char *pch = *pCh;
        const char *pchs, *pche;
@@ -500,7 +550,7 @@ TemplateParam *GetNextParamter(StrBuf *Buf, const char **pCh, const char *pe)
                }
                else {
                        Parm->lvalue = 0;
-                       lprintf(1, "Error evaluating template long param [%s]", *pCh);
+                       lprintf(1, "Error evaluating template long param [%s]\n", *pCh);
                        free(Parm);
                        return NULL;
                }
@@ -544,11 +594,12 @@ WCTemplateToken *NewTemplateSubstitute(StrBuf *Buf,
                        NewToken->NameEnd = pch - NewToken->pName;
                        pch ++;
                        while (pch < pTmplEnd - 1) {
-                               Param = GetNextParamter(Buf, &pch, pTmplEnd - 1);
+                               Param = GetNextParameter(Buf, &pch, pTmplEnd - 1);
                                if (Param != NULL) {
                                        NewToken->HaveParameters = 1;
                                        if (NewToken->nParameters > MAXPARAM) {
                                                lprintf(1, "Only %ld Tokens supported!\n", MAXPARAM);
+                                               free(Param);
                                                return NULL;
                                        }
                                        NewToken->Params[NewToken->nParameters++] = Param;
@@ -562,6 +613,9 @@ WCTemplateToken *NewTemplateSubstitute(StrBuf *Buf,
                                if ((NewToken->nParameters == 1) &&
                                    (*(NewToken->pName) == '_'))
                                        NewToken->Flags = SV_GETTEXT;
+                               else if ((NewToken->nParameters == 1) &&
+                                        (*(NewToken->pName) == '='))
+                                       NewToken->Flags = SV_SUBTEMPL;
                                else if ((NewToken->nParameters >= 2) &&
                                         (*(NewToken->pName) == '?'))
                                        NewToken->Flags = SV_CONDITIONAL;
@@ -575,6 +629,18 @@ WCTemplateToken *NewTemplateSubstitute(StrBuf *Buf,
        return NewToken;
 }
 
+void FreeToken(WCTemplateToken **Token)
+{
+       int i; 
+       if ((*Token)->HaveParameters) 
+               for (i = 0; i < (*Token)->nParameters; i++)
+                       free((*Token)->Params[i]);
+       free(*Token);
+       *Token = NULL;
+}
+
+
+
 void FreeWCTemplate(void *vFreeMe)
 {
        int i;
@@ -582,10 +648,12 @@ void FreeWCTemplate(void *vFreeMe)
 
        if (FreeMe->TokenSpace > 0) {
                for (i = 0; i < FreeMe->nTokensUsed; i ++) {
-                       free(FreeMe->Tokens[i]);
+                       FreeToken(&FreeMe->Tokens[i]);
                }
                free(FreeMe->Tokens);
        }
+       FreeStrBuf(&FreeMe->FileName);
+       FreeStrBuf(&FreeMe->Data);
        free(FreeMe);
 }
 
@@ -630,52 +698,65 @@ int EvaluateToken(StrBuf *Target, WCTemplateToken *Token, void *Context, int sta
        void *vVar;
 // much output, since pName is not terminated...
 //     lprintf(1,"Doing token: %s\n",Token->pName);
-       if (Token->Flags == SV_GETTEXT) {
+       switch (Token->Flags) {
+       case SV_GETTEXT:
                TmplGettext(Target, Token->nParameters, Token);
-       }
-       else if (Token->Flags == SV_CONDITIONAL) {
+               break;
+       case SV_CONDITIONAL:
                return EvaluateConditional(Token, Context, 1, state);
-       }
-       else if (Token->Flags == SV_NEG_CONDITIONAL) {
+               break;
+       case SV_NEG_CONDITIONAL:
                return EvaluateConditional(Token, Context, 0, state);
-       }
-       else if (GetHash(GlobalNS, Token->pName, Token->NameEnd, &vVar)) {
-               HashHandler *Handler;
-               Handler = (HashHandler*) vVar;
-               if ((Token->nParameters < Handler->nMinArgs) || 
-                   (Token->nParameters > Handler->nMaxArgs)) {
-                       lprintf(1, "Handler [%s] doesn't work with %ld params", 
-                               Token->pName,
-                               Token->nParameters);
+               break;
+       case SV_SUBTEMPL:
+               if (Token->nParameters == 1)
+                       DoTemplate(Token->Params[0]->Start, Token->Params[0]->len, NULL, NULL);
+               break;
+       default:
+               if (GetHash(GlobalNS, Token->pName, Token->NameEnd, &vVar)) {
+                       HashHandler *Handler;
+                       Handler = (HashHandler*) vVar;
+                       if ((Token->nParameters < Handler->nMinArgs) || 
+                           (Token->nParameters > Handler->nMaxArgs)) {
+                               lprintf(1, "Handler [%s] doesn't work with %ld params", 
+                                       Token->pName,
+                                       Token->nParameters);
+                       }
+                       else {
+                               Handler->HandlerFunc(Target, 
+                                                    Token->nParameters,
+                                                    Token,
+                                                    Context); /*TODO: subset of that */
+                               
+                               
+                       }
                }
                else {
-                       Handler->HandlerFunc(Target, 
-                                            Token->nParameters,
-                                            Token,
-                                            Context); /*TODO: subset of that */
-               
-                       
+                       print_value_of(Target, Token->pName, Token->NameEnd);
                }
        }
-       else {
-               print_value_of(Target, Token->pName, Token->NameEnd);
-       }
        return 0;
 }
 
 void ProcessTemplate(WCTemplate *Tmpl, StrBuf *Target, void *Context)
 {
+       WCTemplate *pTmpl = Tmpl;
        int done = 0;
        int i, state;
        const char *pData, *pS;
        long len;
 
-       pS = pData = ChrPtr(Tmpl->Data);
-       len = StrLength(Tmpl->Data);
+       if (LoadTemplates != 0) {                       
+               lprintf(1, "DBG: ----- loading:  [%s] ------ \n", ChrPtr(Tmpl->FileName));
+               pTmpl = load_template(Tmpl->FileName, NULL, NULL);
+       }
+
+       pS = pData = ChrPtr(pTmpl->Data);
+       len = StrLength(pTmpl->Data);
        i = 0;
        state = 0;
        while (!done) {
-               if (i >= Tmpl->nTokensUsed) {
+               if (i >= pTmpl->nTokensUsed) {
                        StrBufAppendBufPlain(Target, 
                                             pData, 
                                             len - (pData - pS), 0);
@@ -684,28 +765,48 @@ void ProcessTemplate(WCTemplate *Tmpl, StrBuf *Target, void *Context)
                else {
                        StrBufAppendBufPlain(
                                Target, pData, 
-                               Tmpl->Tokens[i]->pTokenStart - pData, 0);
-                       state = EvaluateToken(Target, Tmpl->Tokens[i], Context, state);
-                       while ((state != 0) && (i+1 < Tmpl->nTokensUsed)) {
+                               pTmpl->Tokens[i]->pTokenStart - pData, 0);
+                       state = EvaluateToken(Target, pTmpl->Tokens[i], Context, state);
+                       while ((state != 0) && (i+1 < pTmpl->nTokensUsed)) {
                        /* condition told us to skip till its end condition */
                                i++;
-                               if ((Tmpl->Tokens[i]->Flags == SV_CONDITIONAL) ||
-                                   (Tmpl->Tokens[i]->Flags == SV_NEG_CONDITIONAL)) {
-                                       if (state == EvaluateConditional(Tmpl->Tokens[i], 
+                               if ((pTmpl->Tokens[i]->Flags == SV_CONDITIONAL) ||
+                                   (pTmpl->Tokens[i]->Flags == SV_NEG_CONDITIONAL)) {
+                                       if (state == EvaluateConditional(pTmpl->Tokens[i], 
                                                                         Context, 
-                                                                        Tmpl->Tokens[i]->Flags,
+                                                                        pTmpl->Tokens[i]->Flags,
                                                                         state))
                                                state = 0;
                                }
                        }
-                       pData = Tmpl->Tokens[i++]->pTokenEnd + 1;
-                       if (i > Tmpl->nTokensUsed)
+                       pData = pTmpl->Tokens[i++]->pTokenEnd + 1;
+                       if (i > pTmpl->nTokensUsed)
                                done = 1;
                }
        }
+       if (LoadTemplates != 0) {
+               FreeWCTemplate(pTmpl);
+       }
 }
 
 
+/**
+ * \brief Display a variable-substituted template
+ * \param templatename template file to load
+ */
+void *prepare_template(StrBuf *filename, StrBuf *Key, HashList *PutThere)
+{
+       WCTemplate *NewTemplate;
+       NewTemplate = (WCTemplate *) malloc(sizeof(WCTemplate));
+       NewTemplate->Data = NULL;
+       NewTemplate->FileName = NewStrBufDup(filename);
+       NewTemplate->nTokensUsed = 0;
+       NewTemplate->TokenSpace = 0;
+       NewTemplate->Tokens = NULL;
+
+       Put(PutThere, ChrPtr(Key), StrLength(Key), NewTemplate, FreeWCTemplate);
+       return NewTemplate;
+}
 
 /**
  * \brief Display a variable-substituted template
@@ -734,6 +835,7 @@ void *load_template(StrBuf *filename, StrBuf *Key, HashList *PutThere)
 
        NewTemplate = (WCTemplate *) malloc(sizeof(WCTemplate));
        NewTemplate->Data = NewStrBufPlain(NULL, statbuf.st_size);
+       NewTemplate->FileName = NULL;
        NewTemplate->nTokensUsed = 0;
        NewTemplate->TokenSpace = 0;
        NewTemplate->Tokens = NULL;
@@ -778,10 +880,19 @@ void *load_template(StrBuf *filename, StrBuf *Key, HashList *PutThere)
                            NewTemplateSubstitute(NewTemplate->Data, pS, pts, pte));
                pch ++;
        }
-       Put(PutThere, ChrPtr(Key), StrLength(Key), NewTemplate, FreeWCTemplate);
+       if (LoadTemplates == 0)
+               Put(PutThere, ChrPtr(Key), StrLength(Key), NewTemplate, FreeWCTemplate);
        return NewTemplate;
 }
 
+
+void PrintTemplate(void *vTemplate)
+{
+
+
+}
+
+
 /**
  * \brief Display a variable-substituted template
  * \param templatename template file to load
@@ -806,6 +917,7 @@ void DoTemplate(const char *templatename, long len, void *Context, StrBuf *Targe
        if (!GetHash(StaticLocal, templatename, len, &vTmpl) &&
            !GetHash(Static, templatename, len, &vTmpl)) {
                printf ("didn't find %s\n", templatename);
+               //print_hash(Static);
                return;
        }
        if (vTmpl == NULL) 
@@ -858,7 +970,10 @@ int LoadTemplateDir(const char *DirName, HashList *wireless, HashList *big)
 
 
                printf("%s %d %s\n",ChrPtr(FileName), IsMobile, ChrPtr(Tag));
-               load_template(FileName, Tag, (IsMobile)?wireless:big);          
+               if (LoadTemplates == 0)
+                       load_template(FileName, Tag, (IsMobile)?wireless:big);
+               else
+                       prepare_template(FileName, Tag, (IsMobile)?wireless:big);
        }
        closedir(filedir);
        FreeStrBuf(&FileName);
@@ -966,7 +1081,9 @@ void tmpl_iterate_subtmpl(StrBuf *Target, int nArgs, WCTemplateToken *Tokens, vo
                        
                StrBufAppendBuf(Target, SubBuf, 0);
                FlushStrBuf(SubBuf);
+               oddeven = ~ oddeven;
        }
+       FreeStrBuf(&SubBuf);
        DeleteHashPos(&it);
        It->Destructor(List);
 }
@@ -983,20 +1100,17 @@ int ConditionalVar(WCTemplateToken *Tokens, void *Context)
                return 0;
        subst = (wcsubst*) vsubst;
        switch(subst->wcs_type) {
-       case WCS_STRING:
-               if (Tokens->nParameters < 4)
-                       return 1;
-               return (strcmp(Tokens->Params[3]->Start, subst->wcs_value) == 0);
-       case WCS_SERVCMD:
-               lprintf(1, "  -> Server [%s]\n", subst->wcs_value);////todo
-               return 0;
        case WCS_FUNCTION:
                return (subst->wcs_function!=NULL);
+       case WCS_SERVCMD:
+               lprintf(1, "  -> Server [%s]\n", subst->wcs_value);////todo
+               return 1;
+       case WCS_STRING:
        case WCS_STRBUF:
        case WCS_STRBUF_REF:
                if (Tokens->nParameters < 4)
                        return 1;
-               return (strcmp(Tokens->Params[3]->Start, ChrPtr((StrBuf*) subst->wcs_function)) == 0);
+               return (strcmp(Tokens->Params[3]->Start, ChrPtr(subst->wcs_value)) == 0);
        case WCS_LONG:
                if (Tokens->nParameters < 4)
                        return (subst->lvalue != 0);
@@ -1031,20 +1145,70 @@ void RegisterConditional(const char *Name, long len,
        Put(Contitionals, Name, len, Cond, NULL);
 }
 
+void tmpl_do_boxed(StrBuf *Target, int nArgs, WCTemplateToken *Tokens, void *Context)
+{
+       if (nArgs == 2) {
+               StrBuf *Headline = NewStrBuf();
+               DoTemplate(Tokens->Params[1]->Start, 
+                          Tokens->Params[1]->len,
+                          Context, 
+                          Headline);
+               SVPutBuf("BOXTITLE", Headline, 0);
+       }
+
+       DoTemplate(HKEY("beginbox"), Context, Target);
+       DoTemplate(Tokens->Params[0]->Start, 
+                  Tokens->Params[0]->len,
+                  Context, 
+                  Target);
+       DoTemplate(HKEY("endbox"), Context, Target);
+}
+
+void tmpl_do_tabbed(StrBuf *Target, int nArgs, WCTemplateToken *Tokens, void *Context)
+{
+       StrBuf **TabNames;
+       int i, ntabs;
+
+       ntabs = Tokens->nParameters / 2;
+       TabNames = (StrBuf **) malloc(ntabs * sizeof(StrBuf*));
+
+       for (i = 0; i < ntabs; i++) {
+               TabNames[i] = NewStrBuf();
+               DoTemplate(Tokens->Params[i * 2]->Start, 
+                          Tokens->Params[0]->len,
+                          Context,
+                          TabNames[i]);
+       }
+
+       StrTabbedDialog(Target, ntabs, TabNames);
+       for (i = 0; i < ntabs; i++) {
+               StrBeginTab(Target, ntabs, i);
+
+               DoTemplate(Tokens->Params[i * 2 + 1]->Start, 
+                          Tokens->Params[i * 2 + 1]->len,
+                          Context, 
+                          Target);
+               StrEndTab(Target, ntabs, i);
+       }
+}
+
 void 
 InitModule_SUBST
 (void)
 {
-       RegisterNamespace("SERV_PID", 0, 0, tmplput_serv_ip);
-       RegisterNamespace("SERV_NODENAME", 0, 0, tmplput_serv_nodename);
-       RegisterNamespace("SERV_HUMANNODE", 0, 0, tmplput_serv_humannode);
-       RegisterNamespace("SERV_FQDN", 0, 0, tmplput_serv_fqdn);
-       RegisterNamespace("SERV_SOFTWARE", 0, 0, tmmplput_serv_software);
-       RegisterNamespace("SERV_REV_LEVEL", 0, 0, tmplput_serv_rev_level);
-       RegisterNamespace("SERV_BBS_CITY", 0, 0, tmmplput_serv_bbs_city);
+       RegisterNamespace("SERV:PID", 0, 0, tmplput_serv_ip);
+       RegisterNamespace("SERV:NODENAME", 0, 0, tmplput_serv_nodename);
+       RegisterNamespace("SERV:HUMANNODE", 0, 0, tmplput_serv_humannode);
+       RegisterNamespace("SERV:FQDN", 0, 0, tmplput_serv_fqdn);
+       RegisterNamespace("SERV:SOFTWARE", 0, 0, tmmplput_serv_software);
+       RegisterNamespace("SERV:REV_LEVEL", 0, 0, tmplput_serv_rev_level);
+       RegisterNamespace("SERV:BBS_CITY", 0, 0, tmmplput_serv_bbs_city);
+///    RegisterNamespace("SERV:LDAP_SUPP", 0, 0, tmmplput_serv_ldap_enabled);
        RegisterNamespace("CURRENT_USER", 0, 0, tmplput_current_user);
        RegisterNamespace("CURRENT_ROOM", 0, 0, tmplput_current_room);
        RegisterNamespace("ITERATE", 2, 4, tmpl_iterate_subtmpl);
+       RegisterNamespace("DOBOXED", 1, 2, tmpl_do_boxed);
+       RegisterNamespace("DOTABBED", 2, 100, tmpl_do_tabbed);
        RegisterConditional(HKEY("COND:SUBST"), 3, ConditionalVar);
 }