[0001]
[0002]
[0003]
[0004]
[0005]
[0006]
[0007]
[0008]
[0009]
[0010]
[0011]
[0012]
[0013]
[0014]
[0015]
[0016]
[0017]
[0018]
[0019]
[0020]
[0021]
[0022]
[0023]
[0024]
[0025]
[0026]
[0027]
[0028]
[0029]
[0030]
[0031]
[0032]
[0033]
[0034]
[0035]
[0036]
[0037]
[0038]
[0039]
[0040]
[0041]
[0042]
[0043]
[0044]
[0045]
[0046]
[0047]
[0048]
[0049]
[0050]
[0051]
[0052]
[0053]
[0054]
[0055]
[0056]
[0057]
[0058]
[0059]
[0060]
[0061]
[0062]
[0063]
[0064]
[0065]
[0066]
[0067]
[0068]
[0069]
[0070]
[0071]
[0072]
[0073]
[0074]
[0075]
[0076]
[0077]
[0078]
[0079]
[0080]
[0081]
[0082]
[0083]
[0084]
[0085]
[0086]
[0087]
[0088]
[0089]
[0090]
[0091]
[0092]
[0093]
[0094]
[0095]
[0096]
[0097]
[0098]
[0099]
[0100]
[0101]
[0102]
[0103]
[0104]
[0105]
[0106]
[0107]
[0108]
[0109]
[0110]
[0111]
[0112]
[0113]
[0114]
[0115]
[0116]
[0117]
[0118]
[0119]
[0120]
[0121]
[0122]
[0123]
[0124]
[0125]
[0126]
[0127]
[0128]
[0129]
[0130]
[0131]
[0132]
[0133]
[0134]
[0135]
[0136]
[0137]
[0138]
[0139]
[0140]
[0141]
[0142]
[0143]
[0144]
[0145]
[0146]
[0147]
[0148]
[0149]
[0150]
[0151]
[0152]
[0153]
[0154]
[0155]
[0156]
[0157]
[0158]
[0159]
[0160]
[0161]
[0162]
[0163]
[0164]
[0165]
[0166]
[0167]
[0168]
[0169]
[0170]
[0171]
[0172]
[0173]
[0174]
[0175]
[0176]
[0177]
[0178]
[0179]
[0180]
[0181]
[0182]
[0183]
[0184]
[0185]
[0186]
[0187]
[0188]
[0189]
[0190]
[0191]
[0192]
[0193]
[0194]
[0195]
[0196]
[0197]
[0198]
[0199]
[0200]
[0201]
[0202]
[0203]
[0204]
[0205]
[0206]
[0207]
[0208]
[0209]
[0210]
[0211]
[0212]
[0213]
[0214]
[0215]
[0216]
[0217]
[0218]
[0219]
[0220]
[0221]
[0222]
[0223]
[0224]
[0225]
[0226]
[0227]
[0228]
[0229]
[0230]
[0231]
[0232]
[0233]
[0234]
[0235]
[0236]
[0237]
[0238]
[0239]
[0240]
[0241]
[0242]
[0243]
[0244]
[0245]
[0246]
[0247]
[0248]
[0249]
[0250]
[0251]
[0252]
[0253]
[0254]
[0255]
[0256]
[0257]
[0258]
[0259]
[0260]
[0261]
[0262]
[0263]
[0264]
[0265]
[0266]
[0267]
[0268]
[0269]
[0270]
[0271]
[0272]
[0273]
[0274]
[0275]
[0276]
[0277]
[0278]
[0279]
[0280]
[0281]
[0282]
/*****************************************************************************/
/*
CgiLib_example.c
Simple example showing the essential elements of using the CGILIB routines.
Demonstrates: * initializing the environment
* alternate processing according to the environment
* getting CGI variables
* generating responses
* processing POSTed requests
Remember, the behaviours of these scripts are WATCHable.
The $COUNT and $SLEEP logical names were added to allow testing of server
behaviour where a CGIplus script, programmed to exit elegantly after processing
a given number of requests, revealed a timing issue that, depending on the
run-down speed of the script, could result in an HTTP 502 status rather than
transparent reactivation as described in the April 1998 note in the
[SRC.HTTPD]DCL.C module. This script used from the CGILIB_EXAMPLE.HTML
document was a convenient tool to test the server fix using both GET and POST
requests.
LOGICAL NAMES
-------------
CGILIB_EXAMPLE$COUNT an integer for exit() after this many CGIplus requests
CGILIB_EXAMPLE$DBUG turns on all "if (Debug)" statements
CGILIB_EXAMPLE$SLEEP an integer to sleep this many seconds before exiting
BUILD DETAILS
-------------
$ @BUILD_ONE BUILD CGILIB_EXAMPLE
$ @BUILD_ONE LINK CGILIB_EXAMPLE
COPYRIGHT
---------
Copyright (C) 1999-2021 Mark G.Daniel
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
VERSION HISTORY
---------------
15-OCT-2005 MGD v1.2.1, CGILIB_EXAMPLE$COUNT and CGILIB_EXAMPLE$SLEEP
28-OCT-2000 MGD v1.2.0, use CGILIB object module
12-APR-2000 MGD v1.1.1, minor changes for CGILIB 1.4 (Apache)
24-SEP-1999 MGD v1.0.0, initial development
*/
/*****************************************************************************/
/* standard C header files */
#include <ctype.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
/* application related header file */
#include <cgilib.h>
/* global storage */
int CgiPlusCount,
CgiPlusSleep,
CgiPlusUsage,
Debug,
IsCgiPlus;
char *CgiContentTypePtr,
*CgiQueryStringPtr,
*CgiRequestMethodPtr;
/*****************************************************************************/
/*
*/
main (int argc, char* argv[])
{
char *cptr;
/*********/
/* begin */
/*********/
if (Debug = (getenv ("CGILIB_EXAMPLE$DBUG") != NULL))
{
CgiLibEnvironmentSetDebug (Debug);
fprintf (stdout, "Content-Type: text/plain\r\n\r\n");
}
if (cptr = getenv ("CGILIB_EXAMPLE$COUNT"))
{
CgiPlusCount = atoi(cptr);
if (cptr = getenv ("CGILIB_EXAMPLE$SLEEP"))
CgiPlusSleep = atoi(cptr);
else
CgiPlusSleep = 1;
}
CgiLibEnvironmentInit (argc, argv, 0);
IsCgiPlus = CgiLibEnvironmentIsCgiPlus ();
if (IsCgiPlus)
{
for (;;)
{
/* block waiting for the next request */
CgiLibVar ("");
ProcessRequest ();
CgiLibCgiPlusEOF ();
if (CgiPlusCount)
{
CgiPlusCount--;
if (!CgiPlusCount)
{
if (CgiPlusSleep) sleep (CgiPlusSleep);
exit (1);
}
}
}
}
else
ProcessRequest ();
}
/*****************************************************************************/
/*
*/
ProcessRequest ()
{
int Context;
char *VariablePtr;
/*********/
/* begin */
/*********/
if (Debug) fprintf (stdout, "ProcessRequest()\n");
CgiRequestMethodPtr = CgiLibVar ("WWW_REQUEST_METHOD");
if (CgiLibEnvironmentIsWasd())
{
/* need this to be record-oriented for the DCL output records */
CgiLibEnvironmentRecordOut ();
}
/* generate an HTTP header, plain-text content-type */
CgiLibResponseHeader (200, "text/plain");
fprintf (stdout, "Current environment is \"%s\" (%s)\n\n",
CgiLibEnvironmentName(), CGILIB_SOFTWAREID);
if (CgiLibEnvironmentIsCgiPlus())
fprintf (stdout, "Usage count is %d.\n\n", ++CgiPlusUsage);
if (CgiLibEnvironmentIsWasd() ||
CgiLibEnvironmentIsApache())
{
fprintf (stdout,
"These are the CGI variables contained in the subprocess' DCL symbols:\n\n");
/* with standard CGI the variables are all in DCL symbols */
system ("SHOW SYMBOL WWW_*");
}
if (!strcmp (CgiRequestMethodPtr, "POST"))
ProcessPost ();
else
if (CgiLibEnvironmentIsCgiPlus() ||
CgiLibEnvironmentIsOsu())
{
fprintf (stdout,
"These are the CGI variables created from the %s:\n\n",
CgiLibEnvironmentIsCgiPlus() ? "CGIPLUSIN stream" :
"OSU dialog phase");
while ((VariablePtr = CgiLibVarNull ("*")) != NULL)
fprintf (stdout, " %s\n", VariablePtr);
}
CgiQueryStringPtr = CgiLibVar ("WWW_QUERY_STRING");
if (strchr (CgiQueryStringPtr, '=') != NULL)
{
fprintf (stdout,
"\nHere are the form elements of QUERY_STRING via CgiLibFormEncodedParse():\n\n");
Context = 0;
while ((VariablePtr =
CgiLibFormEncodedParse (CgiQueryStringPtr, &Context)) != NULL)
fprintf (stdout, " %s\n", VariablePtr);
}
}
/*****************************************************************************/
/*
*/
ProcessPost ()
{
int Context,
PostBufferCount;
char *VariablePtr,
*PostBufferPtr;
/*********/
/* begin */
/*********/
if (Debug) fprintf (stdout, "ProcessPost()\n");
/* read the POSTed request body */
CgiLibReadRequestBody (&PostBufferPtr, &PostBufferCount);
if (PostBufferPtr == NULL ||
PostBufferCount == 0)
{
CgiLibResponseError (__FILE__, __LINE__, 0, "No body in the POST!");
return;
}
CgiContentTypePtr = CgiLibVar ("WWW_CONTENT_TYPE");
if (!strcmp (CgiContentTypePtr, "application/x-www-form-urlencoded"))
{
/* is URL form encoded, turn that into pseudo CGI variables */
CgiLibFormRequestBody (PostBufferPtr, PostBufferCount);
fprintf (stdout,
"Request was via a POSTed form.\n\n\
Here are the form elements converted to pseudo CGI variables:\n\n");
if (CgiLibEnvironmentIsCgiPlus())
fprintf (stdout,
"(via CGIplus, so you'll also see the CGI environment variables)\n");
else
if (CgiLibEnvironmentIsOsu())
fprintf (stdout,
"(via OSU, so you'll also see the CGI environment variables)\n\n");
while ((VariablePtr = CgiLibVarNull ("*")) != NULL)
fprintf (stdout, " %s\n", VariablePtr);
fprintf (stdout,
"\nHere are the form elements via CgiLibFormEncodedParse():\n\n");
Context = 0;
while ((VariablePtr =
CgiLibFormEncodedParse (PostBufferPtr, &Context)) != NULL)
fprintf (stdout, " %s\n", VariablePtr);
free (PostBufferPtr);
}
else
{
/* we'll just assume it's a body of displayable text */
CgiLibResponseHeader (200, "text/plain");
fputs (PostBufferPtr, stdout);
free (PostBufferPtr);
}
}
/*****************************************************************************/