* *** HUGE CHANGES *** *** WARNING: NOT FULLY FUNCTIONAL ***
[citadel.git] / webcit / subst.c
index 9753c580516007d64a8e570c12266a9b2794ff9c..9392cffee978d20d60eb41b2f6e926e00808fafb 100644 (file)
@@ -29,8 +29,6 @@
 #include <signal.h>
 #include "webcit.h"
 
-struct wcsubst *global_subst = NULL;
-
 
 /*
  * Clear out the list of substitution variables local to this session
@@ -49,6 +47,8 @@ void clear_local_substs(void) {
                free(WC->vars);
                WC->vars = ptr;
        }
+
+       WC->vars = NULL;
 }
 
 
@@ -58,19 +58,50 @@ void clear_local_substs(void) {
 void svprintf(char *keyname, int keytype, const char *format,...)
 {
        va_list arg_ptr;
-       char wbuf[1024];
-       struct wcsubst *ptr;
+       char wbuf[SIZ];
+       struct wcsubst *ptr = NULL;
+       struct wcsubst *scan;
+
+       /* First scan through to see if we're doing a replacement of
+        * an existing key
+        */
+       for (scan=WC->vars; scan!=NULL; scan=scan->next) {
+               if (!strcasecmp(scan->wcs_key, keyname)) {
+                       ptr = scan;
+                       free(ptr->wcs_value);
+               }
+       }
+
+       /* Otherwise allocate a new one */
+       if (ptr == NULL) {
+               ptr = (struct wcsubst *) malloc(sizeof(struct wcsubst));
+               ptr->next = WC->vars;
+               safestrncpy(ptr->wcs_key, keyname, sizeof ptr->wcs_key);
+               WC->vars = ptr;
+       }
+
+       /* Format the string and save it */
 
        va_start(arg_ptr, format);
-       vsprintf(wbuf, format, arg_ptr);
+       vsnprintf(wbuf, sizeof wbuf, format, arg_ptr);
        va_end(arg_ptr);
 
+       ptr->wcs_type = keytype;
+       ptr->wcs_value = strdup(wbuf);
+}
+
+/*
+ * Add a substitution variable (local to this session) that does a callback
+ */
+void svcallback(char *keyname, void (*fcn_ptr)() )
+{
+       struct wcsubst *ptr;
+
        ptr = (struct wcsubst *) malloc(sizeof(struct wcsubst));
        ptr->next = WC->vars;
-       ptr->wcs_type = keytype;
+       ptr->wcs_type = WCS_FUNCTION;
        strcpy(ptr->wcs_key, keyname);
-       ptr->wcs_value = malloc(strlen(wbuf)+1);
-       strcpy(ptr->wcs_value, wbuf);
+       ptr->wcs_function = fcn_ptr;
        WC->vars = ptr;
 }
 
