cgi_html.c

Go to the documentation of this file.

/******************************************************************************/
/* cgi_html.c © Copyright 1998-2005 by Raosoft Inc. All Rights Reserved.      */
/*                                                                            */
/* You may use and modify this file for your own use, but may not distribute  */
/* it or derivative works without the prior written consent of Raosoft, Inc.  */
/*                                                                            */
/* If you choose to share your modifications with Raosoft, Inc. the company   */
/* will attempt to incorporate them into future versions of this file.        */
/*                                                                            */
/* This software is provided "as is," and Raosoft makes no warranty, express  */
/* or implied, of fitness for a particular application. Every measure has been*/
/* taken to anticipate risks in//HEREnt to computer networks, but we cannot   */
/* guarantee safety or reliability of this program in every situation.        */
/*                                                                            */
/******************************************************************************/

/* read an HTML file, set form entries according to a lookup-table from an */
/* ASCII file. Like it? Send me a note: shanti@raosoft.com */

#include "cgi.h"

#define EATCOLON(x) while (*x && (strchr(":",*x) != NULL)) x++
#define EATWHITE(x) while (*x && (strchr(" \t\r\n",*x) != NULL)) x++
#define EATTEXT(x) while (*x && (strchr(" \t\r\n",*x) == NULL)) x++
#define STRIPWHITE(x) {size_t n = strlen(x); while (n && strchr(" \t\r\n",x[n-1])) x[--n] = 0;}
#ifdef __BORLANDC__
#pragma warn -par
#endif

size_t FindEnd(char* str)
{/* search for quote + a character from c2 */
  int quote = str[0];
  size_t i = 1;

  while (str[i] && str[i] != quote)
  {
   if (str[i] == '\\') if (str[++i]) {i++; continue; }
   i++;
  }
  return i;
}

void unescape_c(char*c)
{
 char* d = c;
 while (*d)
 {
  if (*d == '\\')
   {
    if (d[1] == 0) {*c = *d; break;}
    if (d[1] == '\r') *c = '\r';
    else if (d[1] == '\n') *c = '\n';
    else *c = d[1];
    c++;
    d += 2;
   }
  else *c++ = *d++;
 }
 *c = 0;
}

extern char calctemp[128];

int FormatReplacement(char* CurrentVariable, STREAM htmlout, CGINameValue* v,CGINameValue* v2)
{
 char * value=NULL;
 char * ifyes=NULL;
 char * ifno=NULL;
 size_t lyes =0;
 int yes;
 char * start;

 if (!htmlout) return 0;
 if (v == NULL)
  {
   HTMLWrite(htmlout,CurrentVariable);
   return -1;
  }

 yes = EvaluateComparison(CurrentVariable,v,v2,&start);

 if (yes == -2)
    {
     return -2;
    }
    if (yes == -1) /* simple replacement */
     {
       if (!strnicmp(CurrentVariable,"toFixed(",8))
       {
         char*c;
       char a[8];
       double dbl;
       size_t i, length;
         c = CurrentVariable + 8;
       i = length = strlen(c);
        while (i > 0 && c[i] != ',') i--;
        if (i == 0)
       {
        if (c[length-1] == ')') length--;
         value = EvaluateExpressionL(v,v2,c,length);
       }
        else
        {
        value = CGIMALLOC(64);
          sprintf(a,"%%.%df",atoi(c+i+1));
        c = EvaluateExpressionL(v,v2,c,i);
        dbl = strtod(c,0);
        CGIFREE(c);
          sprintf(value,a,dbl);
        }
       }
       else
      {
        value = EvaluateExpression(v,v2,CurrentVariable);
        if (*value && strchr(value,'.'))
        {
         size_t i = strlen(value)-1;
         while (value[i] == '0') value[i--]=0;
         if (value[i] == '.') value[i] =0;
        }
       }
      HTMLEscape(htmlout,value);
      CGIFREE(value);
      return -1;
     }
 else
   {
    /* {field=value?true:false} */
     char* start1 = start;
     start = strchr(start,'?');

     if (start)
     {
       start++;
       EATWHITE(start);
       ifyes = start;
       if (*ifyes == '\'' || *ifyes == '\"')
       {
        size_t len = FindEnd(ifyes);
        ifyes[len]=0;
        ifyes[0] = '\'';
        /* ifyes ++; skip the first quote */
        start = ifyes + len + 1;
       }
       else start = strchr(start,':');
     }
     else start = strchr(start1,':');

     if (start)
     {
       lyes = start - ifyes;
       EATWHITE(start);
       EATCOLON(start);

       EATWHITE(start);
       ifno = start; //ifno gets set to start
       if (*ifno == '\'' || *ifno == '\"')
       {
        ifno[FindEnd(ifno)] = 0;
        ifno[0] = '\'';
        /* ifno++; */
       }
     }

     if (htmlout)
     {
      if (yes)
        {
         if (ifyes)
         {
           if (*ifyes == '\'') /* *ifyes == '?' */
           {
             unescape_c(++ifyes); /* null termination added earlier */
             HTMLWrite(htmlout,ifyes);
           }
           else
           {
             value = EvaluateExpressionL(v,v2,ifyes,lyes?lyes:0);
             HTMLEscape(htmlout,value);
           }
         }
        }
      else
        {
         if (ifno)
         {
           if (*ifno == '\'') /* *ifno == ':' */
           {
             unescape_c(++ifno);
             HTMLWrite(htmlout,ifno);
           }
            else
           {
             value = EvaluateExpression(v,v2,ifno + 1);
             HTMLEscape(htmlout,value);
           }
         }
        }
     }
     CGIFREE(value);
     return yes ? 1 : 0;
    }
}

