cgi.h File Reference

#include <sys/stat.h>
#include <windows.h>
#include <unistd.h>
#include <time.h>
#include <fcntl.h>
#include <stddef.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>

Include dependency graph for cgi.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Data Structures
class	CGINameValue
	Generic data storage class. More...
struct	TextBuffer
struct	SQLDB
struct	EZSSTREAM
struct	ScriptFunction
struct	ScriptObject
struct	ScriptEnvironment
Access modes
#define	CGI_ALLOW_NONE   0
#define	CGI_ALLOW_READ   1
#define	CGI_ALLOW_UPDATE   2
#define	CGI_ALLOW_APPEND   4
#define	CGI_ALLOW_DELETE   8
#define	CGI_ALLOW_WRITE   16
#define	CGI_ALLOW_ADMIN   32
#define	CGI_ALLOW_REPORT   64
#define	CGI_ALLOW_ALL   127
Handy functions
Some utility functions not available on all compilers
void	swapchars (char *str, char find, char repl)
int	stricmp (const char *a, const char *b)
int	strnicmp (const char *a, const char *b, size_t length)
char *	strdup (const char *s)
char *	strdup3 (char *a, char *b, char *c)
char *	strndup (char *s, size_t length)
char *	strn2istr (char *s1, char *s2, size_t l2)
char *	stristr (char *s1, char *s2)
int	strmatch (char *c1, char *c2, size_t len, char *end, int cs)
void	ClearToken (char *c, char *code)
int	HasToken (char *c, char *code, int *loc)
int	HasTokenI (char *c, char *code, int *loc)
char *	PopList2 (char *list, int end)
char *	PopList (CGINameValue *list, char *key, int end)
Write a file
Sends an entire file to the browser.
int	HTMLWriteFile (EZSSTREAM *htmlout, char *filename)
void	HTMLWriteFileF (EZSSTREAM *htmlout, FILE *f)
void	SetLoggingLevel (int i)
void	LogMessage (char *c)
void	LogError (char *c)
void	LogTrx (CGINameValue *data)
void	LogConnection (char *program, char *host)
void	LogStartup (EZSSTREAM *htmlout, char *argv0)
Defines
#define	RAOSOFT_CGI_VERSION   "6.4.2"
#define	RAOSOFT_CGI_COPYRIGHT   "Copyright 2000-2007 by Raosoft Inc. All Rights Reserved."
#define	_WINSOCKAPI_
#define	NULLSTR   ""
#define	CONSOLECGI
#define	NULL   null
#define	MAXPATH   1024
#define	MAXBUF   8196
#define	MAXDATA   65535
#define	CGIMALLOC(s)   (void*)malloc(s);
#define	CGIFREE(p)   {if (p) free(p); p=NULL;}
#define	CGIFOPEN(n, f)   fopen(n,f);
#define	CGIFCLOSE(h)   {if (h) {fclose(h); h=0;}}
#define	SLASH   "/"
#define	STREAM   EZSSTREAM *
#define	DATABASE   FILE
#define	CGI_DEFAULT_HEADER   "Content-type: text/html; charset: utf-8\n\n"
#define	GetFieldValue(d, f)   GetSetting(d,f,"")
#define	RemoveFieldValue(a, b)   SetFieldValue(a,b,NULL)
#define	RemoveField(a, b)   RenameField(a,b,NULL)
Typedefs
typedef char *(*	ScriptFunctionCall )(void *Global, char *cmd, int argc, char **argv, CGINameValue *Variables)
Functions
TextBuffer *	NewBuffer (int length)
void	DeleteBuffer (TextBuffer *t)
size_t	BufferRead (TextBuffer *t, char *out, size_t length)
size_t	BufferWrite (TextBuffer *start, char *text)
size_t	BufferWriteL (TextBuffer *start, char *text, size_t length)
size_t	BufferSize (TextBuffer *t)
char *	CopyBuffer (TextBuffer *t)
SQLDB *	ODBCConnect (char *service, char *uid, char *pwd, TextBuffer *errors)
int	ODBCDisconnect (SQLDB *database)
int	ODBCSelect (SQLDB *database, char *command, void **handle)
CGINameValue *	ODBCRead (void *handle)
int	ODBCFinish (void *handle, int *numModified)
CGINameValue *	ODBCQuery (SQLDB *database, char *command, int *numModified)
int	ODBCExec (SQLDB *database, char *command, int *numModified)
int	ODBCCommit (SQLDB *database)
void	ExpandLocalPath (char *argv0, char *out, char *in, char *extension)
FILE *	FileOpen (char *argv0, char *file, char *extension)
int	ExpandUrl (char *url)
int	CGImain (char *progname, CGINameValue *argv, EZSSTREAM *htmlout)
int	SendCGIHeader (EZSSTREAM *htmlout, char *header)
char *	GetSetting (CGINameValue *section, char *key, char *def)
char *	GetEnvironment (EZSSTREAM *htmlout, char *key)
EZSSTREAM *	NewStream (int size)
void	DeleteStream (EZSSTREAM *d)
char *	CopyStream (EZSSTREAM *s)
void	HTMLEscape (EZSSTREAM *htmlout, char *out)
void	HTMLWriteL (EZSSTREAM *htmlout, char *out, size_t length)
void	HTMLWrite (EZSSTREAM *htmlout, char *out)
void	HTMLSend (EZSSTREAM *htmlout, TextBuffer *in)
void	HTMLPrintf (EZSSTREAM *htmlout, char *formatting,...)
int	SaveDataToASC (CGINameValue *data, char *filename, int *pos)
int	SaveDataToXML (CGINameValue *data, char *filename, int *pos)
void	WriteXML (FILE *f, CGINameValue *data)
int	SendMail (char *recip, char *subject, char *textnote, char *server, char *profile, char *name, char *password)
int	CheckAllowDeny (char *host, char *allow, char *deny)
int	GetSecurityFlags (char *argv0, char *host, char *database, char *pwd)
void	GetTime (char *date, char *time, int type)
void	ResetList (CGINameValue *header)
int	DatabaseSaveNewRecord (char *filename, CGINameValue *values, int *pos)
int	DatabaseSaveIndex (char *indexfile, CGINameValue *Params, int pos)
int	DatabaseOpen (char *filename, FILE **database, CGINameValue **header, int extra, int rw)
int	DatabaseReset (FILE *database)
int	DatabaseFFD (FILE *database, int skiprecords)
int	DatabaseReadRecord (FILE *database, CGINameValue *v, int *flags)
int	DatabaseDeleteRecord (char *database, int record)
int	DatabaseFindNextRecord (FILE *database, CGINameValue *header, CGINameValue *cgidata, char *query)
int	DatabaseFindFast (FILE *database, CGINameValue *header, CGINameValue *query, int *pos)
int	DatabaseSearchRecord (FILE *database, char *find, int casesensitive)
void	DatabaseClose (FILE *database, CGINameValue *header)
int	ReadUntilWordS2 (FILE *in, EZSSTREAM *out, char *check1, char *check2)
int	ReadUntilWordS (FILE *in, EZSSTREAM *out, char *check)
int	ReadUntilWord2 (FILE *in, char *out, size_t max, char *check1, char *check2)
int	ReadUntilWord (FILE *in, char *out, size_t max, char *check)
int	ReadNextWord (FILE *source, char *name, size_t length)
int	ReadNextToken (FILE *source, char *buf, int size, int end, int *isSyntax)
int	ReadUntilChar (FILE *in, char *out, size_t max, char *stop, int skip)
CGINameValue *	NewNVP (size_t count)
void	ExtendNVP (CGINameValue *v, size_t count)
void	DeleteNVP (CGINameValue *v)
void	DebugShowNVP (EZSSTREAM *htmlout, CGINameValue *v)
int	FileSize (char *filename)
CGINameValue *	ReadHTMLAttributes (FILE *source, size_t max)
CGINameValue *	ReadINIFileSection (char *file, char *section, int reserve)
CGINameValue *	ReadPairedValues (int argc, char **argv, int reserve)
CGINameValue *	ReadPairedString (char *, char delim, int reserve)
int	SOAPExec (char *host, int port, char *function, char *action, char *data)
int	WinsockConnect (char *host, int port, unsigned int *s)
char *	EvaluateExpression (CGINameValue *v, CGINameValue *v2, char *equation)
char *	EvaluateExpressionL (CGINameValue *v, CGINameValue *v2, char *equation, size_t length)
double	EvaluateAlgebra (CGINameValue *v, CGINameValue *v2, char *equation)
int	IsNumber (char *value, size_t len)
int	EvaluateComparison (char *Comparison, CGINameValue *v, CGINameValue *Var2, char **lastc)
int	EvaluateLogic (char *line, CGINameValue *Variables, CGINameValue *Var2)
CGINameValue *	GetField (CGINameValue *v, char *fieldname)
size_t	ListLength (CGINameValue *header)
CGINameValue *	CopyList (CGINameValue *header, size_t extra)
CGINameValue *	CopyListJoin (CGINameValue *a, CGINameValue *b, size_t extra)
CGINameValue *	CopyListDeep (CGINameValue *header, size_t extra)
CGINameValue *	CopyListN (CGINameValue *header, size_t extra,...)
int	RenameField (CGINameValue *d, char *oldname, char *newname)
int	SetFieldValue (CGINameValue *d, char *fieldname, char *value)
void	SetValue (CGINameValue *d, char *value)
void	SetName (CGINameValue *d, char *name)
int	IsValueSelected (CGINameValue *data, char *fieldname, char *value)
char *	JStoFixed (ScriptEnvironment *Global, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSsubstr (ScriptEnvironment *Global, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSIndexOf (ScriptEnvironment *Global, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSstrlen (ScriptEnvironment *Global, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSPrint (ScriptEnvironment *Global, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSEval (ScriptEnvironment *Global, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSReport (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSRandom (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSHasRecord (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSGetEnv (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSToNumber (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSHTMLEscape (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSTimeStamp (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
int	RunScript (ScriptEnvironment *Env, FILE *script, CGINameValue *Variables)
int	PrintScriptError (EZSSTREAM *htmlout, ScriptEnvironment *Env, FILE *script, int errcode)
int	RunReport (char *argv0, EZSSTREAM *htmlout, FILE *source, CGINameValue *cgidata, CGINameValue *dbdata, CGINameValue *unused, int preset, char *stop)
int	RunReportF (char *argv0, EZSSTREAM *htmlout, FILE *source, CGINameValue *cgidata, CGINameValue *dbdata, CGINameValue *unused, int preset, char *stop, char *lastData, ScriptFunction *extra)
int	CheckCGISendMethod (EZSSTREAM *htmlin)
CGINameValue *	ReadCGIGetData (EZSSTREAM *htmlin, int extra)
CGINameValue *	ReadCGIPostData (EZSSTREAM *htmlin, int extra)
int	B64encode (char *in, char *out)
void	B64decode (char *text)
void	qpdecode (char *text)
void	UTF7toUTF8 (char *text)
size_t	UTF8ToUCS2C (char *in, int *c)
char *	ANSItoUTF8 (char *s)
int	ContainsANSIChars (char *s)

---

Define Documentation

#define _WINSOCKAPI_

Definition at line 571 of file cgi.h.

#define CGI_ALLOW_ADMIN   32

Definition at line 924 of file cgi.h. Referenced by GetSecurityFlags(), and ShowProgramStatus().

#define CGI_ALLOW_ALL   127

Definition at line 926 of file cgi.h. Referenced by GetSecurityFlags().

#define CGI_ALLOW_APPEND   4

Definition at line 921 of file cgi.h. Referenced by CGImain(), GetSecurityFlags(), Login(), SecurityError(), and ShowProgramStatus().

#define CGI_ALLOW_DELETE   8

Definition at line 922 of file cgi.h. Referenced by GetSecurityFlags(), and ShowProgramStatus().

#define CGI_ALLOW_NONE   0

Definition at line 918 of file cgi.h. Referenced by CGImain(), GetSecurityFlags(), and ShowProgramStatus().

#define CGI_ALLOW_READ   1

Definition at line 919 of file cgi.h. Referenced by CGImain(), GetSecurityFlags(), and ShowProgramStatus().

#define CGI_ALLOW_REPORT   64

Definition at line 925 of file cgi.h. Referenced by CGImain(), GetSecurityFlags(), and SecurityError().

#define CGI_ALLOW_UPDATE   2

Definition at line 920 of file cgi.h. Referenced by CGImain(), GetSecurityFlags(), SecurityError(), and ShowProgramStatus().

#define CGI_ALLOW_WRITE   16

Definition at line 923 of file cgi.h. Referenced by GetSecurityFlags(), and ShowProgramStatus().

#define CGI_DEFAULT_HEADER   "Content-type: text/html; charset: utf-8\n\n"

Definition at line 914 of file cgi.h. Referenced by CGImain(), and SendCGIHeader().

#define CGIFCLOSE (  h   )     {if (h) {fclose(h); h=0;}}

Definition at line 765 of file cgi.h. Referenced by _loaddbheader(), AdminRunScript(), CGImain(), DatabaseClose(), DatabaseDeleteRecord(), DatabaseOpen(), EZSInclude(), GenerateUniqueID(), HTMLWriteFile(), JSReport(), LogError(), LogMessage(), LogTrx(), ODBCRunScript(), PrintFinish(), ReadINIFileSection(), SaveData(), SaveDataToASC(), SaveDataToXML(), ShowFormPage(), ValidateBack(), ValidatePage(), and WFmain().

#define CGIFOPEN (  n, f   )     fopen(n,f);

Definition at line 764 of file cgi.h. Referenced by CGImain(), CreateDatabase(), DatabaseDeleteRecord(), DatabaseOpen(), DatabaseSaveIndex(), FileOpen(), GenerateUniqueID(), GetRespcount(), HTMLWriteFile(), JSReport(), LogError(), LogMessage(), LogStartup(), LogTrx(), ReadINIFileSection(), SaveData(), SaveDataToASC(), SaveDataToXML(), SetRespcount(), and ShowFormPage().

#define CGIFREE (  p   )     {if (p) free(p); p=NULL;}

Definition at line 763 of file cgi.h. Referenced by CalcCountSummary(), CGImain(), ComparisonEvaluation(), CopyListN(), DatabaseFindNextRecord(), DatabaseReadRecord(), DatabaseSearchRecord(), DeleteBuffer(), DeleteNVP(), DeleteStream(), DoEvaluateComparison(), EvaluateAlgebra(), EvaluateAlgebraL(), EvaluateArgument(), EvaluateExpressionL(), EZSCounts(), FormatReplacement(), GenerateReport(), JSShowPage(), LoadUserDataSQL(), ODBCConnect(), ODBCDisconnect(), PopList2(), PrintFinish(), ProjectUpdate(), ReadCGIGetData(), ReadCGIPostData(), ReadINIFileSection(), ReadUntilWord2(), ReadUntilWordS2(), ResetList(), RunScript(), SaveData(), SetName(), SetValue(), ShowFormPage(), TryODBC(), UpdateStatistics(), ValidateBack(), ValidatePage(), WriteINIFileSection(), and WriteXML().

#define CGIMALLOC (  s   )     (void*)malloc(s);

Definition at line 762 of file cgi.h. Referenced by CGImain(), CopyBuffer(), DatabaseReadRecord(), EvaluateAlgebraL(), EvaluateExpression(), EvaluateExpressionL(), fmakeword(), FormatReplacement(), JSHTMLEscape(), JSRandom(), JSRankSort(), JSSQLEscape(), NewBuffer(), NewNVP(), NewStream(), ODBCConnect(), ODBCRead(), PopList2(), PrintFinish(), ReadCGIGetData(), ReadINIFileSection(), ReadUntilWord2(), ReadUntilWordS2(), RunScript(), RunScriptFunction(), strdup3(), strndup(), and WriteINIFileSection().

#define CONSOLECGI

Definition at line 637 of file cgi.h.

#define DATABASE   FILE

This is the structure for accessing data. For now, this is always a FILE pointer. Some day, it'll be a pointer to an ODBC structure. Definition at line 878 of file cgi.h. Referenced by CGImain(), DatabaseOpen(), and EZSReport().

#define GetFieldValue (  d, f   )     GetSetting(d,f,"")

Returns "" if the entry does not exist. Definition at line 1187 of file cgi.h. Referenced by Authenticate(), CGImain(), CheckPass(), DatabaseSaveIndex(), DeleteOldRecords(), EvaluateArgument(), EZSRandom(), EZSReport(), FindUserRecordASC(), GetField2(), GetFieldFloat(), GetFieldInt(), GetSecurityFlags(), Instructions(), JSShowPage(), LoadUserDataASC(), Login(), LogStartup(), main(), PopList(), RunReportF(), RunScript(), RunScriptObject(), SaveData(), ShowFormPage(), ShowPage(), SpaceAdd(), SpaceUpdate(), UpdateCounts(), UserAddSpace(), UserUpdate(), VerifyPassword(), and VerifyUser().

#define MAXBUF   8196

Definition at line 684 of file cgi.h. Referenced by _loaddbheader(), HTMLPrintf(), and RunReportF().

#define MAXDATA   65535

Definition at line 685 of file cgi.h. Referenced by DatabaseReadRecord(), and DatabaseSearchRecord().

#define MAXPATH   1024

Definition at line 671 of file cgi.h. Referenced by AdminPrintPage(), CGImain(), DatabaseSaveNewRecord(), ExpandLocalPath(), EZSCounts(), EZSInclude(), EZSReport(), EZSSource(), FileOpen(), GetProjectExtra(), GetRespcount(), GetSecurityFlags(), HTMLWriteFileF(), HTMLWriteL(), Index(), JSHasRecord(), JSReport(), LoadUserDataASC(), Login(), LogStartup(), main(), OpenPage(), Project(), ProjectUpdate(), SaveData(), SaveDataToXML(), SendImage(), SetRespcount(), ShowFormPage(), Space(), SpaceAdd(), SpaceUpdate(), User(), UserAdd(), UserAddSpace(), UserList(), UserUpdate(), VerifyPassword(), VerifyUser(), and WFmain().

#define NULL   null

Definition at line 667 of file cgi.h. Referenced by AdminRunScript(), CGImain(), CMCSendMail(), ComparisonEvaluation(), CopyList(), CopyListDeep(), CopyListJoin(), CopyListN(), DatabaseDeleteRecord(), DatabaseFindFast(), DatabaseFindNextRecord(), DatabaseOpen(), DatabaseReadRecord(), DatabaseSaveIndex(), DeleteNVP(), DoesFileMatchForm(), DoEvaluateComparison(), EvaluateAlgebra(), ExpandLocalPath(), ExtendNVP(), EZSCounts(), EZSInclude(), EZSRandom(), EZSSource(), FindUserRecordASC(), FixQuotes(), FormatReplacement(), GetField(), GetProjectExtra(), GetSecurityFlags(), GetSetting(), HTMLWriteL(), IsValueSelected(), JSHTMLEscape(), JSPrint(), JSRankIndex(), JSRankSort(), JSReport(), JSSQLEscape(), JSsubstr(), JStoFixed(), ListLength(), LoadUserDataASC(), Login(), LogStartup(), main(), Matches(), NewBuffer(), ODBCQuery(), ODBCRead(), ODBCRunScript(), PopList(), PopList2(), PrintFinish(), PrintScriptError(), ReadCGIPostData(), ReadHTMLAttributes(), ReadINIFileSection(), ReadPairedString(), ReadPairedValues(), RenameField(), ResetList(), RunReportF(), RunScriptFunction(), RunScriptObject(), SaveData(), SaveDataToXML(), SendCGIHeader(), SetFieldValue(), SetName(), SetupCGIData(), SetValue(), ShowForm(), ShowFormPage(), SortNVP(), ValidateBack(), ValidatePage(), WFmain(), and WriteXML().

#define NULLSTR   ""

Definition at line 603 of file cgi.h. Referenced by CGImain(), CheckCGISendMethod(), CopyList(), CopyListDeep(), CreateDatabase(), DatabaseSaveNewRecord(), ExtendNVP(), GenerateReport(), GetEnvironment(), LoadUserDataASC(), Login(), main(), PrintFinish(), ReadCGIGetData(), ReadCGIPostData(), ReadPairedString(), ReadPairedValues(), RunReportF(), SaveData(), and SetupCGIData().

#define RAOSOFT_CGI_COPYRIGHT   "Copyright 2000-2007 by Raosoft Inc. All Rights Reserved."

Definition at line 20 of file cgi.h. Referenced by PrintInstructions().

#define RAOSOFT_CGI_VERSION   "6.4.2"

Definition at line 19 of file cgi.h. Referenced by main(), and PrintInstructions().

#define RemoveField (  a, b   )     RenameField(a,b,NULL)

Definition at line 1212 of file cgi.h.

#define RemoveFieldValue (  a, b   )     SetFieldValue(a,b,NULL)

Definition at line 1211 of file cgi.h.

#define SLASH   "/"

Definition at line 832 of file cgi.h. Referenced by CGImain(), OpenPage(), RecurseDirectories(), ShowFormPage(), VerifyPassword(), and VerifyUser().

#define STREAM   EZSSTREAM *

This is the environment and platform-dependent structure used for printing data to the browser. For FastCGI, it's a fancy structure. For ISAPI, it's the Windows EXTENSION_CONTROL_BLOCK. Otherwise, it's a structure containing either a FILE or TextBuffer pointer. Definition at line 876 of file cgi.h. Referenced by main(), and NewStream().

---

Typedef Documentation

typedef char*(* ScriptFunctionCall)(void *Global, char *cmd, int argc, char **argv, CGINameValue *Variables)

runs a script, possibly modifying DataValues and ExportValues. Instructions to execute (which aren't handled by the script functions) are return as command in the Commands buffer. Nested ifs and simple logic (and or) are allowed Definition at line 1232 of file cgi.h.

---

Function Documentation

char* ANSItoUTF8 (  char *  s  )

Definition at line 204 of file cgi_util.c. References int16ToUTF8(). Referenced by CGImain(), ReadCGIGetData(), and ReadCGIPostData(). { char* r = malloc(strlen(s)*4+1); /* worst case */ char* c = r; for (; *s; s++) { unsigned x = (*s) & 0x00ff; if ((x & 0x80) == 0) { *c++ = x; continue; } if ((x & 0x60) == 0) //between 128 and 159, remap from the table x = ANSIchars[x - 128]; c += int16ToUTF8(x, c); } *c=0; return r; }

void B64decode (  char *  text  )

Definition at line 257 of file cgi_util.c. References unB64(). { char* read = write; int x, step=0, i[2]; while (*read && *read != '=') { x = unB64(*read); if (x == -1) break; i[step % 2]=x; if (step % 4) *write++ = (char)((i[(step+1)%2] << ((step%4) * 2)) | (i[step%2] >> (6 - ((step%4) * 2)))) & 0x00ff; read++; step = (step + 1) % 8; } *write = 0; }

int B64encode (  char *  in, char *  out )

returns 1 if more data is needed, otherwise 0 at end of string. Someday, this will be useful for ESMTP logins. Definition at line 58 of file cgi_util.c. { unsigned char c1=in[0], c2=0, c3=0; if (c1) c2 = in[1]; if (c2) c3 = in[2]; out[0] = basis_64[c1>>2]; out[1] = basis_64[((c1 & 0x3)<< 4) | ((c2 & 0xF0) >> 4)]; if (c2) { out[2] = basis_64[((c2 & 0xF) << 2) | ((c3 & 0xC0) >>6)]; out[3] = basis_64[c3 & 0x3F]; return c3; } else if (c2) out[2] = basis_64[((c2 & 0xF) << 2) | ((c3 & 0xC0) >>6)]; else out[2] = '='; out[3] = '='; return 0; }

size_t BufferRead (  TextBuffer *  t, char *  out, size_t  length )

Definition at line 452 of file cgi_util.c. References TextBuffer::data, MIN, TextBuffer::Next, and TextBuffer::used. Referenced by CopyBuffer(). { size_t read=0; while( read < length) { size_t x = MIN((length - read), start->used); memcpy(out + read, start->data, x); read += x; if (!start->Next) break; start = (TextBuffer*)start->Next; } return read; }

size_t BufferSize (  TextBuffer *  t  )

Definition at line 430 of file cgi_util.c. References TextBuffer::Next, and TextBuffer::used. Referenced by CopyBuffer(). { size_t length = 0; while (t) { TextBuffer* n = t->Next; length += t->used; t = n; } return length; }

size_t BufferWrite (  TextBuffer *  start, char *  text )

Definition at line 387 of file cgi_util.c. References BufferWriteL(). Referenced by CGImain(), EvaluateArgument(), ListErrors(), and ODBCStart(). { if (text) return BufferWriteL(start,text,strlen(text)); return 0; }

size_t BufferWriteL (  TextBuffer *  start, char *  text, size_t  length )

Definition at line 393 of file cgi_util.c. References TextBuffer::data, TextBuffer::Last, NewBuffer(), TextBuffer::Next, TextBuffer::size, and TextBuffer::used. Referenced by BufferWrite(), DatabaseSaveNewRecord(), and HTMLWriteL(). { size_t current, next; TextBuffer* t = (TextBuffer*)start->Last; if (length == 0) return 0; if (length >= (t->size - t->used)) { current = (t->size - t->used); next = length - current; } else { current = length; next = 0; } memcpy(t->data + t->used,text,current); t->used += current; if (next) { size_t i = 1024u; /* allocate a new block for anything this big */ TextBuffer* tn; if (i < next) i = next; start->Last = NewBuffer(i); t->Next = start->Last; tn = (TextBuffer*)t->Next; memcpy(tn->data, text + current, next); tn->used = next; } return length; }

int CGImain (  char *  argv0, CGINameValue *  Params, EZSSTREAM *  htmlout )

_PAGE stores the page currently being viewed _PAGENEXT is a FIFO of the pages to go to. New pages are appended _PAGEBACK is a LIFO for the "Previous" button. New pages are prepended For both of these lists, the "current" value is taken from the beginning of the comma-delimited values. Definition at line 1116 of file admin.c. References AdminInfo::argv0, Authenticate(), CGI_DEFAULT_HEADER, AdminInfo::Config, DeleteNVP(), Error(), ExpandLocalPath(), GetEnvironment(), GetFieldValue, AdminInfo::htmlout, Index(), Login(), MAXPATH, AdminInfo::Params, ReadINIFileSection(), SendCGIHeader(), SendImage(), SetFieldValue(), ShowAdmin(), ShowPage(), SLASH, strdup3(), stricmp(), stristr(), strnicmp(), UserList(), and WFmain(). { char * directory = GetFieldValue(Params,"DIRECTORY"); char * name = GetFieldValue(Params,"NAME"); char * page = GetFieldValue(Params,"PAGE"); char * image = GetFieldValue(Params,"IMAGE"); char * cookie = GetEnvironment(htmlout,"HTTP_COOKIE");//"USER=newuser; SESSION=; PASSWORD=5678," ; // char fname[MAXPATH]; int ret, r2; AdminInfo Self; Self.argv0 = argv0; Self.Config = 0; Self.Params = Params; Self.htmlout= htmlout; if (strchr(name,'/') || strchr(name,'\\') || stristr(name,".ini") || !stricmp(page,"LOGOUT")) {/* access error -- kick 'em out! */ SendCGIHeader(htmlout,"Set-Cookie: USER=;\nSet-Cookie: SESSION=;\nSet-Cookie: PASSWORD=;\n" CGI_DEFAULT_HEADER); Self.Params = 0; Login(&Self); return 0; } if (!strnicmp(page,"USER",4) && !*directory) directory = "admin"; if (*image) { SendImage(&Self,image); return 0; } ExpandLocalPath(argv0,fname,"admin",SLASH "cgi.ini"); Self.Config= ReadINIFileSection(fname,"admin",0); ret = Authenticate(&Self,directory,&cookie); if (ret == 2 && !*page && !*directory) /* new login, go to the home directory */ directory = GetFieldValue(Params,"DIRECTORY"); if (ret) /* login valid, maybe write a new cookie */ { if (cookie) { char* header = strdup3(cookie, "\n", CGI_DEFAULT_HEADER); SendCGIHeader(htmlout,header); free(header); free(cookie); } else SendCGIHeader(htmlout,0); } else { if (*directory) SetFieldValue(Self.Params,"DIRECTORY",directory); SendCGIHeader(htmlout,0); Login(&Self); goto atexit; } /* must be logged in! */ ret = 0; r2 = 0; if (!stricmp(directory,"admin")) { ret = ShowAdmin(&Self,name,page); r2 = 2; } if (!ret) { ret =ShowPage(&Self,directory,name,page); if (!ret) ret = r2; } switch (ret) { case 0: case 1: Index(&Self,directory); break; case 2: UserList(&Self); case 3: break; default: Error(&Self); } atexit: DeleteNVP(Self.Config); return 0; }

int CheckAllowDeny (  char *  host, char *  allow, char *  deny )

returns true if allow is empty, false if host is blank Remember to configure your server to do name lookups! Referenced by GetSecurityFlags().

int CheckCGISendMethod (  EZSSTREAM *  htmlin  )

0 = POST, 1 = GET, 2 = POST_ERROR, 3=CONSOLE Definition at line 571 of file cgi_cgi.c. References GetEnvironment(), NULLSTR, stricmp(), and strnicmp(). Referenced by main(). { #ifdef WINCGI char c[256],host[256]; if (!*WinCGIFile) return 3; GetPrivateProfileString("CGI","Request Method",NULLSTR,c,256,WinCGIFile); #else char * c; c = GetEnvironment(htmlin,"REQUEST_METHOD"); #endif if (!c) return 3; /* not cgi */ if (c && (stricmp(c,"GET") == 0)) { return 1; } #ifndef WINCGI if (c && (stricmp(c,"POST") == 0)) { c = getenv("CONTENT_TYPE"); if(c && strnicmp(c,"application/x-www-form-urlencoded",33)) { return 2; } return 0; } return 0; #else return 0; #endif }

void ClearToken (  char *  c, char *  code )

removes an element from a comma-delimited string (from EZSurvey's DBF driver) Definition at line 914 of file cgi_util.c. References strmatch(). Referenced by CGImain(). { /* removes an element from a , delimited list */ size_t length=strlen(c); while (length) { if (*c == ',' || *c == ' ') { c++; length--; } else { if (strmatch(c,code,length,", ",1)) { size_t cl = strlen(code); while (c[cl] == ',' || c[cl] == ' ') cl++; /* don't bother to check the length here. */ if (length >= cl) { length -= cl; memmove(c,c+cl,length); memset(c+length,0,cl); /* pad the end with nulls */ } return; } while (length && *c != ',' && *c != ' ') {c++; length--;} } } } /* wasn't that clever? */

int ContainsANSIChars (  char *  s  )

If you write a sentence in MS Word and paste it into IE, IE will not do the form-appropriate character type conversion. Thus, ANSI characters appear in our http data. You can test for this by looking for isolated high-bit characters. Properly encoded UTF-8 text always has two or more adjacent characters with the high bit set. If this post looks like it contains ANSI characters, we'll convert them to utf-8. All the character codes from 127 to 160 are excluded from unicode and the leading character in a UTF08 sequence is always >= 192. We detect ANSI characters by looking for an isolated high-bit character or a character with an invalid value. Unfortunately, this is a field-by- field effect, and so we need to test every field value. Definition at line 105 of file cgi_util.c. Referenced by CGImain(), ReadCGIGetData(), and ReadCGIPostData(). { /* ansi 128 10000000 159 10011111 160 10100000 utf-8 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx 1110xxxx 10xxxxxx 10xxxxxx 110xxxxx 10xxxxxx non-ansi characters: 127, 129, 141, 143, 144, 157, 01111111 10000001 10001101 10001111 10010000 10011101 are also all non-unicode values */ unsigned c = *s++ & 0x00ff; unsigned d; while (c) { if (c & 0x80) { if ((c & 0x60) == 0) return 1; /*ANSI remap range -- no unicode characters*/ d = *s; /*look at the next character */ if ((d & 0xc0) != 0x80) return 1; /* require c & 0x60 == 0x40 || c & 0x70 == 0x60 || c & 0xf8 == 0xf0 */ /*eos | not a utf-8 start sequnce | not a utf-8 sequence */ /* a valid UTF-8 sequence is unlikely inside an ANSI sequence, but not impossible. */ if ((c & 0x60) == 0x40) /* 110xxxxx 10xxxxxx */ { s++; goto next; } d = s[1]; if ((d & 0xc0) != 0x80) return 1; if ((c & 0xf0) == 0xe0) /* 1110xxxx 10xxxxxx 10xxxxxx */ { s += 2; goto next; } d = s[2]; if ((d & 0xc0) != 0x80) return 1; if ((c & 0xf8) == 0xf0) /* 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx */ { s += 3; goto next; } return 1; /* isolated high-bit character */ } next: c = *s++ & 0x00ff; } return 0; }

char* CopyBuffer (  TextBuffer *  t  )

Definition at line 442 of file cgi_util.c. References BufferRead(), BufferSize(), and CGIMALLOC. Referenced by CGImain(), CopyStream(), EvaluateArgument(), JSReport(), LoadUserDataSQL(), SaveData(), and TryODBC(). { size_t l = BufferSize(t); char * x = CGIMALLOC(l+4); BufferRead(t,x,l+4); memset(x+l,0,4); return x; }

CGINameValue* CopyList (  CGINameValue *  header, size_t  extra )

inserts unnamed parameters at the beginning Definition at line 2032 of file cgi_util.c. References ListLength(), CGINameValue::name, NewNVP(), NULL, NULLSTR, strdup(), and CGINameValue::value. Referenced by CopyListJoin(), CopyListN(), FindUserRecordASC(), and ShowFormPage(). { CGINameValue * v; size_t x = ListLength(header); size_t y = 0; v = NewNVP(x+extra); if (header) for (x=0;header[x].name != NULL;x++) { if (header[x].name[0]) { v[y+extra].name = strdup(header[x].name); if (header[y].value) v[y+extra].value = strdup(header[x].value); y++; } } for (x=0;x<extra;x++) { v[x].name = strdup(NULLSTR); v[x].value = strdup(NULLSTR); } return v; }

CGINameValue* CopyListDeep (  CGINameValue *  header, size_t  extra )

includes 'hidden' variables Definition at line 1979 of file cgi_util.c. References CGINameValue::name, NewNVP(), NULL, NULLSTR, strdup(), and CGINameValue::value. Referenced by LoadUserDataSQL(). { CGINameValue * v, *c=header; size_t x=0; while (c) { size_t i=0; while (c[i].name != NULL) {if (c[i].name[0]) x++;i++; } if (!c[i].last) break; c = (CGINameValue*) c[i].value; } v = NewNVP(x+extra); c = header; x=0; while (c) { size_t i=0; while (c[i].name) { if (!c[i].name[0]) {i++; continue;} v[x+extra].name = strdup(c[i].name); if (c[i].value) v[x+extra].value = strdup(c[i].value); i++; x++; } if (!c[i].last) break; c = (CGINameValue*) c[i].value; } for (x=0;x<extra;x++) { v[x].name = strdup(NULLSTR); v[x].value = strdup(NULLSTR); } return v; }

CGINameValue* CopyListJoin (  CGINameValue *  a, CGINameValue *  b, size_t  extra )

Definition at line 1936 of file cgi_util.c. References CopyList(), GetField(), CGINameValue::name, NewNVP(), NULL, strdup(), and CGINameValue::value. Referenced by CGImain(), and EZSCounts(). { CGINameValue * v; size_t x=0; size_t y=0; if (b == NULL) return CopyList(a,extra); while (a[x].name != NULL) x++; while (b[y].name != NULL) { if (GetField(a,b[y].name)== NULL) x++; y++; } v = NewNVP(x+extra); for (x=0; x<extra; x++) { v[x].name = strdup(""); } x=0; while (a[x].name != NULL) { v[x+extra].name = strdup(a[x].name); if (a[x].value) v[x+extra].value = strdup(a[x].value); x++; } y=0; while (b[y].name != NULL) { if (GetField(a,b[y].name)== NULL) { v[x+extra].name = strdup(b[y].name); if (b[y].value) v[x+extra].value = strdup(b[y].value); x++; } y++; } return v; }

CGINameValue* CopyListN (  CGINameValue *  header, size_t  extra,   ... )

write the new values in the first available blank slots. Definition at line 2061 of file cgi_util.c. References CGIFREE, CopyList(), CGINameValue::name, NULL, and strdup(). { va_list ap; CGINameValue * n; size_t x; n = CopyList(header,extra); va_start(ap, extra); for (x=0; extra > 0 && n[x].name != NULL; x++) {char *c; if (n[x].name[0]) continue; c = va_arg(ap, char*); CGIFREE(n[x].name); n[x].name = strdup(c); extra--; } va_end(ap); return n; }

char* CopyStream (  EZSSTREAM *  str  )

copies an in-memory stream to a string. use CGIFREE() when done Definition at line 980 of file cgi_util.c. References CopyBuffer(). { return CopyBuffer(str->t); }

void DatabaseClose (  FILE *  database, CGINameValue *  header )

Frees memory allocated for database and header, if non-null. Definition at line 911 of file cgi_data.c. References CGIFCLOSE, and DeleteNVP(). Referenced by CGImain(), DatabaseSaveIndex(), DatabaseSaveNewRecord(), JSHasRecord(), LoadUserDataASC(), and Login(). { if (database) CGIFCLOSE(database); if (header) DeleteNVP(header); }

int DatabaseDeleteRecord (  char *  database, int  record )

Returns 0 on success. May return error code 15. Definition at line 355 of file cgi_data.c. References CGIFCLOSE, CGIFOPEN, and NULL. {/* can't use CGIFOPEN for writing, since it would truncate the data */ char c; int count = 0; #ifdef __WINCE__ FILE* f = CGIFOPEN(database,"r+"); if (f == NULL) return 7; while (count < record) { if (fread(&c,1,1,f) != 1) {CGIFCLOSE(f); return 15;} if (c == '\n') count ++; } fread(&c,1,1,f); if (c == '\n') return 0; /* can't delete an empty row, sorry */ fseek(f,-1,SEEK_CUR); if (fwrite("#",1,1,f) != 1) {CGIFCLOSE(f); return 15;} CGIFCLOSE(f); #else int f = open(database,O_RDWR); if (f < 0) return 7; while (count < record) { if (read(f,&c,1) != 1) {close(f); return 15;} if (c == '\n') count ++; } read(f,&c,1); if (c == '\n') return 0; /* can't delete an empty row, sorry */ lseek(f,-1,SEEK_CUR); if (write(f,"#",1) != 1) { close(f);return 15;} close(f); #endif /* deletes a row from the database. Minor data loss. */ /* if the first row is named STATUS, everything will work great! */ return 0; }

int DatabaseFFD (  FILE *  database, int  skiprecords )

Definition at line 332 of file cgi_data.c. References DatabaseReset(), and SkipLines(). Referenced by CGImain(). { if (skiprecords < 0) return DatabaseReset(database); if (skiprecords == 0) return 0; return SkipLines(database,skiprecords); }

int DatabaseFindFast (  FILE *  database, CGINameValue *  header, CGINameValue *  query, int *  pos )

Returns 1 on success. Definition at line 72 of file cgi_search.c. References DatabaseReadRecord(), Matches(), and NULL. Referenced by DeleteOldRecords(), and FindUserRecordASC(). { while (1) { int flags = 0; if (pos) *pos = ftell(database); if (DatabaseReadRecord(database, header,&flags) == 0) break; if (flags != 0) continue; /* indicates a deleted record */ if (query == NULL) return 1; if (Matches(header,query)) return 1; } return 0; /* ran out */ }

int DatabaseFindNextRecord (  FILE *  database, CGINameValue *  header, CGINameValue *  cgidata, char *  query )

Returns 1 on success. Query logic is the same as for scripted IF statements. Definition at line 31 of file cgi_search.c. References CGIFREE, DatabaseReadRecord(), EvaluateLogic(), NULL, and strdup(). Referenced by CGImain(), EZSReport(), and JSHasRecord(). { int ret = 0; char * Comparison = strdup(query); while (1) { int flags = 0; if (DatabaseReadRecord(database, header,&flags) == 0) break; if (flags != 0) continue; /* indicates a deleted record */ if (query == NULL) {ret = 1; break;} if (EvaluateLogic(Comparison,header,cgidata)) {ret = 1; break;} strcpy(Comparison,query); } CGIFREE(Comparison); return ret; /* ran out */ }

int DatabaseOpen (  char *  filename, FILE **  database, CGINameValue **  header, int  extra, int  rw )

Definition at line 294 of file cgi_data.c. References _loaddbheader(), CGIFCLOSE, CGIFOPEN, DATABASE, and NULL. Referenced by CGImain(), DatabaseSaveIndex(), DatabaseSaveNewRecord(), EZSReport(), JSHasRecord(), LoadUserDataASC(), and Login(). { /*char newname[MAXPATH]; */ DATABASE * file; int ret; #ifdef __BORLANDC__ file = CGIFOPEN(filename,"rb+"); /* open a buffered file in text mode*/ #else file = CGIFOPEN(filename,rw ? "rb+" : "rb"); /* open a buffered file in text mode*/ #endif if (database) { *database = file; } if (file == NULL) { if (header) *header = 0; ret = 0; } else { CGINameValue * v = _loaddbheader(file,extra); if (header) *header = v; ret = v ? 1 : 0; if (database == NULL) CGIFCLOSE(file); } return ret; }

int DatabaseReadRecord (  FILE *  database, CGINameValue *  v, int *  flags )

When reading data, it uses FixQuotes() to remove leading/trailing quotes and convert doubled quotes to single quotes. The file pointer is advanced to the next record. v comes from DatabaseOpen(). Definition at line 449 of file cgi_data.c. References CGIFREE, CGIMALLOC, FixQuotes(), MAXDATA, CGINameValue::name, NULL, ReadUntilChar(), ResetList(), strdup(), UnfixQuotes(), and CGINameValue::value. Referenced by CGImain(), DatabaseFindFast(), DatabaseFindNextRecord(), LoadUserDataASC(), and PrintRecords(). { int c = 0; char*d = 0; char *data = 0; int any = 0; data = CGIMALLOC(MAXDATA); if (flags) *flags = 0; if (data == NULL) return 0; ResetList(v); /* clear the record, just to be sure */ do { if (v->name == NULL) /* end of header, but not end of line? */ { /* finish off the line and continue */ ReadUntilChar(database,0,0,"\n",0); break; } c = ReadUntilChar(database,data,MAXDATA,"\t\n",'\r'); d = strchr(data,'\r'); if (d != NULL) *d = 0; /* just in case we opened it in binary mode */ if (any == 0 && flags != NULL) { switch (data[0]) { case 0 : *flags = 2; if (*data) if (strstr(data+1,"\"\t")) data[0]='\"'; break; case '#': *flags = 1; if (*data) if (strstr(data+1,"\"\t")) data[0]='\"'; break; default: *flags = 0; } } if (*data) { v->value = strdup(data); if (v->value[0] == '\"') UnfixQuotes(v->value); any = 1; } v++; if (c == EOF ) /* premature end of file */ { CGIFREE(data); if (any) FixQuotes(v); return any; } } while (c != '\n'); CGIFREE(data); if (any) FixQuotes(v); return any; }

int DatabaseReset (  FILE *  database  )

Definition at line 322 of file cgi_data.c. References SkipLines(). Referenced by DatabaseFFD(). { #ifdef __WINCE__ fseek(database,0,SEEK_SET); #else rewind(database); #endif return SkipLines(database,1); }

int DatabaseSaveIndex (  char *  indexfile, CGINameValue *  Params, int  pos )

Definition at line 568 of file cgi_data.c. References CGIFOPEN, DatabaseClose(), DatabaseOpen(), GetFieldValue, and NULL. { FILE * indexdb; CGINameValue * indexheader; int ret = 0; if (DatabaseOpen(indexfile,&indexdb,&indexheader,0,0)) { FILE* ndx; DatabaseClose(indexdb,NULL); ndx = CGIFOPEN(indexfile,"ab"); if (ndx) { size_t i; for ( i=0; indexheader[i].name; i++) { if (!strcmp(indexheader[i].name,"_POS")) { fprintf(ndx,"%d",pos); } else { fprintf(ndx,"\"%s\"\t",GetFieldValue(Params,indexheader[i].name)); } } fprintf(ndx,"\n"); fclose(ndx); } else ret = 9; DatabaseClose(NULL,indexheader); } return ret; }

int DatabaseSaveNewRecord (  char *  filename, CGINameValue *  v, int *  pos )

Uses WriteValue() to save data in a quoted, tab-delimited file. Linefeeds and newlines are removed, but data inside quotes can have tabs, and Excel 97 will read it fine. Definition at line 605 of file cgi_data.c. References BufferWriteL(), DatabaseClose(), DatabaseOpen(), MAXPATH, CGINameValue::name, NewBuffer(), NULLSTR, stricmp(), CGINameValue::value, and WriteValue(). Referenced by SaveDataToASC(). { int x,y; CGINameValue * header; char *c, * lastfieldname; int ret = 0, writecomma; #ifdef XP_WIN HANDLE fh; DWORD written=0; #ifndef VPWSCGI HANDLE Mutex; #endif #else TextBuffer * buf; int fh; static struct flock myLock ; #endif if (!DatabaseOpen(filename,0,&header,0,0)) { /*LogError("\nTried to read a data file, failed: "); LogError(filename);*/ return 2; } /* do this early to minimize the time the file is open if (!DoesFileMatchForm(v, header)) ret = 5; */ /* personal web server is single-threaded, no need for file locks */ #if defined(XP_WIN) && !defined(VPWSCGI) { #ifdef UNICODE wchar_t Mutex_name[MAXPATH+1]; ToWideChar(_filename,strlen(_filename),Mutex_name,MAXPATH); #else char Mutex_name[MAXPATH+1]; strncpy(Mutex_name,filename,MAXPATH); #endif Mutex_name[MAXPATH] = 0; for (x=0; Mutex_name[x]; x++) if (Mutex_name[x] == '\\') Mutex_name[x] = '/'; Mutex = CreateMutex(0,FALSE,Mutex_name); /* wait up to 20 seconds */ if(Mutex) if ( WaitForSingleObject(Mutex,20000) == WAIT_TIMEOUT) { CloseHandle(Mutex); DatabaseClose(0,header); return 23; } } #endif #ifdef XP_WIN /* binary mode, direct write */ #ifdef __WINCE__ { wchar_t fn[MAXPATH+1]; ToWideChar(filename,strlen(filename),fn,MAXPATH+1); fh = CreateFileW(fn,GENERIC_READ|GENERIC_WRITE,FILE_SHARE_READ|FILE_SHARE_WRITE,0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0); } #else fh = CreateFileA(filename,GENERIC_READ|GENERIC_WRITE,FILE_SHARE_READ|FILE_SHARE_WRITE,0,OPEN_EXISTING,FILE_FLAG_SEQUENTIAL_SCAN,0); #endif if (fh == INVALID_HANDLE_VALUE) { #if !defined(VPWSCGI) if (Mutex) CloseHandle(Mutex); #endif x = GetLastError(); return 6; } x = SetFilePointer(fh,0,0,FILE_END); #else fh = open(filename,O_WRONLY|O_APPEND); if (fh == -1) { return 6; } #endif /* Wait for a file lock to become available */ #ifdef XP_POSIX myLock.l_type = F_WRLCK ; myLock.l_start = 0 ; myLock.l_whence = SEEK_END ; myLock.l_len = 0 ; myLock.l_pid = getpid() ; fcntl(fh, F_SETLKW, &myLock); #endif if (pos) { #ifdef XP_WIN *pos = x; #else *pos = lseek(fh,0,SEEK_END); #endif } #ifndef XP_WIN buf = NewBuffer(16384); #endif for(x=0; header[x].name; x++) { /* if two consecutive questions have the same fieldname, append their data together */ if (!header[x].name[0]) continue; /*don't write empty fieldnames */ #ifdef XP_WIN WriteFile(fh,"\"",1,&written,0); #else BufferWriteL(buf,"\"",1); /* write(fh,"\"",1); */ #endif y = 0; lastfieldname = NULLSTR; writecomma = 0; while (v[y].name) { if (v[y].name[0] && stricmp(header[x].name,v[y].name)==0) {/*write this entry*/ c = v[y].value; if ( c && *c ) { if (*lastfieldname && writecomma) #ifdef XP_WIN WriteFile(fh,",",1,&written,0); WriteValue(fh,c); #else BufferWriteL(buf,",",1); WriteValue(buf,c); /* write(fh,",",1); WriteValue(fh,c); */ #endif if (*c) writecomma = 1; } lastfieldname=header[x].name; } y++; } #ifdef XP_WIN WriteFile(fh,"\"\t",2,&written,0); #else BufferWriteL(buf,"\"\t",2); /*write(fh,"\"\t",2); */ #endif } #ifdef XP_WIN WriteFile(fh,"\r\n",2,&written,0); #else BufferWriteL(buf,"\r\n",2); /*write(fh,"\r\n",2);*/ #endif #if defined(XP_WIN) && !defined(VPWSCGI) if (Mutex) { ReleaseMutex(Mutex); CloseHandle(Mutex); } #endif #ifndef XP_WIN c = CopyBuffer(buf); x = lseek(fh,0,SEEK_END); if (pos) *pos = x; write(fh,c,BufferSize(buf)); free(c); DeleteBuffer(buf); #endif #ifdef XP_POSIX myLock.l_type = F_UNLCK; fcntl(fh, F_SETLKW, &myLock); #endif #ifdef XP_WIN CloseHandle(fh); #else close(fh); #endif DatabaseClose(0,header); return ret; }

int DatabaseSearchRecord (  FILE *  database, char *  find, int  casesensitive )

Searches the current record for any instance of a substring. If found, it returns 1 and positions the database pointer to the beginning of the record. If a substring is not found, it advances the pointer to the next record. Definition at line 156 of file cgi_search.c. References CGIFREE, MAXDATA, ReadUntilChar(), and stristr(). { int c; char *name = malloc(MAXDATA); long int fpos; int column=0; fpos = ftell(database); if (fpos < 0) { CGIFREE(name); return -1; } do { c = ReadUntilChar(database,name,MAXDATA,"\t\n",'\r'); if (column++ == 0 && name[0] == '#') { /* skip comment lines and deleted records */ ReadUntilChar(database,name,MAXDATA,"\n",'\r'); CGIFREE(name); return 0; } if (name[0] == 0) continue; /* skip blank fields */ if (casesensitive) { if (strstr(name,querystr)) { fseek(database,fpos,0); CGIFREE(name); return 1; } } else { if (stristr(name,querystr)) { fseek(database,fpos,0); CGIFREE(name); return 1; } } } while (c != '\r' && c != '\n' && c != EOF); CGIFREE(name); return 0; }

void DebugShowNVP (  EZSSTREAM *  htmlout, CGINameValue *  v )

Definition at line 1159 of file cgi_util.c. References HTMLWrite(), CGINameValue::name, and CGINameValue::value. Referenced by CGImain(), Error(), and PrintFinish(). { if (!htmlout) return; while (v->name) { if (*v->name) { HTMLWrite(htmlout,v->name); if (v->value) { HTMLWrite(htmlout,"="); HTMLWrite(htmlout,v->value); } HTMLWrite(htmlout,"\n"); } v++; } }

void DeleteBuffer (  TextBuffer *  t  )

Definition at line 376 of file cgi_util.c. References CGIFREE, TextBuffer::data, and TextBuffer::Next. Referenced by CGImain(), DeleteStream(), EvaluateArgument(), JSReport(), LoadUserDataSQL(), ODBCDisconnect(), SaveData(), and TryODBC(). { while (t) { TextBuffer* n = t->Next; CGIFREE(t->data); CGIFREE(t); t = n; } }

void DeleteNVP (  CGINameValue *  v  )

deletes a list, deallocating strings with CGIFREE() Definition at line 1865 of file cgi_util.c. References CGIFREE, DeleteNVP(), and NULL. Referenced by _loaddbheader(), AdminPrintPage(), Authenticate(), CGImain(), DatabaseClose(), DeleteNVP(), EZSCounts(), FindUserRecordASC(), GetSecurityFlags(), Index(), LoadUserDataSQL(), LogStartup(), main(), ODBCRead(), ProjectUpdate(), ReadCGIPostData(), RunReportF(), ShowFormPage(), SpaceUpdate(), UserAddSpace(), UserList(), UserUpdate(), VerifyPassword(), VerifyUser(), and WFmain(). { int i,l; if (v == NULL) return; for (i=0; v[i].last == 0 ; i++) { if (v[i].name) CGIFREE(v[i].name); if (v[i].value) CGIFREE(v[i].value); l=i; } l++; if (v[l].last && v[l].value) { DeleteNVP((CGINameValue*)(void*)v[l].value); } CGIFREE(v); }

void DeleteStream (  EZSSTREAM *  d  )

Definition at line 972 of file cgi_util.c. References CGIFREE, and DeleteBuffer(). { if (!str) return; if (str->t) DeleteBuffer(str->t); CGIFREE(str); }

double EvaluateAlgebra (  CGINameValue *  v, CGINameValue *  v2, char *  equation )

Recursive mathematical evaluation, with variables stored in v. Nifty, huh? Parentheses are respected, but order of operations is ignored. Since this uses a global value to store the result, you better use it fast or copy it to another memory location. Definition at line 1369 of file cgi_util.c. References CGIFREE, Div(), EATWHITE, EvaluateAlgebraL(), FindEndChar(), GetField2(), IsNumber(), NULL, Power(), strdup(), and strndup(). Referenced by EvaluateAlgebraL(), and EvaluateExpression(). { char * c, *left, *right; double lastmath; size_t length; if (equation == NULL) return 0.0; EATWHITE(equation); if (*equation == '=') equation++; c = strrchr(equation,' '); /* strip trailing blanks */ if (c) *c = 0; /* the number of characters in the first part of the expression */ length = strcspn(equation,"(+-*/^%"); /* if that's all there is, return the replacement value of the field */ if ((length) == strlen(equation)) return strtod(GetField2(v,v2,equation),0); /* copy out the mathematical section of the expression */ right = strdup(equation + length); /* fmath=operator + rvalue */ /* copy out the leading fieldname of the expression */ left = strndup(equation,length); /* fname=lvalue */ /* if it's non-blank, get the replacement value */ if (*left && !IsNumber(left,0)) c = GetField2(v,v2,left); else c = 0; /* else, ignore the first statement */ if (c && *c) lastmath = strtod(c,0); /* lastmath is the accumulated return value */ else lastmath = strtod(left,0); /* the thing on the left was probably a number */ c = right; /* start working on the next part */ while (c && *c) /* iterate through that section */ { double math; char * d, * argument ; /* variables we'll need */ EATWHITE(c); /* duh */ if (*c == '(') /* is it parenthesized? */ argument = c; else argument = c + 1; EATWHITE(argument); if (isdigit(*argument)) /* it's just a number */ math = strtod(argument,&d); else if (*argument != '(') /* evaluate the next variable name */ { length = strcspn(argument,"(+-*/^% \t\r\n"); d = argument+length; math = EvaluateAlgebraL(v,v2,argument,length); } else /* recurse through parentheses */ { int l = FindEndChar(argument,'(',')',0); /* where does the parenthesis end? */ d = argument + l + 1; if (l < 2) break; /* whoops! someone screwed up. Can't have empty parens.*/ math = EvaluateAlgebraL(v,v2,argument+1,l-2); } switch (*c) { case '(': lastmath = math; break; /* only happens when the expression begins with a paren */ case '+': lastmath += math; break; case '-': lastmath -= math; break; case '*': lastmath *= math; break; case '^': lastmath = Power(lastmath,math); break; case '/': lastmath = Div(lastmath,math); break; case '%': lastmath = ((int)(math)) ?((int)lastmath)%(int)(math):0; break; default: break; /* leave while loop */} c = d; } /* of while */ CGIFREE(left); CGIFREE(right); return lastmath; }

int EvaluateComparison (  char *  Comparison, CGINameValue *  v, CGINameValue *  Var2, char **  lastc )

In case of error, lastc = Comparison. EvaluateComparison() may modify the input string. Logical operators are has (searches multivalued variables) gte >= <= lte > gt < lt =~ !~ s (substring) === == (numeric) != eq ne (text) Definition at line 1751 of file cgi_util.c. References DoEvaluateComparison(). Referenced by FormatReplacement(). { return DoEvaluateComparison(Comparison ,v,Var2,lastc,1); }

char* EvaluateExpression (  CGINameValue *  v, CGINameValue *  v2, char *  equation )

if equation is a single word, it looks up the variable from v. Otherwise, returns a new string containing the value returned by EvaluateAlgebra(). Variables beginning with $ are taken from v2. Definition at line 1341 of file cgi_util.c. References CGIMALLOC, EATWHITE, EvaluateAlgebra(), GetField2(), IsNumber(), and strdup(). Referenced by EvaluateArgument(), EvaluateExpressionL(), FormatReplacement(), and JSEval(). { char *c = strrchr(equation,' '); /* strip trailing blanks */ if (c) *c = 0; EATWHITE(equation); /* an equation or a number*/ if (strcspn(equation,"(+-*/^%") != strlen(equation)) { double d = EvaluateAlgebra(v,v2,equation); int i = (int)d; char*t = CGIMALLOC(64); if (i == d) sprintf(t,"%d",i); else sprintf(t,"%f",d); return t; } else if (IsNumber(equation,0)) return strdup(equation); else return strdup(GetField2(v,v2,equation)); }

char* EvaluateExpressionL (  CGINameValue *  v, CGINameValue *  v2, char *  equation, size_t  length )

Definition at line 1307 of file cgi_util.c. References CGIFREE, CGIMALLOC, and EvaluateExpression(). Referenced by DoEvaluateComparison(), and FormatReplacement(). { char * c; char * x = CGIMALLOC(length+1); strncpy(x,equation,length); x[length]=0; c = EvaluateExpression(v,v2,x); CGIFREE(x); return c; }

int EvaluateLogic (  char *  line, CGINameValue *  Variables, CGINameValue *  Var2 )

EvaluateLogic() does not modify the input. Nested parenthesis are allowed. Logical operators are && & || | ^^ ^ (a=b && c gt e || d =! $var2) Definition at line 1535 of file cgi_util.c. References DoEvaluateLogic(). Referenced by DatabaseFindNextRecord(), PrintRecords(), RunReportF(), RunScript(), UpdateCounts(), and UpdateStatistics(). { return DoEvaluateLogic(line,Variables,Var2,0,1); }

void ExpandLocalPath (  char *  argv0, char *  out, char *  in, char *  extension )

out = /path.../InExtension Definition at line 639 of file cgi_util.c. References MAXPATH, and NULL. Referenced by CGImain(), EZSCounts(), EZSReport(), EZSSource(), FileOpen(), GetProjectExtra(), GetRespcount(), GetSecurityFlags(), Index(), JSHasRecord(), JSReport(), LoadUserDataASC(), Login(), LogStartup(), main(), OpenPage(), Project(), ProjectUpdate(), SaveData(), SendImage(), SetRespcount(), ShowFormPage(), Space(), SpaceAdd(), SpaceUpdate(), User(), UserAdd(), UserAddSpace(), UserList(), UserUpdate(), VerifyPassword(), VerifyUser(), and WFmain(). { char * c; #ifdef XP_WIN int i; #endif #ifdef __WINCE__ /* fully qualified path already? */ if (finish[0] == '\\') #elif defined XP_WIN if ((finish[0] == '\\' && finish[1] == '\\') || (finish[0] != 0 && finish[1] == ':')) #else /* unix */ if (finish[0] == '/') #endif { strcpy(fn,finish); if (a != NULL) strcat(fn,a); return; } strcpy(fn,argv0); #ifdef XP_WIN c = strrchr(fn,'\\'); #else c = strrchr(fn,'/'); #endif if (c) { c++; } else { #ifdef __WINCE__ strcpy(fn,serverRootA); #else getcwd(fn, MAXPATH); #ifdef XP_WIN strcat(fn, "\\"); #else strcat(fn, "/"); #endif #endif c = fn + strlen(fn); } strcpy(c,finish); if (a != NULL) strcat(c,a); #ifdef XP_WIN for (i=0; c[i]; i++) if (c[i] == '/') c[i] = '\\'; #endif }

int ExpandUrl (  char *  url  )

Decodes URLs, returns the string length. Definition at line 336 of file cgi_util.c. References x2c(). Referenced by ReadCGIGetData(), and ReadCGIPostData(). { register int x,y; for(x=0,y=0;url[y];++x,++y) { if((url[x] = url[y]) == '%') { url[x] = x2c(&url[y+1]); y+=2; } } url[x] = '\0'; return x; /* return the finished string length */ }

void ExtendNVP (  CGINameValue *  v, size_t  count )

Allows adding 'shadow' variables for JS. Variables are accessible by GetField('name'), but not by index Definition at line 1883 of file cgi_util.c. References ExtendNVP(), CGINameValue::name, NewNVP(), NULL, NULLSTR, strdup(), and CGINameValue::value. Referenced by DoSetValue(), ExtendNVP(), and RunScript(). { size_t i,l; if (v == NULL) return; for (i=0; v[i].last == 0 ; i++) { l=i; } l++; if (v[l].last) { if (v[l].value) ExtendNVP((CGINameValue*)(void*)v[l].value,count); else { CGINameValue* n = NewNVP(count); v[l].value = (char*)(void*)n; for (i=0; i<count; i++) { n[i].name = strdup(NULLSTR); } } } }

FILE* FileOpen (  char *  argv0, char *  file, char *  extension )

runs ExpandLocalPath and opens a file in the program directory Definition at line 562 of file cgi_util.c. References CGIFOPEN, ExpandLocalPath(), and MAXPATH. Referenced by CGImain(), EZSInclude(), ODBCRunScript(), PrintFinish(), SaveData(), ShowForm(), ShowFormPage(), ValidateBack(), ValidatePage(), and WFmain(). { char filename[MAXPATH]; if (!file) return 0; if (!*file) return 0; ExpandLocalPath(argv0,filename,file,extension); return CGIFOPEN(filename,"rb"); }

int FileSize (  char *  filename  )

Definition at line 2098 of file cgi_util.c. Referenced by ReadINIFileSection(), and WriteINIFileSection(). { struct stat StatBuf; if (!fname) return 0; if (!*fname) return 0; if (stat(fname, & StatBuf) != 0) return 0; return StatBuf.st_size; }

char* GetEnvironment (  EZSSTREAM *  htmlout, char *  key )

Definition at line 334 of file cgi_cgi.c. Referenced by CGImain(), CheckCGISendMethod(), JSGetEnv(), LogStartup(), main(), PrintFinish(), ReadCGIGetData(), and SetupCGIData(). { #ifdef WINCGI GetPrivateProfileString("System",key,NULLSTR,WINCGIenv,256,WinCGIFile); return WINCGIenv; #elif defined(FASTCGI) return FCGX_GetParam(key,htmlout->envp); #else return getenv(key); #endif }

CGINameValue* GetField (  CGINameValue *  v, char *  fieldname )

Definition at line 1908 of file cgi_util.c. References CGINameValue::last, NULL, and stricmp(). Referenced by CalcCountSummary(), CGImain(), CheckPass(), CopyListJoin(), DoesFileMatchForm(), FindUserRecordASC(), GetSetting(), LoadUserDataASC(), Login(), LogStartup(), Matches(), RenameField(), SetFieldValue(), ShowFormPage(), UpdateStatistics(), ValidateBack(), and ValidatePage(). { int x,i=0; if (data == NULL) return NULL; for(x=0; data[x].last == 0; x++) { i = x; if (!data[x].name) continue; if (!data[x].name[0] && !fieldname[0]) return &data[x]; if (stricmp(fieldname,data[x].name)==0) return &data[x]; } i++; if (data[i].last && data[i].value) return GetField((CGINameValue*)(void*)data[i].value,fieldname); return NULL; }

int GetSecurityFlags (  char *  argv0, char *  host, char *  database, char *  pwd )

Gets global security for a site Definition at line 84 of file cgi_access.c. References CGI_ALLOW_ADMIN, CGI_ALLOW_ALL, CGI_ALLOW_APPEND, CGI_ALLOW_DELETE, CGI_ALLOW_NONE, CGI_ALLOW_READ, CGI_ALLOW_REPORT, CGI_ALLOW_UPDATE, CGI_ALLOW_WRITE, CheckAllowDeny(), CheckPass(), DeleteNVP(), ExpandLocalPath(), GetFieldValue, LogError(), MAXPATH, NULL, and ReadINIFileSection(). Referenced by CGImain(). { int i = CGI_ALLOW_NONE; /* default settings for a database */ CGINameValue *n; #ifdef CGI_ALLOW CGINameValue *m; #endif int j = strcspn(database,"/.\\*?$|'\"<>~"); if (database[j] != 0 || strlen(database) > 128 || strlen(pwd) > 128) { LogError("\nSecurity breach attempted\tHOST="); LogError(host); return CGI_ALLOW_NONE; } /* stop buffer overflow attacks */ #ifdef CGI_ALLOW { char fn[MAXPATH]; ExpandLocalPath(argv0,fn,"cgi",".ini"); m = ReadINIFileSection(fn,"access",0); /*m = LoadSettings(argv0,"cgi","access");*/ } #endif n = NULL; if (database != NULL) if (database[0] != 0) { char fn[MAXPATH]; ExpandLocalPath(argv0,fn,database,".ini"); n = ReadINIFileSection(fn,"access",0); /*n = LoadSettings(argv0, database, "access");*/ } if (n != NULL) { CheckPass(n,&i,CGI_ALLOW_READ,pwd,"PWDREAD"); CheckPass(n,&i,CGI_ALLOW_UPDATE,pwd,"PWDUPDATE"); CheckPass(n,&i,CGI_ALLOW_APPEND,pwd,"PWDAPPEND"); CheckPass(n,&i,CGI_ALLOW_DELETE,pwd,"PWDDELETE"); CheckPass(n,&i,CGI_ALLOW_WRITE,pwd,"PWDWRITE"); CheckPass(n,&i,CGI_ALLOW_ADMIN,pwd,"PWDADMIN"); CheckPass(n,&i,CGI_ALLOW_REPORT,pwd,"PWDREPORT"); CheckPass(n,&i,CGI_ALLOW_ALL,pwd,"PWD"); } #ifdef CGI_ALLOW if (n != NULL) { if (CheckAllowDeny(host,GetFieldValue(n,"ALLOW"), GetFieldValue(n,"DENY")) ==0) i = CGI_ALLOW_NONE; if (i && m != NULL) if (CheckAllowDeny(host,GetFieldValue(m,"ALLOW"), GetFieldValue(m,"DENY")) ==0) i = CGI_ALLOW_NONE; if (i) CheckAllow(host,n,"ALLOWREAD","DENYREAD",CGI_ALLOW_READ,&i); if (i) CheckAllow(host,n,"ALLOWUPDATE","DENYUPDATE",CGI_ALLOW_UPDATE,&i); if (i) CheckAllow(host,n,"ALLOWAPPEND","DENYAPPEND",CGI_ALLOW_APPEND,&i); if (i) CheckAllow(host,n,"ALLOWWRITE","DENYWRITE",CGI_ALLOW_WRITE,&i); if (i) CheckAllow(host,n,"ALLOWDELETE","DENYDELETE",CGI_ALLOW_DELETE,&i); if (i) CheckAllow(host,n,"ALLOWREPORT","DENYREPORT",CGI_ALLOW_REPORT,&i); if (i) CheckAllow(host,n,"ALLOWADMIN","DENYADMIN",CGI_ALLOW_ADMIN,&i); } /* if access is granted by the password, check domains */ if (m != NULL) { if (i) CheckAllow(host,m,"ALLOWREAD","DENYREAD",CGI_ALLOW_READ,&i); if (i) CheckAllow(host,m,"ALLOWUPDATE","DENYUPDATE",CGI_ALLOW_UPDATE,&i); if (i) CheckAllow(host,m,"ALLOWAPPEND","DENYAPPEND",CGI_ALLOW_APPEND,&i); if (i) CheckAllow(host,m,"ALLOWWRITE","DENYWRITE",CGI_ALLOW_WRITE,&i); if (i) CheckAllow(host,m,"ALLOWDELETE","DENYDELETE",CGI_ALLOW_DELETE,&i); if (i) CheckAllow(host,m,"ALLOWREPORT","DENYREPORT",CGI_ALLOW_REPORT,&i); if (i) CheckAllow(host,m,"ALLOWADMIN","DENYADMIN",CGI_ALLOW_ADMIN,&i); } if (m != NULL) DeleteNVP(m); #endif if (n != NULL) DeleteNVP(n); return i; }

char* GetSetting (  CGINameValue *  section, char *  key, char *  def )

Returns the appropriate settings or the default value Definition at line 705 of file cgi_util.c. References GetField(), NULL, and CGINameValue::value. Referenced by CGImain(), JSSendMail(), LoadUserData(), LoadUserDataASC(), LoadUserDataSQL(), Login(), PrintFinish(), ProjectUpdate(), SaveData(), and SpaceUpdate(). { CGINameValue * n; n = GetField(section, key); if (n == NULL) return def; if (n->value == NULL) return def; if (n->value[0] == 0) return def; return n->value; }

void GetTime (  char *  date, char *  time, int  type )

0 = YYYYMMDD, 1 = MM/DD/YYYY, 2 = DD/MM/YYYY Definition at line 1178 of file cgi_util.c. Referenced by CGImain(), JSTimeDate(), JSTimeStamp(), JSTimeTime(), LogConnection(), and SetupCGIData(). { #ifdef __WINCE__ SYSTEMTIME tb; /* gets time of day */ GetLocalTime(&tb); switch (type) { case 2: if (Date) sprintf(Date,"%2.2d/%2.2d/%4.4d", tb.wMonth,tb.wDay,tb.wYear); if (Time) sprintf(Time,"%2.2d:%2.2d:%2.2d", tb.wHour,tb.wMinute,tb.wSecond); break; case 1: if (Date) sprintf(Date,"%2.2d/%2.2d/%4.4d", tb.wDay,tb.wMonth,tb.wYear); if (Time) sprintf(Time,"%2.2d:%2.2d:%2.2d", tb.wHour,tb.wMinute,tb.wSecond); break; default: if (Date) sprintf(Date,"%4.4d%2.2d%2.2d", tb.wYear,tb.wMonth,tb.wDay); if (Time) sprintf(Time,"%2.2d%2.2d%2.2d", tb.wHour,tb.wMinute,tb.wSecond); } #else time_t timer; struct tm *tb; /* gets time of day */ time(&timer); /* converts date/time to a structure */ tb = localtime(&timer); switch (type) { case 2: if (Date) sprintf(Date,"%2.2d/%2.2d/%4.4d", tb->tm_mday,tb->tm_mon+1,tb->tm_year+1900); if (Time) sprintf(Time,"%2.2d:%2.2d:%2.2d", tb->tm_hour,tb->tm_min,tb->tm_sec); break; case 1: if (Date) sprintf(Date,"%2.2d/%2.2d/%4.4d", tb->tm_mon+1,tb->tm_mday,tb->tm_year+1900); if (Time) sprintf(Time,"%2.2d:%2.2d:%2.2d", tb->tm_hour,tb->tm_min,tb->tm_sec); break; default: if (Date) sprintf(Date,"%4.4d%2.2d%2.2d", tb->tm_year+1900,tb->tm_mon+1,tb->tm_mday); if (Time) sprintf(Time,"%2.2d%2.2d%2.2d", tb->tm_hour,tb->tm_min,tb->tm_sec); } #endif }

int HasToken (  char *  c, char *  code, int *  loc )

searches a comma-delimited string for a specific token Definition at line 908 of file cgi_util.c. References HasTokenX(). Referenced by Authenticate(), CalcCountSummary(), CGImain(), CheckFileName(), CheckPass(), ComparisonEvaluation(), IsValueSelected(), JSRankIndex(), JSShowPage(), RunReportF(), ShowFormPage(), and VerifyPassword(). {return HasTokenX(c,code,loc,1);}

int HasTokenI (  char *  c, char *  code, int *  loc )

Definition at line 911 of file cgi_util.c. References HasTokenX(). Referenced by DoesFileMatchForm(), Login(), ProjectUpdate(), RunScript(), ShowFormPage(), SpaceUpdate(), UserUpdate(), and VerifyUser(). {return HasTokenX(c,code,loc,0);}

void HTMLEscape (  EZSSTREAM *  htmlout, char *  out )

Definition at line 1032 of file cgi_util.c. References HTMLWriteL(), and UTF8ToUCS2C(). Referenced by CGImain(), FormatReplacement(), GenerateForm(), Login(), PrintRecords(), RunReportF(), SecurityError(), ShowFormPage(), and WriteHTMLAttributes(). { size_t k; int c=0; if (!htmlout) return; while (out && out[0]) { k = UTF8ToUCS2C(out,&c); if (k > 1) { char x[32]; sprintf(x,"&#%d;",c); HTMLWriteL(htmlout,x,strlen(x)); out += k; continue; } switch (out[0]) { case '<': HTMLWriteL(htmlout,"&lt;",4); out++; break; case '>': HTMLWriteL(htmlout,"&gt;",4); out++; break; case '&': HTMLWriteL(htmlout,"&amp;",5); out++; break; case '\"': HTMLWriteL(htmlout,"&quot;",6); out++; break; default: HTMLWriteL(htmlout,out,1); out++; } } }

void HTMLPrintf (  EZSSTREAM *  htmlout, char *  formatting,   ... )

With ISAPI, HTMLPrintf uses an 8k fixed buffer. It can overflow. If there's any chance of that happening, use HTMLWrite() instead. Definition at line 987 of file cgi_util.c. References HTMLWrite(), and MAXBUF. Referenced by CGImain(), EZSError(), GenerateForm(), Login(), main(), PrintAdminForm(), PrintFinish(), PrintQueryForm(), PrintRangeLinks(), PrintRecords(), and PrintScriptError(). { if (htmlout) { va_list argptr; va_start(argptr, formatting); #ifdef FASTCGI if (htmlout->strp) { FCGX_VFPrintF(htmlout->strp,formatting,argptr); } else #endif if (htmlout->f) vfprintf(htmlout->f,formatting, argptr); else { char temp[MAXBUF]; vsprintf(temp,formatting,argptr); HTMLWrite(htmlout,temp); } va_end(argptr); } }

void HTMLSend (  EZSSTREAM *  htmlout, TextBuffer *  in )

Definition at line 552 of file cgi_util.c. References TextBuffer::data, HTMLWriteL(), TextBuffer::Next, and TextBuffer::used. { if (!htmlout) return; while (start) { HTMLWriteL(htmlout,start->data,start->used); start = (TextBuffer*)start->Next; } }

void HTMLWrite (  EZSSTREAM *  htmlout, char *  out )

Definition at line 1079 of file cgi_util.c. References HTMLWriteL(). Referenced by CGImain(), DebugShowNVP(), Error(), EZSError(), EZSReport(), FormatReplacement(), GenerateForm(), GenerateReport(), GenerateTableHeader(), HTMLPrintf(), Instructions(), JSPrint(), Login(), main(), PrintAdminForm(), PrintCSS(), PrintFinish(), PrintInstructions(), PrintPassword(), PrintQueryForm(), PrintRangeLinks(), PrintRecords(), ReadUntilWordS2(), RecurseDirectories(), RunReportF(), SaveData(), SecurityError(), SendCGIHeader(), ShowFormPage(), ShowProgramStatus(), WFmain(), and WriteHTMLAttributes(). { if (!data) return; if (!htmlout) return; HTMLWriteL(htmlout,data,strlen(data)); }

int HTMLWriteFile (  EZSSTREAM *  htmlout, char *  filename )

Definition at line 1146 of file cgi_util.c. References CGIFCLOSE, CGIFOPEN, and HTMLWriteFileF(). Referenced by CGImain(), EZSSource(), main(), SendImage(), and ShowFormPage(). { FILE * handle; if (!htmlout) return 0; handle = CGIFOPEN(filename,"rb"); if (!handle) return 0; HTMLWriteFileF(htmlout,handle); CGIFCLOSE(handle); return 1; }

void HTMLWriteFileF (  EZSSTREAM *  htmlout, FILE *  f )

Definition at line 1133 of file cgi_util.c. References HTMLWriteL(), and MAXPATH. Referenced by HTMLWriteFile(), and WFmain(). { char temp[MAXPATH]; size_t length; if (!htmlout) return; length = fread(temp,1,sizeof(temp),handle); while(length>0) { HTMLWriteL(htmlout,temp,length); length = fread(temp,1,sizeof(temp),handle); } }

void HTMLWriteL (  EZSSTREAM *  htmlout, char *  out, size_t  length )

Definition at line 1088 of file cgi_util.c. References BufferWriteL(), MAXPATH, and NULL. Referenced by CGImain(), HTMLEscape(), HTMLSend(), HTMLWrite(), HTMLWriteFileF(), PrintScriptError(), RecurseDirectories(), and RunReportF(). { if (length==0||data==NULL||htmlout==NULL) return; #if defined(FASTCGI) if (htmlout->strp) FCGX_PutStr(data,length,htmlout->strp); else #endif #ifdef ISAPICGI if (htmlout->ecb !=NULL) { int c = length + htmlout->pos; if (c < MAXPATH) { memcpy(htmlout->buffer + htmlout->pos,data,length); htmlout->pos = c; return; } c = MAXPATH - htmlout->pos; if (c) memcpy(htmlout->buffer + htmlout->pos, data, c); htmlout->pos = MAXPATH; htmlout->ecb->WriteClient(htmlout->ecb->ConnID, (PVOID)htmlout->buffer,&htmlout->pos,0); htmlout->pos = length - c; /*cache or send? */ if (htmlout->pos >= MAXPATH) { htmlout->ecb->WriteClient(htmlout->ecb->ConnID, (PVOID) (data + c), &htmlout->pos,0); htmlout->pos = 0; return; } memcpy(htmlout->buffer,data+c,htmlout->pos); } else #endif if (htmlout->f !=NULL) fwrite(data,1,length,htmlout->f); else if (htmlout->t !=NULL) BufferWriteL(htmlout->t,data,length); }

int IsNumber (  char *  value, size_t  len )

Definition at line 349 of file cgi_util.c. Referenced by DoEvaluateComparison(), EvaluateAlgebra(), EvaluateArgument(), EvaluateExpression(), JSToNumber(), and RunScript(). { /* -.3e5 */ /* int i=0; if (c[0] == '+' || c[0]=='-') i++; if (c[i] == '.') i++; if (c[i] >= '0' && c[i] <= '9') return 1;*/ char *x; size_t i; if (!c) return 0; if (!*c) return 0; strtod(c,&x); i = x - c; return ((length == 0 && *x == 0) || (length != 0 && length == i)); }

int IsValueSelected (  CGINameValue *  data, char *  fieldname, char *  value )

Definition at line 620 of file cgi_html.c. References HasToken(), CGINameValue::name, NULL, and stricmp(). Referenced by RunReportF(). {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; }

char* JSEval (  ScriptEnvironment *  Global, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 338 of file cgi_js.c. References EvaluateExpression(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { if (!argc) return 0; return EvaluateExpression(Params,0,argv[0]); }

char* JSGetEnv (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 215 of file cgi_js.c. References GetEnvironment(), ScriptEnvironment::htmlout, and strdup(). Referenced by CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), and ValidatePage(). { #ifndef VPWSCGI char* c; if (argc == 0) return 0; c = GetEnvironment(Env->htmlout,argv[0]); if (c) return strdup(c); #endif return 0; }

char* JSHasRecord (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 290 of file cgi_js.c. References ScriptEnvironment::argv0, DatabaseClose(), DatabaseFindNextRecord(), DatabaseOpen(), ExpandLocalPath(), MAXPATH, and strdup(). Referenced by CGImain(), RunReportF(), and WFmain(). { FILE* database; CGINameValue* header; char dbfile[MAXPATH]; int r = 0; if (argc < 2) return 0; if (strlen(argv[0]) > MAXPATH) return 0; dbfile[0] =0; if (Env->argv0) if (strlen(argv[0]) + strlen(Env->argv0) < MAXPATH ) ExpandLocalPath(Env->argv0,dbfile,argv[0],0); if (DatabaseOpen(*dbfile?dbfile:argv[0],&database,&header,0,0)) { r = DatabaseFindNextRecord(database,header,Params,argv[1]); DatabaseClose(database,header); } return strdup(r?"1":"0"); }

char* JSHTMLEscape (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

in: jack & jill have < 2 broken heads out: jack & jill have < 2 broken heads Definition at line 236 of file cgi_js.c. References CGIMALLOC, NULL, and UTF8ToUCS2C(). Referenced by CGImain(), RunReportF(), and WFmain(). { int c=0; size_t i,j,k=1; char *in; char *out; j=0; if (argc != 1) return NULL; in = argv[0]; for (i=0; in[i]; i++) { j++; //2 chars, 11 bits. max 4095 -> 4 + 3 = 7 //3 chars, 16 bits. max 65535 -> 5 + 3 = 8 //4 chars, 23 bits. max 16777215 -> 8 + 3 = 11 if (in[i] & 0x80) j+= 3; else if (strchr("<>&\"",in[i])) j += 5; } out = CGIMALLOC(strlen(in) + j); j = 0; for (i=0; in[i]; ) { k = UTF8ToUCS2C(in+i,&c); if (k > 1) { j += sprintf(out+j,"&#%d;",c); i += k; } else { switch(in[i]) { case '<': memcpy(out+j,"&lt;",4); j+=4; break; case '>': memcpy(out+j,"&gt;",4); j+=4; break; case '&': memcpy(out+j,"&amp;",5); j+=5; break; case '\"': memcpy(out+j,"&quot;",6); j+=6; break; default: out[j++] = in[i]; } i++; } } return out; }

char* JSIndexOf (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

indexOf(string,substring,startpos,reverse) Definition at line 399 of file cgi_js.c. References strdup(), and stristr(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { char* str; char* sub; int start=0; int dir=0; int length; char*c=0; char temp[32]; if (argc < 2) return strdup("-1"); str = argv[0]; sub = argv[1]; if (argc > 2) start = atoi(argv[2]); if (argc > 3) dir = atoi(argv[3]); length = strlen(str); if (start < 0) start = length - start; if (start < 0) start = 0; if (sub && start < length) { if (dir) { int i = length - strlen(sub); while (i > start && c == 0) { c = (char*)stristr(str + i,sub); i--; } } if (!c) c = (char*)stristr(str + start,sub); } if (!c) return strdup("-1"); start = c - str; sprintf(temp,"%d",start); return strdup(temp); }

char* JSPrint (  ScriptEnvironment *  Global, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 438 of file cgi_js.c. References ScriptEnvironment::htmlout, HTMLWrite(), NULL, and stristr(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { int i; for (i=0; i<argc; i++) { HTMLWrite(Env->htmlout,argv[i]); } if (stristr(cmd,"ln")) HTMLWrite(Env->htmlout,"\r\n"); return NULL; }

char* JSRandom (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 319 of file cgi_js.c. References CGIMALLOC, and random_seed. Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { unsigned int x; char* result = (char*)CGIMALLOC(32); #ifdef __WINCE__ random_seed += GetTickCount(); #else random_seed += time(0); #endif if (argc == 0) x = random_seed; else { x = atoi(argv[0]); if (!x ) x = random_seed; else x = random_seed % x; } sprintf(result,"%d",x); return result; }

char* JSReport (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 173 of file cgi_js.c. References ScriptEnvironment::argv0, CGIFCLOSE, CGIFOPEN, ScriptEnvironment::config, CopyBuffer(), DeleteBuffer(), ExpandLocalPath(), MAXPATH, NewBuffer(), NULL, and RunReport(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { EZSSTREAM result; int i; char*c = 0; if (!Env->config || !argc) return 0; memset(&result,0,sizeof(result)); result.t = NewBuffer(1024); for (i=0; i< argc; i ++) { if (*argv[i]) { char filename[MAXPATH]; FILE* script = 0; if (Env->argv0) if (strlen(argv[i]) + strlen(Env->argv0) < MAXPATH ) { ExpandLocalPath(Env->argv0,filename,argv[i],0); script = CGIFOPEN(filename,"rb"); } if (!script) script = CGIFOPEN(argv[i],"rb"); if (script) { RunReport(Env->argv0,&result,script,Params,NULL,NULL,0,NULL); CGIFCLOSE(script); } } } if (argc) { c = CopyBuffer(result.t); } DeleteBuffer(result.t); return c; }

char* JSstrlen (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

length(string) Definition at line 363 of file cgi_js.c. References strdup(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { char temp[32]; sprintf(temp,"%d",argc ? strlen(argv[0]) : 0); return strdup(temp); }

char* JSsubstr (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

substr(string,start,length) Definition at line 370 of file cgi_js.c. References NULL, strdup(), and strndup(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { char* str; int start=0; int delta=65535; int length; int end; if (!argc) return NULL; str = argv[0]; if (argc > 1) start = atoi(argv[1]); if (argc > 2) delta= atoi(argv[2]); length = strlen(str); if (start < 0) start = length + start; if (start < 0) start = 0; end = start + delta; if (end == start || start >= length) return strdup(""); if (end >= length) end = length; length = abs(start - end); if (end < start) start = end; return strndup(str + start, length); }

char* JSTimeStamp (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 283 of file cgi_js.c. References GetTime(), and strdup(). Referenced by CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { char datetime[16]; GetTime(datetime,datetime+8,0); return strdup(datetime); }

char* JStoFixed (  ScriptEnvironment *  Global, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 344 of file cgi_js.c. References NULL, and strdup(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { double d; int x; char format[32]; char result[128]; if (argc == 0) return 0; d = strtod(argv[0],NULL); if (argc == 2) x = atoi(argv[1]); else x = 0; sprintf(format,"%%.%df",x); sprintf(result,format,d); return strdup(result); }

char* JSToNumber (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 226 of file cgi_js.c. References IsNumber(), and strdup(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { if (argc == 0) return 0; if (!IsNumber(argv[0],0)) return 0; return strdup(argv[0]); }

size_t ListLength (  CGINameValue *  header  )

Definition at line 2019 of file cgi_util.c. References CGINameValue::name, and NULL. Referenced by CopyList(), and ProjectUpdate(). { size_t x = 0; if (header) while (header->name != NULL) { if (header->name[0]) x++; header++; } return x; }

void LogConnection (  char *  program, char *  host )

Definition at line 64 of file cgi_cgi.c. References GetTime(), and LogMessage(). Referenced by main(). { char Date[14],Time[14]; GetTime(Date,Time,0); LogMessage("Run\tPROGRAM="); LogMessage(program); LogMessage(",HOST="); LogMessage(host); LogMessage(",DATE="); LogMessage(Date); LogMessage(",TIME="); LogMessage(Time); LogMessage("\n"); }

void LogError (  char *  c  )

Definition at line 19 of file cgi_console.c. References CGIFCLOSE, and CGIFOPEN. Referenced by CGImain(), DoesFileMatchForm(), EZSReport(), GetSecurityFlags(), ListErrors(), LoadUserDataSQL(), main(), ODBCConnect(), ODBCStart(), PrintFinish(), ShowFormPage(), and TryODBC(). {}

void LogMessage (  char *  c  )

Definition at line 69 of file cgi_log.c. References CGIFCLOSE, CGIFOPEN, and CGILogLevel. Referenced by CGImain(), LogConnection(), main(), and PrintFinish(). { FILE * h; if (CGILogLevel < 1) return; h = CGIFOPEN("logmsg.txt","at"); if (h) { if (c) fputs(c,h); else fputs("*NULL*",h); CGIFCLOSE(h); } }

void LogStartup (  EZSSTREAM *  htmlout, char *  argv0 )

Definition at line 119 of file cgi_log.c. References CGIFOPEN, CGIHeaders, CGILogLevel, DeleteNVP(), ExpandLocalPath(), GetEnvironment(), GetField(), GetFieldValue, MAXPATH, NULL, ReadINIFileSection(), and SetLoggingLevel(). Referenced by main(). { FILE * h; int i; char fn[MAXPATH]; CGINameValue* m; ExpandLocalPath(argv0,fn,"cgi.ini",""); m = ReadINIFileSection(fn, "admin",0); if (m != NULL) { if (GetField(m,"LOGLEVEL")) { SetLoggingLevel(atoi(GetFieldValue(m,"LOGLEVEL"))); } DeleteNVP(m); } if (CGILogLevel < 3) return; h = CGIFOPEN("logenv.txt","at"); if (!h) return; fprintf(h,"Starting %s\n",argv0); fprintf(h,"Environment:\n"); for(i=0; CGIHeaders[i]; i++) { char* y = GetEnvironment(htmlout,CGIHeaders[i]); if (y) fprintf(h,"%s=%s\n",CGIHeaders[i],y); } fprintf(h,"\n\n"); CGIFCLOSE(h); }

void LogTrx (  CGINameValue *  data  )

Definition at line 154 of file cgi_log.c. References CGIFCLOSE, CGIFOPEN, and CGILogLevel. Referenced by main(). { int i; FILE * h; if (CGILogLevel < 2) return; h = CGIFOPEN("logtrx.txt","at"); if (h) { for (i=0;data[i].name;i++) { if (!data[i].name[0]) continue; fprintf(h,"%s=%s\n",data[i].name,data[i].value); } fputs("\n",h); CGIFCLOSE(h); } }

TextBuffer* NewBuffer (  int  length  )

Definition at line 364 of file cgi_util.c. References CGIMALLOC, TextBuffer::data, TextBuffer::Last, TextBuffer::Next, NULL, TextBuffer::size, and TextBuffer::used. Referenced by BufferWriteL(), CGImain(), DatabaseSaveNewRecord(), EvaluateArgument(), JSReport(), LoadUserDataSQL(), NewStream(), ODBCConnect(), SaveData(), and TryODBC(). { TextBuffer* t = CGIMALLOC(sizeof(TextBuffer)); t->data = CGIMALLOC(length+1); t->data[length] = 0; t->size = length; t->used = 0; t->Next = NULL; t->Last = t; return t; }

CGINameValue* NewNVP (  size_t  count  )

Creates anew name-value-pair list, with an extra entry as a null terminator, which can also be used for extending the list. Definition at line 1850 of file cgi_util.c. References CGIMALLOC, CGINameValue::last, CGINameValue::name, and CGINameValue::value. Referenced by _loaddbheader(), CGImain(), CopyList(), CopyListDeep(), CopyListJoin(), ExtendNVP(), GetTotal(), main(), ODBCRead(), ReadCGIPostData(), ReadHTMLAttributes(), ReadPairedString(), and ReadPairedValues(). { CGINameValue * v; size_t i; v = (CGINameValue*) CGIMALLOC((count + 1) * sizeof(CGINameValue)); for (i = 0; i <= count; i++) { v[i].name = 0; v[i].value = 0; v[i].last = 0; } v[count].last = 1; return v; }

EZSSTREAM* NewStream (  int  size  )

Creates an in-memory stream Definition at line 952 of file cgi_util.c. References CGIMALLOC, NewBuffer(), and STREAM. { #if defined(FASTCGI) STREAM str = (STREAM)CGIMALLOC(sizeof(FCGISTREAM)); str->strp=0; #else STREAM str = (STREAM)CGIMALLOC(sizeof(EZSSTREAM)); str->f=0; #endif #ifdef __WINCE__ str->s = 0; #endif #ifdef ISAPICGI str->ecb = 0; str->pos = 0; #endif str->t = NewBuffer(size); return str; }

int ODBCCommit (  SQLDB *  database  )

Definition at line 218 of file cgi_odbc.c. References ODBCSession::hdbc. { ODBCSession* database = (ODBCSession*)db; if (!database) return 0; return (SQL_SUCCEEDED(SQLEndTran(SQL_HANDLE_DBC,database->hdbc,SQL_COMMIT))); }

SQLDB* ODBCConnect (  char *  service, char *  uid, char *  pwd, TextBuffer *  errors )

Free errors if non-zero Definition at line 125 of file cgi_odbc.c. References CGIFREE, CGIMALLOC, ODBCSession::debug, ODBCSession::ErrorMessage, ODBCSession::hdbc, ODBCSession::henv, ListErrors(), LogError(), and NewBuffer(). Referenced by LoadUserDataSQL(). { int r; ODBCSession * database = (ODBCSession*)CGIMALLOC(sizeof(ODBCSession)); database->debug = 0; if (strlen(service) > 256 || strlen(uid) > 256 || strlen(pwd) > 256) return 0; if (service[0] == '?') { database->debug=1; service++; } r = SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &database->henv); if (!SQL_SUCCEEDED(r)) { CGIFREE(database); LogError("\nCouldn't allocate a SQL environment handle"); return 0; } r = SQLSetEnvAttr(database->henv, SQL_ATTR_ODBC_VERSION,(void*)SQL_OV_ODBC3,0); if (!SQL_SUCCEEDED(r)||database->debug) { ListErrors(errors,database->henv,SQL_HANDLE_ENV); } if (!SQL_SUCCEEDED(r)) { SQLFreeHandle(SQL_HANDLE_ENV, database->henv); CGIFREE(database); return 0; } r = SQLAllocHandle(SQL_HANDLE_DBC,database->henv,&database->hdbc); if (!SQL_SUCCEEDED(r)||database->debug) { ListErrors(errors,database->henv,SQL_HANDLE_ENV); } if (!SQL_SUCCEEDED(r)) { LogError("\nCouldn't allocate a SQL database handle"); SQLFreeHandle(SQL_HANDLE_ENV, database->henv); CGIFREE(database); return 0; } if (strchr(service,'=')) { SQLCHAR outConn[1024]; SQLSMALLINT l = 1024; r = SQLDriverConnect(database->hdbc,0,(SQLCHAR*)service, SQL_NTS, outConn,l,&l,SQL_DRIVER_NOPROMPT); } else { r = SQLConnect(database->hdbc, (SQLCHAR*)service, SQL_NTS, (SQLCHAR*)uid, SQL_NTS, (SQLCHAR*)pwd, SQL_NTS); } if (!SQL_SUCCEEDED(r)||database->debug) { ListErrors(errors,database->hdbc,SQL_HANDLE_DBC); ListErrors(errors,database->henv,SQL_HANDLE_ENV); } if (!SQL_SUCCEEDED(r)) { SQLFreeHandle(SQL_HANDLE_DBC, database->hdbc); SQLFreeHandle(SQL_HANDLE_ENV, database->henv); CGIFREE(database); return 0; } database->ErrorMessage = NewBuffer(1024); return (SQLDB*)database; }

int ODBCDisconnect (  SQLDB *  database  )

Definition at line 204 of file cgi_odbc.c. References CGIFREE, DeleteBuffer(), ODBCSession::ErrorMessage, ODBCSession::hdbc, and ODBCSession::henv. Referenced by LoadUserDataSQL(). { ODBCSession* database = (ODBCSession*)db; if (!database) return 0; SQLDisconnect(database->hdbc); SQLFreeHandle(SQL_HANDLE_DBC, database->hdbc); SQLFreeHandle(SQL_HANDLE_ENV, database->henv); DeleteBuffer(database->ErrorMessage); CGIFREE(database); return 0; }

int ODBCExec (  SQLDB *  database, char *  command, int *  numModified )

Definition at line 285 of file cgi_odbc.c. References ODBCFinish(), and ODBCStart(). Referenced by TryODBC(). { ODBCSession* database = (ODBCSession*)db; SQLHSTMT st; int ret; if (!database) return 0; ret = ODBCStart(database,command,&st); if (ret) { SQLFreeHandle(SQL_HANDLE_STMT, (SQLHSTMT)st); return ret; } ODBCFinish(st,modified); return 0; }

int ODBCFinish (  void *  handle, int *  numModified )

Definition at line 271 of file cgi_odbc.c. Referenced by ODBCExec(), and ODBCQuery(). { if (modified) { SQLINTEGER i=0; SQLRowCount((SQLHSTMT)st,&i); *modified = i; } if (!SQL_SUCCEEDED(SQLFreeHandle(SQL_HANDLE_STMT, (SQLHSTMT)st))) return 54; return 0; }

CGINameValue* ODBCQuery (  SQLDB *  database, char *  command, int *  numModified )

Definition at line 305 of file cgi_odbc.c. References NULL, ODBCFinish(), ODBCRead(), and ODBCSelect(). Referenced by LoadUserDataSQL(). { void* handle=0; CGINameValue* ret; if (ODBCSelect(database,command,&handle)) return NULL; ret = ODBCRead(handle); ODBCFinish(handle,modified); return ret; }

CGINameValue* ODBCRead (  void *  handle  )

Definition at line 326 of file cgi_odbc.c. References CGIMALLOC, DeleteNVP(), CGINameValue::name, NewNVP(), NULL, strndup(), and CGINameValue::value. Referenced by ODBCQuery(). { SQLSMALLINT columnCount = 0; CGINameValue * data; SQLSMALLINT i; int ret = SQLNumResultCols((SQLHSTMT)st,&columnCount); if (columnCount ==0) return NULL; data = NewNVP(columnCount); /* bind*/ for (i=1; i<= columnCount; i++) { char szTitle[256]; long size=0; szTitle[0]=0; ret = SQLColAttribute((SQLHSTMT)st,i,SQL_DESC_LENGTH, NULL,0,NULL,&size); if (!SQL_SUCCEEDED(ret) || size <= 0) size = 128; SQLColAttribute((SQLHSTMT)st,i,SQL_DESC_NAME,szTitle, sizeof(szTitle),NULL,NULL); data[i-1].name = strndup(szTitle,sizeof(szTitle)); data[i-1].value = (char*)CGIMALLOC(size+1); memset(data[i-1].value,0,size+1); SQLBindCol((SQLHSTMT)st,i,SQL_C_CHAR,(SQLPOINTER) data[i-1].value, (size + 1) * sizeof(char),&size); } /* end bind */ ret = SQLFetch((SQLHSTMT)st); if (SQL_SUCCEEDED(ret)) return data; DeleteNVP(data); return NULL; }

int ODBCSelect (  SQLDB *  database, char *  command, void **  handle )

Definition at line 316 of file cgi_odbc.c. References ODBCStart(). Referenced by ODBCQuery(). { ODBCSession* database = (ODBCSession*)db; int ret; if (!database) return 0; ret= ODBCStart(database,command,st); return ret; }

char* PopList (  CGINameValue *  list, char *  key, int  end )

This version handles null-entry lists gracefully. It assumes that all entries in the CGINameValue were created with strdup() or strndup(), which pads the text buffers with at least two extra bytes. Definition at line 840 of file cgi_util.c. References GetFieldValue, NULL, and PopList2(). Referenced by CGImain(). { char* x = GetFieldValue(list,key); char* p; size_t i = 0; /* remove leading delimiters */ while (x[i] == ',' || x[i] == ' ') i++; if (i) memmove(x,x+i,strlen(x+i) + 1); p = PopList2(x,end); /* remove trailing delimiters */ i = strlen(x); while (i && (x[i-1] == ',' || x[i-1] == ' ')) i--; x[i]=0; if (p != NULL) return p; else { size_t l = strlen(x); memmove(x+1,x,strlen(x)); x[l+1] = 0; x[0]=0; return x+1; } }

char* PopList2 (  char *  list, int  end )

Removes the first entry from a comma-delimited list, shifts the list, and rewrites the remove entry to the unused space at the end. Returns a pointer to the popped value, that does not need to be CGIFREEd. Definition at line 809 of file cgi_util.c. References CGIFREE, CGIMALLOC, and NULL. Referenced by CGImain(), and PopList(). { char* r; size_t l,m; char* x = list; l=0; if (end) while (x[l] && x[l] != end) l++; else while (x[l] && x[l] != ',' && x[l] != ' ') l++; if (!x[l]) return NULL; /* not found */ x = list + l + 1; m = strlen(x); r = CGIMALLOC(l+1); memcpy(r,list,l); r[l]=0; memmove(list,x,m); list[m]=0; x = list + m + 1; /* tail of the new list */ memcpy(x,r,l); x[l]=0; CGIFREE(r); return x; }

int PrintScriptError (  EZSSTREAM *  htmlout, ScriptEnvironment *  Env, FILE *  script, int  errcode )

Definition at line 636 of file cgi_html.c. References ScriptEnvironment::curpos, HTMLPrintf(), HTMLWriteL(), ScriptEnvironment::lastLine, and NULL. Referenced by CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), and ValidatePage(). { 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; }

void qpdecode (  char *  text  )

CGINameValue* ReadCGIGetData (  EZSSTREAM *  htmlin, int  extra )

Definition at line 376 of file cgi_cgi.c. References ANSItoUTF8(), CGIFREE, CGIMALLOC, ContainsANSIChars(), ExpandUrl(), GetEnvironment(), NULLSTR, ReadPairedString(), SetupCGIData(), swapchars(), Translate(), UTF7toUTF8(), and CGINameValue::value. Referenced by main(). { char * c; CGINameValue* data; int x; #ifdef WINCGI c = CGIMALLOC(65535); GetPrivateProfileString("CGI","Query String",NULLSTR,c,65535,WinCGIFile); #else c = GetEnvironment(htmlin,"QUERY_STRING"); #endif if (c && *c) { #ifdef EBCDIC Translate(c,ascii2ebcdic); #endif /*2005 this is really old code, before web browsers were standardized. if (!strchr(c,'&')) data = ReadPairedString(c,'/',3+extra); else */ data = ReadPairedString(c,'&',3+extra); } else { #ifdef WINCGI GetPrivateProfileString("CGI","Logical Path",NULLSTR,c,65535,WinCGIFile); #else c = GetEnvironment(htmlin,"PATH_INFO"); #endif if (c &&*c) { #ifdef EBCDIC Translate(c,ascii2ebcdic); #endif if (*c=='/') c++; if (!strchr(c,'&')) data = ReadPairedString(c,'/',3+extra); else data = ReadPairedString(c,'&',3+extra); } else return 0; } if (!data) return 0; SetupCGIData(htmlin,data); #ifndef WINCGI for (x = 3+extra; data[x].name; x++) { swapchars(data[x].name,'+',' '); /*plus to space*/ swapchars(data[x].value,'+',' '); /*plus to space*/ ExpandUrl(data[x].name); ExpandUrl(data[x].value); if (strstr(data[x].name,"+AAA")) { UTF7toUTF8(data[x].name); UTF7toUTF8(data[x].value); } else if (ContainsANSIChars(data[x].value)) { char* c = data[x].value; data[x].value = ANSItoUTF8(c); free(c); } swapchars(data[x].name,'\t',' '); /*remove tabs*/ swapchars(data[x].name,'\r',' '); /*remove carriage-returns*/ swapchars(data[x].name,'\n',' '); /*remove linefeeds*/ swapchars(data[x].value,'\t',' '); /*remove tabs*/ swapchars(data[x].value,'\r',' '); /*remove carriage-returns*/ swapchars(data[x].value,'\n',' '); /*remove linefeeds*/ } #endif #ifdef WINCGI CGIFREE(c); #endif return data; }

CGINameValue* ReadCGIPostData (  EZSSTREAM *  htmlin, int  extra )

Definition at line 466 of file cgi_cgi.c. References ANSItoUTF8(), CGIFREE, ContainsANSIChars(), DeleteNVP(), ExpandUrl(), fmakeword(), MAX_ENTRIES, CGINameValue::name, NewNVP(), NULL, NULLSTR, SetupCGIData(), strdup(), swapchars(), Translate(), UTF7toUTF8(), and CGINameValue::value. Referenced by main(). {int cl; register int x; char * c; int maxsize = MAX_ENTRIES + reserve; int growcount = 0; /* that should do the trick! */ #ifdef EBCDIC char stopstr[2]; #endif CGINameValue* data; #ifdef EBCDIC stopstr[0]='&'; stopstr[1]=0; Translate(stopstr,ebcdic2ascii); #endif c = getenv("CONTENT_LENGTH"); cl = c ? atoi(c) : 0; if (cl == 0) return NULL; if (!htmlin->f) return NULL; /* Read the host information */ data = NewNVP(maxsize); for (x=0; x<reserve; x++) { data[x].name=strdup(NULLSTR); data[x].value=strdup(NULLSTR); } SetupCGIData(htmlin,data); x=reserve; while((cl > 0) && (!feof(htmlin->f)) && (growcount < 64 )) { /* Convert the CGI data back to ASCII, read from stdin */ if (x == maxsize) /* running out of space? grow the list */ { CGINameValue* newdata = NewNVP(maxsize+ MAX_ENTRIES); if (newdata == NULL) return data; memcpy(newdata,data,maxsize * sizeof(CGINameValue)); CGIFREE(data); data = newdata; maxsize += MAX_ENTRIES; growcount++; } #ifdef EBCDIC /* Translate binary data to EBCDIC text before doing anything. */ c = fmakeword(htmlin,stopstr[0],&cl); #else c = fmakeword(htmlin,'&',&cl); #endif #ifdef EBCDIC Translate(c,ascii2ebcdic); #endif if (!c) {DeleteNVP(data); return NULL;} swapchars(c,'+',' '); /*plus to space*/ ExpandUrl(c); /*converts %xx to characters*/ /* swapchars(c,'\t',' '); remove tabs*/ data[x].name = c; c = strchr(c,'='); if ((c) && (*c)) { *c++ = 0; data[x].value = strdup(c); } else { data[x].value = strdup(NULLSTR); } if (strstr(data[x].name,"+AAA")) { UTF7toUTF8(data[x].name); UTF7toUTF8(data[x].value); } /*application/x-www-form-urlencoded*/ else if (ContainsANSIChars(data[x].value)) { char* c = data[x].value; data[x].value = ANSItoUTF8(c); free(c); } swapchars(data[x].name,'\t',' '); /*remove tabs*/ swapchars(data[x].name,'\r',' '); /*remove carriage-returns*/ swapchars(data[x].name,'\n',' '); /*remove linefeeds*/ swapchars(data[x].value,'\t',' '); /*remove tabs*/ swapchars(data[x].value,'\r',' '); /*remove carriage-returns*/ swapchars(data[x].value,'\n',' '); /*remove linefeeds*/ /*not all compilers reliably increment x after for loops*/ x++; } return data; } /* end of ReadCGIData */

CGINameValue* ReadHTMLAttributes (  FILE *  source, size_t  max )

Reads the first 20 property values in a markup tag Definition at line 601 of file cgi_util.c. References CGINameValue::name, NewNVP(), NULL, ReadUntilChar(), strdup(), and CGINameValue::value. Referenced by RunReportF(), and ShowFormPage(). { CGINameValue * v = NewNVP(max > 0 ? max : 16); int i = 0; /* max 20 options per tag, 1k per option*/ char temp[4096]; while (i < 20) { int e = ReadUntilChar(source,temp,sizeof(temp)-1,"=> \t\r\n",0); char *s = temp; while (*s && strchr(" \t\r\n",*s)!=NULL) s++; if (*s) { v[i].name = strdup(s); if (e == '=') { fread(temp,1,1,source); if (temp[0] == '\"') e = ReadUntilChar(source,temp,sizeof(temp),"\"",0); else e = ReadUntilChar(source,temp+1,sizeof(temp)-1,"> \t\r\n",0); v[i].value = strdup(temp); } i++; } if (e == '>' || e == -1) return v; } ReadUntilChar(source,0,0,">",0); /* chomp all the remaining tags */ return v; }

CGINameValue* ReadINIFileSection (  char *  file, char *  section, int  reserve )

Definition at line 2186 of file cgi_util.c. References CGIFCLOSE, CGIFOPEN, CGIFREE, CGIMALLOC, FileSize(), killchar(), NULL, ReadPairedString(), ReadUntilChar(), ReadUntilWord(), and stricmp(). Referenced by AdminPrintPage(), CGImain(), EZSCounts(), GetSecurityFlags(), Index(), LogStartup(), ProjectUpdate(), SaveData(), SpaceUpdate(), UserAddSpace(), UserList(), UserUpdate(), VerifyPassword(), VerifyUser(), and WFmain(). { CGINameValue* ret = NULL; int d; int maxsize = FileSize(filename); char * str; FILE * file= NULL; if (maxsize <= 0) return NULL; str = CGIMALLOC(maxsize+1); if (str == NULL) return NULL; str[maxsize]=0; file = CGIFOPEN(filename,"rt"); if (file != NULL) while (1) { d = ReadUntilChar(file,0,0,"[",'\r'); if (d < 0) break; d = ReadUntilChar(file,str,maxsize,"]\n",'\r'); if (d == ']') { if (stricmp(str,section)==0) { ReadUntilWord(file,str,maxsize,"\n["); killchar(str,'\r'); ret = ReadPairedString(str,'\n',reserve); break; } } } CGIFCLOSE(file); CGIFREE(str); return ret; }

int ReadNextToken (  FILE *  source, char *  buf, int  size, int  end, int *  isSyntax )

read the next token from the file stream. Punctuation such as { } ; count as words. Strings may be ' or " delimited Definition at line 116 of file cgi_js.c. References ReadUntilChar(), SkipWhitespace(), and SpecialWord(). Referenced by DelimitedSection(), EvaluateArgument(), RunScript(), and RunScriptObject(). { /* <= >= += -= *= /= == are awkward */ buf[0]=0; if (end == -1) return -1; /* already hit the EOF */ buf[0] = (char)SkipWhitespace(source,end); while (1) { if (strchr("\r\n#*-/^,;{}()[]<>+=",buf[0])) /* 1 or 2 character word */ { if (isSyntax) *isSyntax = 1; if (buf[0] == '\r') buf[0] = '\n'; if (buf[0] && strchr("<>+=/",buf[0])) /* check for 2-character operators */ return SpecialWord(source,buf,size,buf[0]); /* syntax char -- don't need to check the next word */ buf[1]=0; return ' '; /* pretend that whitespace stopped the scan */ } if (buf[0] == '%') /* %> ends an inline script, and % is a modulus */ { if (!fread(buf+1,1,1,source)) return -1; if (buf[1] == '>') {buf[0]=0; return -1;} else {end=buf[1]; buf[1]=0; return end;} } if (buf[0] == '\"' || buf[0] == '\'') /* read a string */ { int i = 1; end = buf[0]; buf[0] = '\''; /* mark as a string by setting the first character */ while (1) { if (!fread(buf+i,1,1,source)) return -1; if (buf[i] == '\\') { if (!fread(buf+i,1,1,source)) return -1; 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 < size-1) i++; } buf[i] = 0; /* terminate the string */ return ' '; /* Done! Treat as whitespace termination */ } else /* ordinary word -- read until whitespace or grammar*/ { /* if whitespace stopped the scan, keep reading until the next char */ end = ReadUntilChar(source,buf+1,size-1," \t\r\n#*-/,;{}()[]<>+=",0); return SkipWhitespace(source,end); } } /* while */ }

int ReadNextWord (  FILE *  source, char *  name, size_t  length )

Read the next whitespace-delimited word Definition at line 279 of file cgi_html.c. References ReadUntilChar(). Referenced by ExecEZSCommand(), and ReadParameter(). { 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 }

CGINameValue* ReadPairedString (  char *  str, char  delim, int  reserve )

might allocate an extra slot if the last character is the delimiter Definition at line 2251 of file cgi_util.c. References CGINameValue::name, NewNVP(), NULL, NULLSTR, strdup(), strndup(), and CGINameValue::value. Referenced by Authenticate(), CGImain(), FindUserRecordASC(), JSRankSort(), Login(), ReadCGIGetData(), ReadINIFileSection(), and ShowFormPage(). { CGINameValue *v; char *c; int i,j,count,done; if (!str) return NULL; count = reserve; if (str[0]) count++; for (i=1; str[i]; i++) { if (str[i] == delim) count++; } if (count == 0 && reserve == 0) { if (str[0]) count = 1; else return NULL; } v = NewNVP(count); c = str; done =0; for (i=0; i<reserve; i++) { v[i].name = strdup(NULLSTR); v[i].value = strdup(NULLSTR); } if (count == reserve) return v; i = reserve; while(!done && *c) { int x=1; /* eat empties */ while (*c == delim) c++; if (isalnum(*c) || *c == '_') /* legal start characters for a field value */ { for (j=1; c[j] != '=' && c[j] != delim && c[j]; j++){x++;}/* name length*/ v[i].name = strndup(c, x); if (c[x] == '=') { c = c + x + 1; x=0; for (j=0; c[j] != delim && c[j]; j++) {x++;} v[i].value = strndup(c, x); } else { v[i].value = strdup(""); } if (*c) c = c + x + 1; i++; } else if (*c == '=') /* "=blah" is deleted */ while (*c && *c != delim) c++; else c++; /* whitespace */ if (i >= count) done = 1; } return v; }

CGINameValue* ReadPairedValues (  int  argc, char **  argv, int  reserve )

Read values of the form { "name1=value1", "name2=value2", ... } Definition at line 2222 of file cgi_util.c. References CGINameValue::name, NewNVP(), NULL, NULLSTR, strdup(), strndup(), and CGINameValue::value. Referenced by JSRankSort(), and main(). { CGINameValue* v; char * c; int i,length,max; max = argc + reserve; if (max <= 0) return NULL; v = NewNVP(max); for (i=0; i<reserve; i++) { v[i].name = strdup(NULLSTR); v[i].value = strdup(NULLSTR); } for (i = 0 ; i < argc ; i++ ) { c = argv[i]; length=0; while (*c && *c != '=') {c++;length++;} if (*c) c++; v[i+reserve].name=strndup(argv[i],length); v[i+reserve].value=strdup(c); } return v; }

int ReadUntilChar (  FILE *  in, char *  out, size_t  max, char *  stop, int  skip )

If out is nonzero, then it is filled with a null-terminated string of characters that were skipped, with length up to max-1. skip= lets you skip linefeed characters in binary files Definition at line 571 of file cgi_util.c. Referenced by _loaddbheader(), CGImain(), DatabaseReadRecord(), DatabaseSearchRecord(), ODBCRunScript(), ReadHTMLAttributes(), ReadINIFileSection(), ReadNextToken(), ReadNextWord(), RunReportF(), RunScript(), RunScriptObject(), ShowFormPage(), and SpecialWord(). { char c; if (out) *out = 0; if (max) max--; if (feof(in)) return -1; while (fread(&c,1,1,in)>0) { if (skip && skip == c) continue; if (strchr(stop,c)) { if (out && max) *out = 0; return c; } else { if (out && max) { *out = c; out++; *out = 0; max--; } } } return -1; }

int ReadUntilWord (  FILE *  in, char *  out, size_t  max, char *  check )

Definition at line 507 of file cgi_util.c. References ReadUntilWord2(). Referenced by EZSReport(), FinishTag(), ReadINIFileSection(), RunReportF(), and RunScript(). { return ReadUntilWord2(in,out,max,check,check); }

int ReadUntilWord2 (  FILE *  in, char *  out, size_t  max, char *  check1, char *  check2 )

Definition at line 468 of file cgi_util.c. References CGIFREE, CGIMALLOC, and stricmp(). Referenced by ReadUntilWord(). { size_t len = strlen(check1); size_t pos = 0; char* buf = 0; int quit = 0; if (len == 0) {return 0;} buf = CGIMALLOC(len+1); buf[len]=0; if (fread(buf,len,1,in) != 1) {CGIFREE(buf); return 0;} len --; while (stricmp(buf,check1) && (check1 == check2 ? 1 : stricmp(buf,check2))) { if (out) if (pos < max) { out[pos] = buf[0]; pos ++; if (pos < max) out[pos]=0; } if(quit) {CGIFREE(buf); return 0;} memmove((char*)buf,(char*)buf+1,len); if (fread((char*)buf + len,1,1,in) != 1) {quit=1;} } if (!stricmp(buf,check1)) len = 1; else len = 2; CGIFREE(buf); return len; }

int ReadUntilWordS (  FILE *  in, EZSSTREAM *  out, char *  check )

Definition at line 547 of file cgi_util.c. References ReadUntilWordS2(). Referenced by EZSCounts(), EZSInclude(), EZSRandom(), EZSSource(), Index(), ODBCRunScript(), RunReportF(), ShowFormPage(), UserList(), ValidateBack(), and ValidatePage(). { return ReadUntilWordS2(in,out,check,check); }

int ReadUntilWordS2 (  FILE *  in, EZSSTREAM *  out, char *  check1, char *  check2 )

scans a file until it reaches one of two strings of equal length. Returns 0 (not found), 1, or 2 Definition at line 512 of file cgi_util.c. References CGIFREE, CGIMALLOC, HTMLWrite(), and stricmp(). Referenced by EZSRandom(), ReadUntilWordS(), and RunReportF(). { size_t len = strlen(check1); size_t l2; char* buf; if (len == 0) return 0; buf = CGIMALLOC(len+1); buf[len]=0; l2 = len - 1; if (fread(buf,len,1,in) != 1) { CGIFREE(buf); return 0; } while (stricmp(buf,check1) && (check1 == check2 ? 1 : stricmp(buf,check2))) { if (out) { char c[2]; c[0]=buf[0]; c[1]=0; HTMLWrite(out,c); } memmove((char*)buf,(char*)buf+1,len); if (fread((char*)buf + l2,1,1,in) != 1) {CGIFREE(buf); return 0;} } if (!stricmp(buf,check1)) len = 1; else len = 2; CGIFREE(buf); return len; }

int RenameField (  CGINameValue *  d, char *  oldname, char *  newname )

Definition at line 1756 of file cgi_util.c. References GetField(), NULL, and SetName(). Referenced by Authenticate(), CGImain(), EZSReport(), RunReportF(), RunScript(), SaveData(), ShowFormPage(), ValidateBack(), and ValidatePage(). { d = GetField(d,oldname); if (d == NULL) return 0; SetName(d,newname); return 1; }

void ResetList (  CGINameValue *  header  )

Definition at line 339 of file cgi_data.c. References CGIFREE, CGINameValue::name, NULL, and CGINameValue::value. Referenced by DatabaseReadRecord(). { for (; v->name; v++) { #ifdef CGIFREE CGIFREE(v->value); #else if (v->value != NULL) { CGIFREE(v->value); v->value = NULL; } #endif } }

int RunReport (  char *  argv0, EZSSTREAM *  htmlout, FILE *  source, CGINameValue *  cgidata, CGINameValue *  dbdata, CGINameValue *  unused, int  preset, char *  stop )

where to stop processing, like /report Parameters: htmlout  local directory information source  output stream dbdata  primary field values for <=fieldname %> and <input> unused  isecondary field values for {fieldname} preset  a list of primary field values which will be deleted as they are used stop  whether to set <input> tags Definition at line 681 of file cgi_html.c. References RunReportF(). Referenced by CGImain(), EZSCounts(), EZSInclude(), EZSRandom(), EZSReport(), JSReport(), Login(), PrintFinish(), SaveData(), ShowForm(), ShowFormPage(), and WFmain(). {fieldname} */ CGINameValue * unused, int preset, char* stop) { return RunReportF( argv0, htmlout,source,cgidata,dbdata,unused,preset,stop,0,0); }

int RunReportF (  char *  argv0, EZSSTREAM *  htmlout, FILE *  source, CGINameValue *  cgidata, CGINameValue *  dbdata, CGINameValue *  unused, int  preset, char *  stop, char *  lastData, ScriptFunction *  extra )

Parameters: htmlout  local directory information source  output stream dbdata  primary field values for <=fieldname %> and <input> unused  isecondary field values for {fieldname} preset  a list of primary field values which will be deleted as they are used stop  whether to set <input> tags lastData  where to stop processing, like /report extra  contents of the stop tag, at least MAXPATH long extra functions Definition at line 693 of file cgi_html.c. References DeleteNVP(), EvaluateLogic(), ExecEZSCommand(), EZSCounts(), EZSInclude(), EZSRandom(), EZSReport(), EZSSource(), FinishTag(), FormatReplacement(), GetFieldValue, HasToken(), HTMLEscape(), HTMLWrite(), HTMLWriteL(), IsValueSelected(), JSEval(), JSGetEnv(), JSHasRecord(), JSHTMLEscape(), JSIndexOf(), JSPrint(), JSRandom(), JSReport(), JSstrlen(), JSsubstr(), JSTimeStamp(), JStoFixed(), JSToNumber(), MAXBUF, NULL, NULLSTR, PrintScriptError(), PROFILEBEGIN, PROFILEEND, ReadHTMLAttributes(), ReadUntilChar(), ReadUntilWord(), ReadUntilWordS(), ReadUntilWordS2(), RenameField(), RunScript(), START, STOP, stricmp(), strnicmp(), and WriteHTMLAttributes(). Referenced by AdminPrintPage(), Index(), RunReport(), SpaceAdd(), and UserList(). {fieldname} */ 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; }

int RunScript (  ScriptEnvironment *  Env, FILE *  script, CGINameValue *  Variables )

return values are 0: OK nonzero: error. see cgi.j for error codes Definition at line 719 of file cgi_js.c. References CGIFREE, CGIMALLOC, ScriptEnvironment::curpos, DelimitedSection(), ScriptEnvironment::endchar, EvaluateArgument(), EvaluateLogic(), ExtendNVP(), GetFieldValue, HasTokenI(), IsNumber(), ScriptEnvironment::lastLine, ReadNextToken(), ReadUntilChar(), ReadUntilWord(), RenameField(), RunScript(), RunScriptFunction(), SetFieldValue(), strdup(), strdup3(), and stricmp(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), RunScript(), ValidateBack(), ValidatePage(), and WFmain(). { char* name; char word[4096]; /* int end = 0; */ int inif = 0; int CurrentTruth = 0; int ret = 0; int end = ' '; /* start with a clean slate */ /* HTMLPrintf(htmlout,"<P>Q3=%s\n",GetFieldValue(Variables,"Q3")); */ name = 0; while (ret==0 && Env->endchar != -1) { Env->lastLine = ftell(script); end = ReadNextToken(script,word,sizeof(word),end,0); if (end <= 0) break; if (word[0] == '#') /* Perl comments */ { end = ReadUntilChar(script,0,0,"\n",'\r'); continue; } if (word[0] == 0) continue; /* oops, between words. ignore it. */ if (word[0] == ';' || word[0] == '\n' || word[0] == ',') continue; /* comma or space can be delimiters, we don't care */ if (word[0] == '\'') ret = 43; /* misplaced string constant */ if (word[0] == '}') break; if (word[0] == '{') { ret = RunScript(Env,script,Variables); if (ret) break; end = Env->endchar; continue; } /* C++ comments */ if (!strcmp(word,"//") && (end != '\n' && end != '\r')) { end = ReadUntilChar(script,0,0,"\r\n",0); continue; } if (word[0] == '/') /* C comments */ if (word[1] == '*' && !strstr(word+2,"*/")) { ReadUntilWord(script,0,0,"*/"); end = ' '; continue; } if (!stricmp(word,"var")) continue; if (HasTokenI("</script>,&exit,quit,exit,&end,&return,%>",word,0)) {end = -1; break;} // delete variable_name if (!stricmp(word,"delete")) { end = ReadNextToken(script,word,sizeof(word),end,0); if (*word) RenameField(Variables,word,0); if (end < 0) break; continue; } if (!stricmp(word,"if")) /*evaluate a condition, and run the child code */ {/* end resets after DelimitedSection() */ startif: ret = DelimitedSection(script,word,sizeof(word),end,"(",")",41); if (ret) break; CurrentTruth = EvaluateLogic(word,Variables,0); inif = 1; if (CurrentTruth) { word[0] = '\n'; while (word[0] == '\n') end = ReadNextToken(script,word,sizeof(word),0,0); if (word[0] != '{') {ret = 70; break;} ret = RunScript(Env,script,Variables); if (ret) break; end = Env->endchar; } else { ret = DelimitedSection(script,0,0,0,"{","}",70); if (ret) break; end = ' '; } continue; } if (!stricmp(word,"else")) /* finish an if condition */ { if (!inif) {ret = 44; break; } if (end != '{') { end = ReadNextToken(script,word,sizeof(word),end,0); if (!stricmp(word,"if")) /* else if {foo()} , next token = if*/ goto elsif; else if (end < 0) break; else /* else {foo()}, next token = { */ end=word[0]; } inif = 0; if (!CurrentTruth) { if (end != '{') { ret = 70; break; } ret = RunScript(Env,script,Variables); if (ret) break; end = Env->endchar; } else { skip: ret = DelimitedSection(script,0,0,end,"{","}",70); if (ret) break; end = ' '; } continue; } if (!stricmp(word,"elif") || !stricmp(word,"elsif")) /*evaluate a condition, and run the child code*/ { elsif: if (!inif) {ret = 44; break; } if (CurrentTruth) goto skip; /* previous was false, so OK to evaluate this section */ else goto startif; /* evaluate this section */ } /* out of an if section */ inif = 0; /* variable assignment or function call*/ CGIFREE(name); name = strdup(word); end = ReadNextToken(script,word,sizeof(word),end,0); /* email = email + "@" "caltech.edu" */ /* total = Q1 + Q2 + Q3 + (Q4 * 4) */ if (!strcmp(word,"=") || !stricmp(word,"+=")) /* variable assignment */ { char* value = 0; ret = EvaluateArgument(Env,script,&end,Variables,"\r\n;}",&value,0); if (ret) break; if (word[0] == '+') { char * c = GetFieldValue(Variables,name); if (IsNumber(c,0) && IsNumber(value,0)) { char* x=0; double a = strtod(c,&x); if (*x) goto concat; a += strtod(value,&x); if (*x) goto concat; CGIFREE(value); value = CGIMALLOC(64); sprintf(value,"%f",a); } else { concat: c = strdup3(c,value,""); CGIFREE(value); value = c; } } if (!SetFieldValue(Variables,name,value)) { ExtendNVP(Variables,128); SetFieldValue(Variables,name,value); /* add to the list of 'shadow variables' that won't get saved */ } CGIFREE(value); } else if (!strcmp(word,"++")) /* numeric increment */ { char * c = GetFieldValue(Variables,name); char value[128]; sprintf(value,"%f",strtod(c,0) + 1.0); SetFieldValue(Variables,name,value); } else if (!strcmp(word,"(")) /* command, no lvalue */ { ret = RunScriptFunction(Env,script,end,name,Variables,0); end = ' '; /* eat the paren */ } else { ret = 46; /* unknown command */ break; } } /* while */ CGIFREE(name); Env->endchar = end; Env->curpos = ftell(script); if (ret == -1) ret = 0; /* -1 is OK */ return ret; } /* RunScript */

int SaveDataToASC (  CGINameValue *  data, char *  filename, int *  pos )

Adds a new record to the database Definition at line 952 of file cgi_data.c. References CGIFCLOSE, CGIFOPEN, CreateDatabase(), and DatabaseSaveNewRecord(). { #if 0 int x; FILE* handle; /* Check to see if file exists*/ handle=CGIFOPEN(filename,"rb"); if ( handle == 0 ) { x = CreateDatabase(data,filename); if (x) return x; /* that should ensure that the file exists, now open it in append mode*/ } else { CGIFCLOSE(handle); } #endif return DatabaseSaveNewRecord(filename,data,pos); }

int SaveDataToXML (  CGINameValue *  data, char *  filename, int *  pos )

Adds a new record to the database Definition at line 198 of file cgi_data.c. References CGIFCLOSE, CGIFOPEN, MAXPATH, NULL, swapchars(), and WriteXML(). { FILE* f = NULL; #ifndef __WINCE__ int fh; #endif #ifdef XP_POSIX static struct flock myLock ; #endif #if defined(XP_WIN) && !defined(VPWSCGI) HANDLE Mutex; char Mutex_name[MAXPATH+1]; #endif /* #ifndef __WINCE__ if (access(filename,2)) return 6; #endif */ #if defined(XP_WIN) && !defined(VPWSCGI) strncpy(Mutex_name,filename,MAXPATH); Mutex_name[MAXPATH] = 0; swapchars(Mutex_name, '\\', '/'); Mutex = CreateMutex(0,FALSE,Mutex_name); /* wait up to 20 seconds */ if (Mutex) if (WaitForSingleObject(Mutex,20000) == WAIT_TIMEOUT) { CloseHandle(Mutex); return 23; } #endif #ifdef __WINCE__ f = CGIFOPEN(filename,"ab"); #else fh = open(filename,O_WRONLY|O_APPEND); if (fh != -1) { f = fdopen(fh,"ab"); } #endif if (!f) return 8; /* Wait for a file lock to become available */ #ifdef XP_POSIX myLock.l_type = F_WRLCK ; myLock.l_start = 0 ; myLock.l_whence = SEEK_END ; myLock.l_len = 0 ; myLock.l_pid = getpid() ; fcntl(fh, F_SETLKW, &myLock); #endif if (pos) *pos = ftell(f); WriteXML(f,data); #ifdef XP_POSIX myLock.l_type = F_UNLCK; fcntl(fh, F_SETLKW, &myLock); #endif #if defined(XP_WIN) && !defined(VPWSCGI) if (Mutex) { ReleaseMutex(Mutex); CloseHandle(Mutex); } #endif CGIFCLOSE(f); return 0; }

int SendCGIHeader (  EZSSTREAM *  htmlout, char *  header )

send NULL for the default header "Content-type: text/html" Definition at line 262 of file cgi_cgi.c. Referenced by CGImain(), PrintFinish(), SendImage(), and WFmain(). { if (header != NULL) if (strlen(header)) { HTMLWrite(htmlout,header); return 1;} HTMLWrite(htmlout,CGI_DEFAULT_HEADER); return 1; }

int SendMail (  char *  recip, char *  subject, char *  textnote, char *  server, char *  profile, char *  name, char *  password )

Use sendmail -t on UNIX, Exchange on Windows on UNIX, the last 4 parameters are ignored. Definition at line 295 of file cgi_mail.c. References CMCSendMail(), and SMTPSendMail(). Referenced by CGImain(), JSSendMail(), and SaveData(). { int i = 1; if (server) if (*server) i = SMTPSendMail(server, subject, recip, text); if (i != 0) i = CMCSendMail(recip, subject,text,profile,name,password); return i; }

int SetFieldValue (  CGINameValue *  d, char *  fieldname, char *  value )

Definition at line 1820 of file cgi_util.c. References GetField(), NULL, SetName(), and SetValue(). Referenced by Authenticate(), CGImain(), DoSetValue(), EZSReport(), JSShowPage(), ProjectUpdate(), RunScript(), SetupCGIData(), ShowFormPage(), ShowPage(), SpaceUpdate(), UserAddSpace(), UserUpdate(), and VerifyUser(). { CGINameValue *d = GetField(f,fieldname); if (d == NULL) { d = GetField(f,""); if (d == NULL) return 0; SetName(d,fieldname); } if (d == NULL) return 0; SetValue(d,value); return 1; }

void SetLoggingLevel (  int  i  )

Definition at line 53 of file cgi_log.c. References CGILogLevel. Referenced by LogStartup(). {CGILogLevel = i;}

void SetName (  CGINameValue *  d, char *  name )

Set the value to a zero-length string, which is faster than freeing memory, which might not have been malloced anyway. int RemoveFieldValue(CGINameValue*d, char* name) { d = GetField(d,name); if (d == NULL) return 0; if (d->value) d->value[0]=0; return 1; } Definition at line 1774 of file cgi_util.c. References CGIFREE, CGINameValue::name, NULL, strdup(), and CGINameValue::value. Referenced by RenameField(), and SetFieldValue(). { if (name == NULL) { if (d->name) d->name[0]=0; if (d->value) d->value[0]=0; } else { char *n = name; char *o = d->name; while (*n && *o) *o++ = *n++; if (*n == 0 && *o != 0) *o = 0; else if (*o == 0 && *n != 0) { CGIFREE(d->name); d->name = strdup(name); } } }

void SetValue (  CGINameValue *  d, char *  value )

Definition at line 1795 of file cgi_util.c. References CGIFREE, NULL, strdup(), and CGINameValue::value. Referenced by CGImain(), SetFieldValue(), and UpdateStatistics(). { if (value == NULL) { if (d->value) d->value[0]=0; } else if (d->value == NULL) { goto set; } else { char *n = value; char *o = d->value; while (*n && *o) *o++ = *n++; if (*n == 0 && *o != 0) *o = 0; else if (*o == 0 && *n != 0) { CGIFREE(d->value); set: d->value = strdup(value); } } }

int SOAPExec (  char *  host, int  port, char *  function, char *  action, char *  data )

Definition at line 66 of file cgi_soap.c. References WinsockConnect(). { unsigned int s; #ifdef XP_WIN WSADATA d; #endif int err; char temp[128]; #if 0 #define send(a,b,c,d) fwrite(b,c,1,stdout) #endif #ifdef XP_WIN if (WSAStartup(2, &d) != 0) /* init winsock lib. want v2.0 */ { WSACleanup(); return 61; } #endif err = WinsockConnect(host, port, &s); if (!err) { send(s, "POST /", 6, 0); send(s, function, strlen(function), 0); send(s, " HTTP/1.1\r\n", 11, 0); send(s, "Host: ", 6, 0); send(s, host, strlen(host), 0); send(s, "\r\nContent-Type: text/xml; charset=\"utf-8\"\r\n", 43, 0); send(s, "Content-Length: ", 16, 0); sprintf(temp,"%d",strlen(data)); /* itoa(strlen(data), temp, 10); */ send(s, temp, strlen(temp), 0); send(s, "\r\nSOAPAction: " , 14, 0); send(s, action, strlen(action), 0); send(s, "\r\n\r\n", 4, 0); send(s, data, strlen(data), 0); } if (s != INVALID_SOCKET) /* shutdown and close the socket if needed */ { shutdown(s, 2); /* shutdown both channels (read+write) */ #ifdef XP_WIN closesocket(s); #else close(s); #endif } #ifdef XP_WIN WSACleanup(); #endif return err; }

char* strdup (  const char *  s  )

Definition at line 777 of file cgi_util.c. References strndup(). Referenced by _loaddbheader(), Authenticate(), CalcCountSummary(), CGImain(), CopyList(), CopyListDeep(), CopyListJoin(), CopyListN(), DatabaseFindNextRecord(), DatabaseReadRecord(), EvaluateAlgebra(), EvaluateExpression(), ExtendNVP(), FindUserRecordASC(), GenerateReport(), GetProjectExtra(), GetTotal(), Index(), JSGetEnv(), JSHasRecord(), JSIndexOf(), JSRankIndex(), JSstrlen(), JSsubstr(), JSTimeDate(), JSTimeStamp(), JSTimeTime(), JStoFixed(), JSToNumber(), JSUniqueId(), ReadCGIPostData(), ReadHTMLAttributes(), ReadPairedString(), ReadPairedValues(), RelativeName(), RunScript(), RunScriptObject(), SetName(), SetValue(), UpdateStatistics(), UserList(), and WriteXML(). { size_t length ; length = s ? strlen(s) : 0; return strndup((char*)s,length); }

char* strdup3 (  char *  a, char *  b, char *  c )

Definition at line 785 of file cgi_util.c. References CGIMALLOC. Referenced by Authenticate(), CGImain(), EZSCounts(), GetTotal(), JSShowPage(), RecurseDirectories(), RelativeName(), RunScript(), ShowFormPage(), UpdateStatistics(), UserAddSpace(), ValidateBack(), ValidatePage(), and WriteINIFileSection(). { size_t l = strlen(a) + strlen(b)+strlen(c); char* x = CGIMALLOC(l+1); x[0]=0; if (x) strcpy(x,a); if (b) strcat(x,b); if (c) strcat(x,c); return x; }

int stricmp (  const char *  a, const char *  b )

Definition at line 748 of file cgi_util.c. Referenced by CGImain(), CheckCGISendMethod(), CheckPass(), CreateDatabase(), DatabaseSaveNewRecord(), ExecEZSCommand(), GenerateTableHeader(), GetField(), IsValueSelected(), LoadUserDataASC(), PrintPassword(), PrintRecords(), ReadINIFileSection(), ReadUntilWord2(), ReadUntilWordS2(), RunReportF(), RunScript(), RunScriptFunction(), RunScriptObject(), ShowAdmin(), ShowPage(), and WriteXML(). { int i; while (*a && *b) { i = toupper(*a) - toupper(*b); if (i != 0) return i; a++; b++; } return *a - *b; }

char* stristr (  char *  s1, char *  s2 )

Definition at line 1462 of file cgi_util.c. Referenced by CGImain(), DatabaseSearchRecord(), GetProjectExtra(), Index(), JSIndexOf(), JSPrint(), RecurseDirectories(), SendImage(), UserList(), WFmain(), and WriteINIFileSection(). { return strn2istr(s1,s2,strlen(s2)); }

int strmatch (  char *  c1, char *  c2, size_t  len, char *  end, int  cs )

search c1 up to length len for token c2, stopping at a character from end Definition at line 869 of file cgi_util.c. Referenced by ClearToken(), and HasTokenX(). { if (length) do { if (cs) { if (*c1 != *c2) return 0; } else if (toupper(*c1) != toupper(*c2)) return 0; c1++; c2++; length--; /* if (end of token AND end of comparison) */ if ((*c2==0) && (!length||*c1==0||strchr(end,*c1))) return 1; } while (length); return 0; }

char* strn2istr (  char *  s1, char *  s2, size_t  l2 )

Definition at line 1452 of file cgi_util.c. Referenced by ComparisonEvaluation(), and stristr(). { while (*s1) { if (strnicmp(s1,s2,l2) == 0) return s1; s1++; } return 0; }

char* strndup (  char *  s, size_t  length )

Definition at line 796 of file cgi_util.c. References CGIMALLOC. Referenced by ComparisonEvaluation(), DoEvaluateComparison(), EvaluateAlgebra(), JSsubstr(), ODBCRead(), ReadPairedString(), ReadPairedValues(), and strdup(). { char * c; c = CGIMALLOC(length+3); if (s && length) strncpy(c,s,length); c[length]=0; return c; }

int strnicmp (  const char *  a, const char *  b, size_t  length )

Definition at line 761 of file cgi_util.c. Referenced by CGImain(), CheckCGISendMethod(), ComparisonEvaluation(), DoEvaluateComparison(), FormatReplacement(), LoadUserData(), RunReportF(), ShowAdmin(), ShowFormPage(), ShowPage(), SMTPSendMail(), and strn2istr(). { int i; while (*a && *b && length) { i = toupper(*a) - toupper(*b); if (i != 0) return i; ++a; ++b; --length; } return length ? toupper(*a) - toupper(*b) : 0; }

void swapchars (  char *  str, char  find, char  repl )

Definition at line 741 of file cgi_util.c. Referenced by AdminPrintPage(), CGImain(), EZSRandom(), main(), ReadCGIGetData(), ReadCGIPostData(), SaveData(), and SaveDataToXML(). { int x; for(x=0;str[x];x++) if(str[x] == find) str[x] = repl; }

void UTF7toUTF8 (  char *  text  )

Definition at line 280 of file cgi_util.c. References int16ToUTF8(), and unB64(). Referenced by ReadCGIGetData(), and ReadCGIPostData(). { char* read = write; while (*read) { if (*read == '+') { int x, step, out, i[2], ch[2]; if (read[1] == '-') { *write++ = *read++; read++; continue; } read++; step = 0; out = 0; while (*read && *read != '-') { x = unB64(*read); if (x == -1) break; i[step % 2]=x; if (step % 4) ch[out++%2] = ((i[(step+1)%2] << ((step%4) * 2)) | (i[step%2] >> (6 - ((step%4) * 2)))) & 0x00ff; if (step == 2 || step == 5 || step == 7) write += int16ToUTF8((ch[0] << 8) | ch[1],write); read++; step = (step + 1) % 8; } if (*read == '-') read++; /* eat the - */ else if (*read) *write++ = *read++; } else { *write++ = *read++; } } *write = 0; }

size_t UTF8ToUCS2C (  char *  in, int *  c )

Definition at line 1013 of file cgi_util.c. Referenced by HTMLEscape(), and JSHTMLEscape(). { if ((in[0] & 0x80) == 0) {*c=in[0]; return 1;} /* 1 character OK */ /* 110xxxxx 10xxxxxx */ if (((in[0] & 0xe0) == 0xc0) && ((in[1] & 0xc0) == 0x80)) { *c = (int)( ((in[0] & 0x1f) << 6) | (in[1] & 0x3f)); return 2;} /* 1110xxxx 10xxxxxx 10xxxxxx */ if (((in[0] & 0xf0) == 0xe0) && ((in[1] & 0xc0) == 0x80) && ((in[2] & 0xc0 )== 0x80)) { *c = (int)(((in[0] & 0x0f) << 12) | ((in[1] & 0x3f) << 6)| (in[2] & 0x3f)); return 3;} /* 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx */ if (((in[0] & 0xf8) == 0xf0) && ((in[1] & 0xc0) == 0x80) && ((in[2] & 0xc0 )== 0x80)&& ((in[3] & 0xc0) == 0x80)) { *c = (int)(((in[0] & 0x0f) << 18) | ((in[1] & 0x3f) << 12)| ((in[2] & 0x3f) <<6)| ((in[3] & 0x3f))); return 4;} return 0; /*error */ }

int WinsockConnect (  char *  host, int  port, unsigned int *  s )

Definition at line 31 of file cgi_soap.c. Referenced by main(), SMTPSendMail(), and SOAPExec(). { long int hostaddr = 0; unsigned long *p; struct sockaddr_in svraddr; struct hostent *he; *s = INVALID_SOCKET; if (isdigit(host[0])) /* something like 192.168.0.1 */ { hostaddr = inet_addr(host); /* convert to 32bit unsigned int */ } else /* something like phoenix.ttdev.com */ { he = gethostbyname(host); /* convert to 32bit unsigned int */ if (!he) {return 62;} p = (unsigned long*)he->h_addr_list[0]; hostaddr = *p; } *s = socket(AF_INET, SOCK_STREAM, 0); /* make Internet socket */ if (*s == INVALID_SOCKET) return 63; svraddr.sin_family = AF_INET; /* Internet address family */ svraddr.sin_port = htons(port); /* port */ memcpy(&svraddr.sin_addr.s_addr, &hostaddr, sizeof(INADDR_ANY)); /* host addr */ memset(svraddr.sin_zero,0,sizeof(svraddr.sin_zero)); if (connect(*s, (SOCKADDR*)&svraddr, sizeof(svraddr)) != 0) return 64; return 0; }

void WriteXML (  FILE *  f, CGINameValue *  data )

Generates an XML TRANSACTION tag from data. Links are expected to be seen as parentfield_number_childfield Definition at line 127 of file cgi_data.c. References CGIFREE, CGINameValue::name, NULL, strdup(), and stricmp(). Referenced by SaveDataToXML(). { int i; char * currentchild = NULL; int currentitem = -1; fprintf(f,"<TRANSACTION>"); for(i=0;data[i].name;i++) /* skip host, date, time */ { char * c; int inchild = 0; char* name; if (!data[i].name[0]) continue; if (data[i].name[0] == '_') continue; name = data[i].name; c = strchr(name,'_'); if (c) if (strchr(c+2,'_')) if (strchr("1234567890",c[1])) /* item_1_name */ { int thisitem; int newobj = 0; char* newchild = strdup(name); inchild = 1; c = strchr(newchild,'_'); thisitem = atoi(c+1); name = strchr(c+2,'_'); if (name) name++; c[0] = 0; if (thisitem != currentitem || stricmp(currentchild,newchild)) { newobj = 1; currentitem = thisitem; } if (newobj && currentchild) fprintf(f,"</%s>\n",currentchild); if (name) { if (currentchild) CGIFREE(currentchild); currentchild = newchild; if (newobj) fprintf(f,"<%s id=%d>\n",currentchild,thisitem); } else name=data[1].name; } if (inchild == 0 && currentchild) { fprintf(f,"</%s>\n",currentchild); if (currentchild) CGIFREE(currentchild); currentchild = NULL; } fprintf(f,"<%s>%s</%s>\n",name,data[i].value,name); } if (currentchild) printf("</%s>\n",currentchild); if (currentchild) CGIFREE(currentchild); fprintf(f,"</TRANSACTION>\n"); }

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/