@@ -80,7 +111,7 @@ void svprintf(char *keyname, int keytype, const char *format,...)
  * back end for print_value_of() ... does a server command
  */
 void pvo_do_cmd(char *servcmd) {
-       char buf[256];
+       char buf[SIZ];
 
        serv_puts(servcmd);
        serv_gets(buf);
@@ -92,7 +123,7 @@ void pvo_do_cmd(char *servcmd) {
                        wprintf("%s\n", &buf[4]);
                        break;
                case '1':
-                       fmout(NULL);
+                       fmout(NULL, "CENTER");
                        break;
                case '4':
                        wprintf("%s\n", &buf[4]);
@@ -108,8 +139,53 @@ void pvo_do_cmd(char *servcmd) {
  */
 void print_value_of(char *keyname) {
        struct wcsubst *ptr;
+       void *fcn();
 
-       for (ptr = WC->vars; ptr != NULL; ptr = ptr->next) {
+       if (keyname[0] == '=') {
+               do_template(&keyname[1]);
+       }
+
+       if (!strcasecmp(keyname, "SERV_PID")) {
+               wprintf("%d", WC->ctdl_pid);
+       }
+
+       else if (!strcasecmp(keyname, "SERV_NODENAME")) {
+               escputs(serv_info.serv_nodename);
+       }
+
+       else if (!strcasecmp(keyname, "SERV_HUMANNODE")) {
+               escputs(serv_info.serv_humannode);
+       }
+
+       else if (!strcasecmp(keyname, "SERV_FQDN")) {
+               escputs(serv_info.serv_fqdn);
+       }
+
+       else if (!strcasecmp(keyname, "SERV_SOFTWARE")) {
+               escputs(serv_info.serv_software);
+       }
+
+       else if (!strcasecmp(keyname, "SERV_REV_LEVEL")) {
+               wprintf("%d.%02d",
+                       serv_info.serv_rev_level / 100,
+                       serv_info.serv_rev_level % 100
+               );
+       }
+
+       else if (!strcasecmp(keyname, "SERV_BBS_CITY")) {
+               escputs(serv_info.serv_bbs_city);
+       }
+
+       else if (!strcasecmp(keyname, "CURRENT_USER")) {
+               escputs(WC->wc_username);
+       }
+
+       else if (!strcasecmp(keyname, "CURRENT_ROOM")) {
+               escputs(WC->wc_roomname);
+       }
+
+       /* Page-local variables */
+       else for (ptr = WC->vars; ptr != NULL; ptr = ptr->next) {
                if (!strcasecmp(ptr->wcs_key, keyname)) {
                        if (ptr->wcs_type == WCS_STRING) {
                                wprintf("%s", ptr->wcs_value);
@@ -117,6 +193,9 @@ void print_value_of(char *keyname) {
                        else if (ptr->wcs_type == WCS_SERVCMD) {
                                pvo_do_cmd(ptr->wcs_value);
                        }
+                       else if (ptr->wcs_type == WCS_FUNCTION) {
+                               (*ptr->wcs_function) ();
+                       }
                }
        }
 }
@@ -132,16 +211,19 @@ void do_template(void *templatename) {
        char inbuf[1024];
        char outbuf[sizeof inbuf];
        char key[sizeof inbuf];
-       int i, j, pos;
-       int olen;
+       int i, pos;
 
        strcpy(filename, "static/");
        strcat(filename, templatename);
+       if (WC->is_wap)
+               strcat(filename, ".wml");
+       else
+               strcat(filename, ".html");
        
        fp = fopen(filename, "r");
        if (fp == NULL) {
                wprintf("<BLINK>ERROR</BLINK> - could not open template ");
-               wprintf("'%s' - %s<BR>\n",
+               wprintf("'%s' - %s<br />\n",
                        templatename, strerror(errno));
                return;
        }
@@ -150,32 +232,31 @@ void do_template(void *templatename) {
 
        while (fgets(inbuf, sizeof inbuf, fp) != NULL) {
                strcpy(outbuf, "");
-               olen = 0;
 
-               for (i=0; i<strlen(inbuf); ++i) {
-                       if (strncmp(&inbuf[i], "<?", 2)) {
-                               outbuf[olen] = inbuf[i];
-                               outbuf[++olen] = 0;
+               while (strlen(inbuf) > 0) {
+                       pos = (-1);
+                       for (i=strlen(inbuf); i>=0; --i) {
+                               if ((inbuf[i]=='<')&&(inbuf[i+1]=='?')) pos = i;
+                       }
+                       if (pos < 0) {
+                               wprintf("%s", inbuf);
+                               strcpy(inbuf, "");
                        }
                        else {
-                               pos = (-1);
-                               for (j=strlen(inbuf); j>=i;  --j)  {
-                                       if (inbuf[j]=='>') pos = j;
-                               }
-                               if (pos > 0) {
-                                       wprintf("%s", outbuf);
-                                       strcpy(outbuf, "");
-                                       olen = 0;
-                                       strncpy(key, &inbuf[i+2], pos-i-2);
-                                       print_value_of(key);
-                                       i = pos;
-                               }
-                               else {
-                                       i = i + 2;
+                               strncpy(outbuf, inbuf, pos);
+                               outbuf[pos] = 0;
+                               wprintf("%s", outbuf);
+                               strcpy(inbuf, &inbuf[pos]);
+                               pos = 1;
+                               for (i=strlen(inbuf); i>=0; --i) {
+                                       if (inbuf[i]=='>') pos = i;
                                }
+                               strncpy(key, &inbuf[2], pos-2);
+                               key[pos-2] = 0;
+                               print_value_of(key);
+                               strcpy(inbuf, &inbuf[pos+1]);
                        }
                }
-               wprintf("%s", outbuf);
        }
 
        fclose(fp);