void WriteHTMLAttributes(STREAM htmlout, CGINameValue * v)
{
 int i;
 if (!htmlout) return;
 for (i=0; v[i].name; i++)
 {
  if (v[i].name[0])
  {
   HTMLWrite(htmlout," ");
   HTMLWrite(htmlout,v[i].name);
   if (v[i].value)
   {
    HTMLWrite(htmlout,"=\"");
    HTMLEscape(htmlout,v[i].value);
    HTMLWrite(htmlout,"\"");
   }
  }
 }
}

/* Usage:
  OpenDatabase
  int DatabaseFindLastRecord(DATABASE * database,CGINameValue* header,
                                               CGINameValue* userid,
                                               int casesensitive);
  OpenFile
  HTMLPresetForm(htmlout,file,header);
  CloseFile
  CloseDatabase
*/


/* Commands spoken //HERE:
  include filename
  source filename
  report database_name query_string sort_field sort_direction maxrows
*/

void EZSError(STREAM htmlout,FILE* source,char* command,char* error)
{
 if (!htmlout) return;
 HTMLWrite(htmlout,"<HR>Error in (");
 HTMLWrite(htmlout,command);
 HTMLPrintf(htmlout,")[%d]: ",ftell(source));
 HTMLWrite(htmlout,error);
 HTMLWrite(htmlout,"<HR>");
}

int ReadNextWord(FILE* source,char* name,size_t length)
{
 name[0]=0;
 while (fread(name,1,1,source))
 {
  if (!strchr(" \t\r\n",name[0])) break;
  name[0]=0;
 }
 if (name[0] == '\'' || name[0] == '\"')
  {
   size_t i=0;
   int end = name[0];
   char* buf = name;
   while (1)
     {
      if (!fread(buf+i,1,1,source)) return -1;
      if (buf[i] == '\\')
       {
        if (!fread(buf+i,1,1,source)) break;
        if (buf[i] == 'n') buf[i] = '\n'; /* special replacement codes */
        else if (buf[i] == 'r') buf[i] = '\r';
        else if (buf[i] == 't') buf[i] = '\t';
       }
      else if (buf[i] == end) break;
      if (i < length-1) i++;
     }
    buf[i] = 0;
  }
 else return ReadUntilChar(source,name+1,length-1," \t\r\n",0);
 return name[0]; //quotation mark
}

