wf.c

Go to the documentation of this file.

/******************************************************************************/
/* cgi_wf.c © Copyright 2003 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.  */
/*                                                                            */
/* This software is provided "as is," and Raosoft makes no warranty, express  */
/* or implied, of fitness for a articular 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.        */
/*                                                                            */
/******************************************************************************/

#include "cgi.h"

char* JSShowPage(ScriptEnvironment* Env, char* cmd, int argc, char** argv, CGINameValue* Params)
{/* prepend the next page to the _PAGENEXT list */
 char* pageskip;
 if (argc < 1) return 0;
 pageskip = GetFieldValue(Params,"_PAGESKIP");
 if (*pageskip)
  {
   if (!HasToken(pageskip,argv[0],0))
    {
     char*x = strdup3(pageskip,",",argv[0]);
     SetFieldValue(Params,"_PAGESKIP",x);
     CGIFREE(x);
    }
  }
 else
  {
   SetFieldValue(Params,"_PAGESKIP",argv[0]);
  }
 return 0;
}

char* JSTimeStamp(ScriptEnvironment* Env, char* cmd, int argc, char** argv, CGINameValue* Params)
{
    char datetime[32];
    GetTime(datetime,datetime+8,0);
    return strdup(datetime);
}

/* recipient, subject, message */
char* JSSendMail(ScriptEnvironment* Env, char* cmd, int argc, char** argv, CGINameValue* Params)
{
 if (!Env->config) return 0;
 if (argc < 3) return 0;
 {
   char* server   = GetSetting(Env->config,"EMAILSERVER","");
   char* profile  = GetSetting(Env->config,"EMAILPROFILE","Windows Messaging Settings");
   char* name     = GetSetting(Env->config,"EMAILNAME","");
   char* password = GetSetting(Env->config,"EMAILPWD","");
   SendMail(argv[0],argv[1],argv[2], server, profile, name, password);
 }
 return 0;
}

#ifdef VPWSCGI
int CGImainWF(char * argv0,char* url,CGINameValue* Params,STREAM htmlout)
{
#else
int CGImain(char * argv0,CGINameValue* Params,STREAM htmlout)
{
    char* url = GetEnvironment(htmlout,"PATH_INFO");
    if (!url) url = GetFieldValue(Params,"_page");
 return WFmain(argv0,url,Params,htmlout);
}
int WFmain(char * argv0,char* url,CGINameValue* Params,STREAM htmlout)
{
#endif
 ScriptFunction Functions[] =
 {
  {"print",10,(ScriptFunctionCall)*JSPrint},
  {"write",10,(ScriptFunctionCall)*JSPrint},
  {"eval",1,(ScriptFunctionCall)*JSEval},
  {"timestamp",0,(ScriptFunctionCall)*JSTimeStamp},
  {"toFixed",2,(ScriptFunctionCall)*JStoFixed},
  {"sendMail",3,(ScriptFunctionCall)*JSSendMail},
  {"escape",1,(ScriptFunctionCall)*JSHTMLEscape},
  {"hasRecord",1,(ScriptFunctionCall)*JSHasRecord},
  {"runReport",8,(ScriptFunctionCall)*JSReport},
  {"number",1,(ScriptFunctionCall)*JSToNumber},
  {"toNumber",1,(ScriptFunctionCall)*JSToNumber},
  {"random",1,(ScriptFunctionCall)*JSRandom},
        {"subStr",3,(ScriptFunctionCall)*JSsubstr},
      {"indexOf",4,(ScriptFunctionCall)*JSIndexOf},
      {"length",1,(ScriptFunctionCall)*JSstrlen},
{0,0,0}};

 CGINameValue* config = NULL;

 FILE* f = NULL;

 if (url)
 {
  if (!url[0]) url = "index.html";
  if (strstr(url,"..")) return 101;
  if (url[0] == '/') return 101;
  if (strchr(url,'|')) return 101;
  if (strchr(url,'\\')) return 101;
  if (strchr(url,'>')) return 101;
  if (strchr(url,'<')) return 101;
  f = FileOpen(argv0,url,0);
 }

 if (f)
    {
        if (stristr(url,".html") || stristr(url,".jsp"))
        {
            SendCGIHeader(htmlout,NULL);
            RunReport(argv0,htmlout,f,Params,NULL,NULL,0,0);
            CGIFCLOSE(f);
            return 0;
        }
        if (stristr(url,".js"))
        {
         ScriptEnvironment Global;
         char fn[MAXPATH];
          ExpandLocalPath(argv0,fn,"cgi",".ini");
         config = ReadINIFileSection(fn,"server",0);

         memset(&Global,0,sizeof(Global));
         Global.htmlout   = htmlout;
         Global.Functions = Functions;
         Global.argv0     = argv0;
         Global.config    = config;

            SendCGIHeader(htmlout,NULL);
            RunScript(&Global,f,Params);
         if (config) DeleteNVP(config);
            CGIFCLOSE(f);
            return 0;
        }
        if (stristr(url,".gif"))
        {
            SendCGIHeader(htmlout,"Content-type: image/gif\n\n");
        }
        else if (stristr(url,".jpg"))
        {
            SendCGIHeader(htmlout,"Content-type: image/jpeg\n\n");
        }
        else if (stristr(url,".pdf"))
        {
            SendCGIHeader(htmlout,"Content-type: application/pdf\n\n");
        }
        HTMLWriteFileF(htmlout,f);
        CGIFCLOSE(f);
      return 0;
    }

 HTMLWrite(htmlout,"<P>usage: wf.cgi?_page=index.html\n"
   "<HR>Workflow automation &copy; 2003 by Raosoft, Inc. All Rights Reserved.");

 return 0;
}

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/