[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]
[0283]
[0284]
[0285]
[0286]
[0287]
[0288]
[0289]
[0290]
[0291]
[0292]
[0293]
[0294]
[0295]
[0296]
[0297]
[0298]
[0299]
[0300]
[0301]
[0302]
[0303]
[0304]
[0305]
[0306]
[0307]
[0308]
[0309]
[0310]
[0311]
[0312]
/*****************************************************************************/
/*
CGIplusDemo.c
Simple program that can be used in both standard CGI and CGIplus environments.
The standard CGI section merely echoes the remote host name (lacking any
mechanism to list all variables ... apart perhaps from a SHOW SYMBOL WWW_*).
The CGIplus section uses two methods to access the CGI variables. One just
reads CGIPLUSIN checking each line for the required variable (and displaying
them as it goes). The other uses a more sophisticated function that processes
the CGIplus variables and the allows queries on variable names, etc. This
function is presented as a template in CGIplusSkel.c
Defining the logical name CGIPLUSDEMO$STRUCT causes this demo to use 'struct'
mode rather than 'record mode' for for passing the CGIplus variables.
COPYRIGHT
---------
Copyright (C) 1997-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 (update SOFTWAREVN as well!)
---------------
06-OCT-2004 MGD v1.4.0, CGILIB object module
23-DEC-2003 MGD v1.3.2, minor conditional mods to support IA64
30-NOV-2002 MGD v1.3.1, bugfix; every second CGIplus request incorrectly
having the variables read by CgiPlusReader();
05-APR-2001 MGD v1.3.0, demo/test CGIplus variable 'struct',
body via CGIPLUSIN
24-APR-1999 MGD v1.2.0, use CGILIB.C
21-JUN-1998 MGD v1.1.0, revision of CgiVar()
08-JUN-1997 MGD v1.0.0, initial development
*/
/*****************************************************************************/
#define SOFTWAREVN "1.4.0"
#define SOFTWARENM "CGIPLUSDEMO"
#ifdef __ALPHA
# define SOFTWAREID SOFTWARENM " AXP-" SOFTWAREVN
#endif
#ifdef __ia64
# define SOFTWAREID SOFTWARENM " IA64-" SOFTWAREVN
#endif
#ifdef __VAX
# define SOFTWAREID SOFTWARENM " VAX-" SOFTWAREVN
#endif
#ifdef __x86_64
# define SOFTWAREID SOFTWARENM " X86-" SOFTWAREVN
#endif
#ifndef __VAX
# pragma nomember_alignment
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <errno.h>
#include <time.h>
#include <cgilib.h>
char Utility [] = "CGIPLUSDEMO";
int Debug,
IsCgiPlus,
UsageCounter,
UseCgiPlusVarStruct;
char *CgiPlusEofPtr;
char FirstUsedDateTime [32],
NowDateTime [32];
unsigned long UnixTime;
struct tm *UnixTmPtr;
/*****************************************************************************/
/*
*/
main ()
{
/*********/
/* begin */
/*********/
if (getenv ("CGIPLUSDEMO$DBUG")) Debug = 1;
CgiLibEnvironmentSetDebug (Debug);
UseCgiPlusVarStruct = (int)getenv("CGIPLUSDEMO$STRUCT");
time (&UnixTime);
UnixTmPtr = localtime (&UnixTime);
if (!strftime (FirstUsedDateTime, sizeof(FirstUsedDateTime),
"%a, %d %b %Y %T", UnixTmPtr))
strcpy (FirstUsedDateTime, "[error]");
/* demonstrate the ease with which it may operate in both environments */
IsCgiPlus = (CgiPlusEofPtr = getenv("CGIPLUSEOF"));
do {
time (&UnixTime);
UnixTmPtr = localtime (&UnixTime);
if (!strftime (NowDateTime, sizeof(NowDateTime),
"%a, %d %b %Y %T", UnixTmPtr))
strcpy (NowDateTime, "[error]");
if (IsCgiPlus)
CgiPlusDemo ();
else
CgiStandardDemo ();
} while (IsCgiPlus);
exit (1);
}
/*****************************************************************************/
/*
Using standard CGI. Get CGI variable data using getenv(), not using the
function CgiLibVar() illustrated below.
*/
CgiStandardDemo ()
{
char *cptr;
/*********/
/* begin */
/*********/
if (Debug) fprintf (stdout, "CgiStandardDemo()\n");
fprintf (stdout,
"Content-Type: text/plain\n\
Expires: Thu, 01 Jan 1970 00:00:01 GMT\n\
\n\
Number of times used: %d (standard CGI)\n\
First used: %s\n\
Now: %s\n\
\n",
++UsageCounter, FirstUsedDateTime, NowDateTime);
if (cptr = getenv("WWW_REMOTE_ADDR"))
fprintf (stdout, "Remote-Addr: %s\n", cptr);
else
fprintf (stdout, "Remote-Addr: NOT FOUND!\n");
}
/*****************************************************************************/
/*
Alternate between the two methods of obtaining CGI variables in the CGIplus
environment. First, using the function CgiLibVar(), which allows specific
variable names to be queried. Second, using a simple read of <stdin>,
checking for the variable names required.
*/
CgiPlusDemo ()
{
static int WasCgiPlusVarStruct = 0;
char *cptr;
/*********/
/* begin */
/*********/
if (Debug) fprintf (stdout, "CgiPlusDemo()\n");
if (UseCgiPlusVarStruct)
{
/* wait for the next request */
CgiLibVar ("");
fprintf (stdout,
"Content-Type: text/plain\n\
Expires: Thu, 01 Jan 1970 00:00:01 GMT\n\
\n\
Number of times used: %d (CGIplus)\n\
First used: %s\n\
Now: %s\n\
Using: CgiLibVar() in %s mode\n\
\n",
++UsageCounter, FirstUsedDateTime, NowDateTime,
WasCgiPlusVarStruct ? "STRUCT" : "RECORD");
/* list all CGIplus variables names and values one-by-one */
while (cptr = CgiLibVar ("*"))
{
if (!strncmp (cptr, "WWW_REMOTE_HOST=", 16))
fprintf (stdout, "Remote-Host: %s\n", cptr+16);
else
fprintf (stdout, "|%s|\n", cptr);
}
/* query on the supplied variable name */
fprintf (stdout, "\n");
if (*(cptr = CgiLibVar ("WWW_REMOTE_ADDR")))
fprintf (stdout, "Remote-Addr: %s\n", cptr);
else
fprintf (stdout, "Remote-Addr: NOT FOUND!\n");
/* illustrate variable query when not found */
if (*(cptr = CgiLibVar ("WWW_BOGUS_VARIABLE")))
fprintf (stdout, "Bogus-Variable: %s\n", cptr);
else
fprintf (stdout, "Bogus-Variable: NOT FOUND!\n");
if (UseCgiPlusVarStruct)
{
if (!WasCgiPlusVarStruct) CgiLibCgiPlusSetVarStruct ();
WasCgiPlusVarStruct = 1;
}
else
if (WasCgiPlusVarStruct)
{
CgiLibCgiPlusSetVarRecord ();
WasCgiPlusVarStruct = 0;
}
}
else
{
/* process the variables using a simple read loop */
CgiPlusReader ();
}
/* record-oriented <stdout>, no need to flush, write end-of-output line */
fprintf (stdout, "%s\n", CgiPlusEofPtr);
}
/*****************************************************************************/
/*
CGIplus variable access method 1 (simple).
Use a simple loop to read lines from standard input. Detect specific CGI
variables by checking the leading section of these lines for the required
variable name. The value may then be extracted from the remaining section.
*/
CgiPlusReader ()
{
# define CGIPLUS_LINE_SIZE 1024
int LineCount = 0;
char *cptr;
char Line [CGIPLUS_LINE_SIZE];
FILE *CgiPlusIn;
/*********/
/* begin */
/*********/
if (Debug) fprintf (stdout, "CgiPlusReader()\n");
if (!(CgiPlusIn = fopen (getenv("CGIPLUSIN"), "r")))
exit (vaxc$errno);
/* wait for request, discard initial record */
if (!(fgets (Line, sizeof(Line), CgiPlusIn))) exit (vaxc$errno);
fprintf (stdout,
"Content-Type: text/plain\n\
\n\
Number of times used: %d (CGIplus)\n\
First used: %s\n\
Now: %s\n\
Using: CgiPlusReader()\n\
\n",
++UsageCounter, FirstUsedDateTime, NowDateTime);
for (;;)
{
if ((fgets (Line, sizeof(Line), CgiPlusIn))) exit (vaxc$errno);
/* first empty line signals the end of CGIplus variables */
if (Line[0] == '\n') break;
/* remove the trailing newline */
for (cptr = Line; *cptr && *cptr != '\n'; cptr++);
*cptr = '\0';
/* select only the variable(s) we are interested in */
if (!strncmp (Line, "WWW_REMOTE_HOST=", 16))
fprintf (stdout, "Remote-Host: %s\n", Line+16);
else
fprintf (stdout, "|%s|\n", Line);
}
fclose (CgiPlusIn);
}
/*****************************************************************************/