int ReadParameter(FILE* source,char* name,size_t length)
{
 name[length-1] = 0;
 name[0] = 0;

 ReadNextWord(source,name,length-1);

 if (!name[0])
  return 0;

 if (!strcmp(name,"%>"))
   {
     name[0] = 0;
     return 0;
   }
 return 1;
}

int EZSInclude(char* argv0,STREAM htmlout,FILE* source,CGINameValue* cgidata,CGINameValue* dbdata)
{
 char p[MAXPATH];
 FILE* f;

 if (!ReadParameter(source,p,MAXPATH))
  {
   EZSError(htmlout,source,"include","parameter missing");
   return 0;
  }

 ReadUntilWordS(source,NULL,"%>");
 f = FileOpen(argv0,p,"");
 if (!f)
  {
   EZSError(htmlout,source,p,"cannot open file");
   return 0;
  }

 RunReport(argv0,htmlout, f, cgidata, dbdata,0,0,0);
 CGIFCLOSE(f);
 return 1;
}

int EZSSource(char* argv0,STREAM htmlout,FILE* source)
{
 char filename[MAXPATH],p[MAXPATH];
 if (!ReadParameter(source,p,MAXPATH))
  {
   EZSError(htmlout,source,"source","parameter missing");
   return 0;
  }

 ReadUntilWordS(source,NULL,"%>");
 ExpandLocalPath(argv0,filename,p,"");
 if (!HTMLWriteFile(htmlout, filename))
  {
   EZSError(htmlout,source,filename,"cannot open file");
   return 0;
  }
 return 1;
}

int EZSRandom(char* argv0,STREAM htmlout,FILE*source, CGINameValue* cgidata,
                    CGINameValue* dbdata,CGINameValue* unused, int preset)
{
 char group[32];
 char done[32];
 char* finish;
 int loc[128];
 int n=0;
 int i;
 int end;
 int r=452;

 if (!ReadParameter(source,group+1,sizeof(group)-2)) return 0;
 if (!ReadParameter(source,done+1,sizeof(done)-2)) return 0;

 ReadUntilWordS(source,NULL,"%>");

 group[0] = done[0] = '<';
 strcat(group,">");
 strcat(done,">");
 if (strlen(done) != strlen(group)) return 0;

 for (i=0; i<128; i++)
 {
  loc[i] = ftell(source);
  if (ReadUntilWordS2(source,NULL,group,done) != 1) break;
  n++;
 }

 end = ftell(source);

 if (n > 1)
 {
 char* seed = GetFieldValue(cgidata,"_SESSION");
 while (*seed) r += *seed++;
 seed = GetFieldValue(cgidata,"HOST");
 while (*seed) r += *seed++;

 for (i=0; i<n; i++)
 {
  int x = loc[i];
  int y;
#ifdef __WINCE__
  r = r + x + GetTickCount();
#else
  r = r + x + clock();
#endif
  if (r<0) r = -r;
  y = r % n;
  loc[i] = loc[y];
  loc[y] = x;
 }
 }

 finish = group+1;
 swapchars(finish,'>',0);

 for (i=0; i<n; i++)
 {
  fseek(source,loc[i],SEEK_SET);
  RunReport(argv0,htmlout, source,cgidata,dbdata,unused,preset,finish);
 }
 fseek(source,end,SEEK_SET);
 return 0;
}

int EZSCounts(char* argv0,STREAM htmlout,FILE*source, CGINameValue* data)
{
 char statfile[MAXPATH],filename[MAXPATH];
 CGINameValue* count;
 CGINameValue* sum;
 CGINameValue* total;
 int i;

 if (!ReadParameter(source,statfile,sizeof(statfile))) return 0;
 ReadUntilWordS(source,NULL,"%>");

 ExpandLocalPath(argv0,filename,statfile,"");
 count = ReadINIFileSection(filename, "COUNT",0);
 sum = ReadINIFileSection(filename, "SUM",0);

 if (sum)
 {
 for (i=0;sum[i].name;i++)
 {
  char * x = strdup3(sum[i].name,".SUM","");
  CGIFREE(sum[i].name);
  sum[i].name = x;
 }
 }

 if (count != NULL && sum != NULL)
 {
  total = CopyListJoin(count,sum,0);
  DeleteNVP(count);
  DeleteNVP(sum);
 }
 else
 {
  total = count;
  if (total == NULL) total = sum;
 }

 RunReport(argv0,htmlout,source,data,total,0,0,"/report"); /* set the next form in the file */

 DeleteNVP(total);

 return 0;
}

/*  report database_name query_string sort_field sort_direction maxrows */
/*  report database_name query_string */
int EZSReport(char* argv0,STREAM htmlout, FILE* source, CGINameValue* data)
{
 int reportstart;
 char datafile[MAXPATH],p[MAXPATH],querystr[1024];
 CGINameValue * header;
 DATABASE * database;
 int i;
 int rows=0;
 char * query = querystr;

 if (!ReadParameter(source,p,sizeof(datafile))) return 0;
 ReadUntilWord(source,querystr,sizeof(querystr),"%>");
 EATWHITE(query);
 STRIPWHITE(query);
 if (*query == '\'' || *query == '\"')
  {
   query[FindEnd(query)]=0;
   query ++;
  }
 else if (*query == '$')
  {
   query = GetFieldValue(data,query+1);
  }

 ExpandLocalPath(argv0,datafile,p,"");

 if (!DatabaseOpen(datafile,&database,&header,1,0))
 {
   HTMLWrite(htmlout,"[Error: Unable to open the database ");
   HTMLWrite(htmlout,datafile);
   HTMLWrite(htmlout,"]");
   LogError("\nCGI_DATA: Unable to open the database: ");
   LogError(datafile);
   return 3;
 }

 /* doesn't check security flags. if you wrote the report file, you've */
 /* presumably thought about that already */

 RenameField(header,"","#");
 reportstart = ftell(source);

 /* case-insensitive search */
 RunReport(argv0,0,source,0,0,0,0,"/report");
 i=0;
 while((rows ? i < rows : 1) && DatabaseFindNextRecord(database,header,data,query))
  {
   char t[32];
   i++;
   sprintf(t,"%d",i);

   SetFieldValue(header,"#",t);
   fseek(source,reportstart,SEEK_SET);
   RunReport(argv0,htmlout,source,data,header,0,0,"/report"); /* set the next form in the file */
  }

 DatabaseClose(database,header);
 return 0; /* the end of evaluation of this block */
}

void ExecEZSCommand(char* argv0,STREAM htmlout, FILE* source, CGINameValue* cgidata,
                    CGINameValue* dbdata,
                    CGINameValue* unused,
                    int preset)
{/* Our versions of Active Data Pages */
 char cmd[1024]; /* no single symbol can be longer than that */

 if (!htmlout) return;
 while (ReadNextWord(source,cmd,sizeof(cmd)) > 0)
 {
  if (!stricmp(cmd,"%>")) return;
  else if (!stricmp(cmd,"include")) {if (!EZSInclude(argv0,htmlout,source,cgidata,dbdata)) return;}
  else if (!stricmp(cmd,"source")) {if (!EZSSource(argv0,htmlout,source)) return;}
  else if (!stricmp(cmd,"report")) {if (!EZSReport(argv0,htmlout,source,cgidata)) return;}
  else if (!stricmp(cmd,"random")) {if (!EZSRandom(argv0,htmlout,source,cgidata,dbdata,unused,preset)) return;}
  else if (!stricmp(cmd,"stats")) {if (!EZSCounts(argv0,htmlout,source, cgidata)) return;}
  else {
     EZSError(htmlout,source,cmd,"Unknown command");
     }
 }
}

void FinishTag(FILE* source,char* tag, size_t size, int end, char* finish,char* stripend)
{
  size_t l = strlen(tag);
  size_t f = strlen(finish);

 // //HERE(finish);

  if (!l) return;

  if (end && end != EOF)
    {
     tag[l] = (char) end;
     l++;
     tag[l]=0;
    }

  if (l > f && !strcmp(tag+l-f,finish))
   {
    l -= f;
    tag[l]=0;
   }
  else if (l < size)
   {
    ReadUntilWord(source,tag+l,size-l,finish);
    l = strlen(tag);
   }
  else
    ReadUntilWord(source,0,0,finish);


  while (l > 0 && strchr(stripend,tag[l-1]))
   {
    l--;
    tag[l] = 0;
   }
}

/* for checkbox questions with overlapping fieldnames */
/* exhaustively checks all the possible values */
/* returns 1: found, 0: not found, 2: no field */
int IsValueSelected(CGINameValue *data,char * fieldname, char * value)
{int x;
 int ret=0;
for(x=0; data[x].name; x++)
   {
    if (!data[x].name[0]) continue;
    if (!stricmp(fieldname,data[x].name))
     {
      ret = 2;
      if (!data[x].value) continue;
      if (data[x].value == 0 && value[0] == 0) return 1;
      if (HasToken(data[x].value,value,NULL)) return 1;
     }
   }
return ret;
}
int PrintScriptError(STREAM htmlout,ScriptEnvironment* Env, FILE* script, int errcode)
{
 char * err;
 int len = Env->curpos - Env->lastLine;
 switch (errcode)
 {
  case 40: err="Need a closing quote";break;
  case 41: err="( expected after if or elsif";break;
  case 42: err="Need a closing paren";break;
  case 43: err="Misplaced string constant";break;
  case 44: err="An else or elsif must come after an if";break;
  case 45: err="Object variable not found";break;
  case 46: err="Unable to process this command";break;
  case 47: err="Check for an unterminated string, unescaped quote, or missing + sign"; break;
  case 48: err="Function not found";                  break;
  case 49: err="Expecting an expression"; break;
  case 70: err="{ expected after an if "; break;
  case 71: err="Need a closing brace";break;
  default: err="Unknown scripting error";
 }
 HTMLPrintf(htmlout,"Script error %d: %s:",errcode,err);
 if (len > 1024) len = 1024;
 if (len > 0 && script != NULL)
 {
  char c[1024];
  fseek(script,Env->lastLine,0);
  fread(c,len,1,script);
  HTMLWriteL(htmlout,c,len);
 }
 return 0;
}

#if 0
#define PROFILEBEGIN(x) int _timers[x]; {int _t; for (_t=0; _t<x; _t++) _timers[_t] = 0;}
#define START(i) {_timers[i] -= GetTickCount();}
#define STOP(i) {_timers[i] += GetTickCount();}
#define PROFILEEND {int _t; char msg[48]; for (_t=0; _t<32 && _timers[_t]; _t++)\
if (_timers[_t]) {sprintf(msg,"(%d=%d) ",_t,_timers[_t]); LogError(msg);}}
#else
#define PROFILEBEGIN(x)
#define START(i)
#define STOP(i)
#define PROFILEEND
#endif

int RunReport(char* argv0, 
              STREAM htmlout, 
              FILE* source,
              CGINameValue * cgidata,
              CGINameValue * dbdata, 
              CGINameValue * unused,
              int preset,
              char* stop)
{
 return RunReportF( argv0, htmlout,source,cgidata,dbdata,unused,preset,stop,0,0);
}

int RunReportF(char* argv0, 
              STREAM htmlout, 
              FILE* source,
              CGINameValue * cgidata,
              CGINameValue * dbdata, 
              CGINameValue * unused,
              int preset,
              char* stop,
              char* lastData, 
              ScriptFunction * extra 
              )
{
 char c[2],tag[MAXBUF],currentname[128];
 int inscript=0;
 int e;

 currentname[0]=0;
 PROFILEBEGIN(32)
 c[1]=0;

 while (1)
  {

     START(0);
     if (fread(c,1,1,source) == 0) {STOP(0) break;}
     STOP(0)

   if (dbdata && inscript == 0)
   {/* search for {} replacements */
    if (c[0] == '{')
    {
     fread(tag,1,1,source);
     if (strchr("} \t\r\n",tag[0]))
     {/* skip it */
       HTMLWrite(htmlout,"{");
       HTMLWriteL(htmlout,tag,1);
       continue;
     }
     else
     {
     START(2)
       ReadUntilChar(source,tag+1,sizeof(tag)-3,"}",0);
      tag[sizeof(tag)-2] = tag[sizeof(tag)-1] = 0;
      STOP(2)
     if (!*tag)
      continue;

      if (stop)
      if (!stricmp(stop,tag))
       return 0;

       START(3)
      FormatReplacement(tag, htmlout, dbdata,0);
       STOP(3)
      continue;
     }
    }
   }

   if (c[0] != '<') /* it's a potential tag */
   {
       START(1)
    HTMLWrite(htmlout,c);
       STOP(1)
    continue;
   }

   START(4)
   e = ReadUntilChar(source,tag,sizeof(tag)-2,"> \t\r\n",0);
   tag[sizeof(tag)-2] = tag[sizeof(tag)-1] = 0;
   STOP(4)
   if (e == EOF) break;

   if (stop)
    if (!stricmp(stop,tag))
     {
      if (e != '>')
       ReadUntilChar(source,lastData,lastData?MAXPATH:0,">",0);
      return 0;
     }

  if (strnicmp(tag,"!--$",4) == 0)
   {
      START(5)
    FinishTag(source,tag, sizeof(tag), e, "-->"," \t\r\n");
    FormatReplacement(tag+4,htmlout,cgidata,dbdata);
    STOP(5)
    continue;
   }

  if (tag[0]=='%' && tag[1] == '=')
   {  /* <%=variable_name %>       */
  // //HERE("");
      START(6)
    FinishTag(source,tag, sizeof(tag), e, "%>"," \t\r\n");
    FormatReplacement(tag+2,htmlout,cgidata,dbdata);
    STOP(6)
    continue;
   }

  if (!strnicmp(tag,"%end",4)) /* %end or %endif */
   {
//     //HERE("");
      START(7)
    if (e != '>') ReadUntilChar(source,0,0,">",0); /* finish the tag */
    STOP(7)
    continue;
   }

  if (!stricmp(tag,"%break"))
   break;

  startif:

  if (!strnicmp(tag,"%if",3) ||!strnicmp(tag,"%elsif",6)||!strnicmp(tag,"%elif",5))
   {/* note that nested %if doesn't work */
    START(8)
    FinishTag(source,tag,sizeof(tag), e, "%>"," \t\r\n");
    e = 0;
    if (!EvaluateLogic(tag+3,cgidata,dbdata))
     { /* skip ahead to the next condition */
      if (ReadUntilWordS2(source,0,"<%el","<%en") == 1) /* not case sensitive */
      {/* '%elsif' '%elif ' '%else%' '%else ' '%else>' (condition) */
       strcpy(tag,"%el");
       e = ReadUntilChar(source,tag+3,sizeof(tag)-5,"> \t\r\n",0);

       if (!stricmp(tag,"%else") && e &&strchr(" \t\r\n",e))
       {/* '%else %>' '%else >' '%else if (...) %>' */
        e = ReadUntilChar(source,tag,sizeof(tag)-2,"> \t\r\n",0);

        if (!stricmp(tag,"if") && e != '>')
           strcpy(tag,"%elif");
        else
           strcpy(tag,"%else");
       }
       if (!strnicmp(tag,"%elsif",6)||!strnicmp(tag,"%elif",5))
         goto startif;
      }
      if (e != '>') /* EOF or %endif or %else */
       e = ReadUntilChar(source,0,0,">",0);/* finish the tag */
      /* Resume from the %else and continue until %endif */
     }
    STOP(8)
    continue;
   }
  if (!strnicmp(tag,"%else",5)) /* %if must have been true, skip to the end */
   {
      START(9)
    ReadUntilWordS(source,NULL,"<%end");
    ReadUntilChar(source,0,0,">",0); /* finish the tag */
    STOP(9)
    continue;
   }

  if (!strnicmp(tag,"%ezs",4))
   {
      START(10)
    ExecEZSCommand(argv0,htmlout,source,cgidata,dbdata,unused,preset);
    STOP(10)
    continue;
   }

  if (!stricmp(tag,"%include"))
   {
      START(11)
    EZSInclude(argv0,htmlout,source,cgidata,dbdata);
      STOP(11)
    continue;
   }

  if (!stricmp(tag,"%source"))
   {START(12)
    EZSSource(argv0,htmlout,source);
  STOP(12)
    continue;
   }

  if (!stricmp(tag,"%report"))
   {
      START(13)
    EZSReport(argv0,htmlout,source,cgidata);
      STOP(13)
    continue;
   }

  if (!strnicmp(tag,"%random",7))
   {
      START(14)
    EZSRandom(argv0,htmlout,source,cgidata,dbdata,unused,preset);
      STOP(14)
    continue;
   }

  if (!stricmp(tag,"%stats"))
   {
      START(15)
    EZSCounts(argv0,htmlout,source, cgidata);
      STOP(15)
    continue;
   }
  if (tag[0] == '%' && tag[1] == 0 && htmlout)
   {
    int ret;
    ScriptFunction Functions[] =
     {{"print",10,(ScriptFunctionCall)*JSPrint},
      {"write",10,(ScriptFunctionCall)*JSPrint},
      {"eval",1,(ScriptFunctionCall)*JSEval},
      {"timestamp",0,(ScriptFunctionCall)*JSTimeStamp},
      {"toFixed",2,(ScriptFunctionCall)*JStoFixed},
      {"escape",1,(ScriptFunctionCall)*JSHTMLEscape},
      {"subStr",3,(ScriptFunctionCall)*JSsubstr},
      {"indexOf",4,(ScriptFunctionCall)*JSIndexOf},
      {"length",1,(ScriptFunctionCall)*JSstrlen},
      {"hasRecord",1,(ScriptFunctionCall)*JSHasRecord},
      {"runReport",8,(ScriptFunctionCall)*JSReport},
      {"number",1,(ScriptFunctionCall)*JSToNumber},
      {"environment",1,(ScriptFunctionCall)*JSGetEnv},
      {"toNumber",1,(ScriptFunctionCall)*JSToNumber},
      {"random",1,(ScriptFunctionCall)*JSRandom},
      {0,0,0}};
    ScriptObject Objects[] =
     {{"data",0},
      {0,0}};
    ScriptEnvironment Env;

      START(16)
   memset(&Env,0,sizeof(Env));
    Env.Functions = Functions;
    Env.Objects   = Objects;
    Env.htmlout   = htmlout;
    Env.argv0     = argv0;
    Env.F2 = extra;

    Objects[0].data=dbdata;

    ret = RunScript(&Env,source,cgidata);
    if (ret > 0)
    {
     HTMLWriteL(htmlout,"***",3);
     PrintScriptError(htmlout,&Env, source, ret);
     HTMLWriteL(htmlout,"***",3);
    }
    STOP(16)
    continue;
   }

  if (stricmp(tag,"SCRIPT") == 0) inscript = 1;
  else if (stricmp(tag,"/SCRIPT")==0) inscript = 0;

  if (preset && inscript == 0 && !stricmp(tag,"/SELECT"))
  {
   currentname[0] = 0;
   goto disregard;
  }

  if (preset && inscript == 0)
   if (!stricmp(tag,"INPUT")
         || !stricmp(tag,"SELECT")
         || !stricmp(tag,"OPTION")
         || !stricmp(tag,"TEXTAREA")
         || !stricmp(tag,"/TEXTAREA"))
  {
       CGINameValue * attributes = 0;
       char *type, *name, *value, *fv;
       START(17)
       if (e != '>') attributes = ReadHTMLAttributes(source,32);

       type = GetFieldValue(attributes,"TYPE");
       name  = GetFieldValue(attributes,"NAME");
       value = GetFieldValue(attributes,"VALUE");
       fv = *name ? GetFieldValue(cgidata,name) : NULLSTR;
       STOP(17)

       if (stricmp(tag,"INPUT")==0) /* password, radio, checkbox, submit, reset, or text */
        {
           START(18)
         if (unused && *name) while (RenameField(unused,name,0));

         HTMLWrite(htmlout,"<INPUT");
         if (*name)
         {
          if (stricmp(type,"RADIO")==0 || stricmp(type,"CHECKBOX")==0)
          {
           if (*fv)
            {
             if (*value && HasToken(fv,value,0))
                HTMLWrite(htmlout," CHECKED");
             else
                RenameField(attributes,"CHECKED",0);
            }
          }
          else /* submit, password, or reset */
          {
           HTMLWrite(htmlout," VALUE=\"");
           if (*fv)
            HTMLEscape(htmlout,fv);
           else
            HTMLWrite(htmlout,value);

           HTMLWrite(htmlout,"\"");
           RenameField(attributes,"VALUE",NULL);
          }
         }
         WriteHTMLAttributes(htmlout,attributes);
         HTMLWrite(htmlout,">");
         STOP(18)
        }
       else if (stricmp(tag,"SELECT")==0)
        {
        START(19)
         if (unused && *name) RenameField(unused,name,0);

         strncpy(currentname,name,sizeof(currentname));
         currentname[sizeof(currentname)-1]=0;
         HTMLWrite(htmlout,"<SELECT");
         WriteHTMLAttributes(htmlout,attributes);
         HTMLWrite(htmlout,">");
         STOP(19)
        }
       else if (stricmp(tag,"OPTION")==0)
        {
         char* query = GetFieldValue(attributes,"query");
           START(20)
         if (*query && (EvaluateLogic(query,cgidata,0) != 1))
         {
          ReadUntilWord(source,0,0,"</OPTION>");
         }
         else if (*currentname)
         {
          HTMLWrite(htmlout,"<OPTION");
          switch (IsValueSelected(cgidata,currentname,value))
          {
           case 1: HTMLWrite(htmlout," SELECTED "); break;
           case 0: RenameField(attributes,"SELECTED",0);
          }
          WriteHTMLAttributes(htmlout,attributes);
          HTMLWrite(htmlout,">");
         }
         STOP(20)
        }
       else if (*name && stricmp(tag,"TEXTAREA")==0)
        {
        START(21)
         if (unused && *name) RenameField(unused,name,0);

         HTMLWrite(htmlout,"<TEXTAREA");
         WriteHTMLAttributes(htmlout,attributes);
         HTMLWrite(htmlout,">");

         if (*fv)
           HTMLEscape(htmlout,fv);
         else
           HTMLEscape(htmlout,value);

         HTMLWrite(htmlout,"</TEXTAREA>");
         ReadUntilWordS(source,0,"</TEXTAREA>");
         STOP(21)
        }
        /* /TEXTAREA does nothing */

       if (attributes) DeleteNVP(attributes);
       continue; /* we processed the tag */
    }

  /* disregard the tag */
  START(22)
disregard:
  HTMLWrite(htmlout,"<");
  HTMLWrite(htmlout,tag);
  STOP(22)
  if (e == EOF) break;
  START(23)
  c[0]=(char)e;
  HTMLWrite(htmlout,c);
  STOP(23)
 }
 PROFILEEND
 return EOF;
}

Raosoft EZReport, EZSurvey, InterForm, RapidReport, Raosoft, and SurveyWin are registered trademarks of Raosoft, Inc. Page contents © 1996-2007 by Raosoft, Inc. You may use and modify this file for your own use, but may not distribute it or derivative works without the prior written consent of Raosoft, Inc. This software is provided "as is," and Raosoft makes no warranty, express or implied, of fitness for a particular application. Every measure has been taken to anticipate risks inherent to computer networks, but we cannot guarantee safety or reliability of this program in every situation.

Tel: 206-525-4025 (US) Email: raosoft@raosoft.com
http://www.raosoft.com/