[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]
/*****************************************************************************/
/*
connect_example.c
This small program is used to test and exercise the [ServiceConnect] mode of
"request" processing. Assumes the client program is a TELNET application. If
the mapping contains a translated path then output the content of that file.
Otherwise, output selected CGI variables and lines of input to the client
TELNET session.
# WASD_CONFIG_SERVICE
[[*:23]]
[ServiceConnect] enabled
# WASD_CONFIG_MAP
[[*:23]]
###pass * /dka100/wasd/port23.txt response=var=crlf
exec /cgi-bin/* /cgi-bin/* map=once
###redirect * /cgi-bin/connect_example
redirect * /cgi-bin/connect_example/wasd_root/readme.html
BUILD DETAILS
-------------
$ @BUILD_CONNECT_EXAMPLE BUILD
$ @BUILD_CONNECT_EXAMPLE LINK
COPYRIGHT
---------
Copyright (C) 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
---------------
22-FEB-2021 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>
char* CgiVar (char*);
/*****************************************************************************/
/*
*/
main (int argc, char* argv[])
{
int cnt = 0;
char *cptr;
char record [256];
FILE *fptr;
/*********/
/* begin */
/*********/
fputs ("Content-Type: text/plain\r\n", stdout);
fputs ("\r\n", stdout);
if (*(cptr = CgiVar("WWW_PATH_TRANSLATED")))
{
/* there is a translated path so output the file content */
if (!(fptr = fopen (cptr, "r")))
{
fprintf (stdout, "%s %s\n", cptr, strerror(errno));
exit (1);
}
for (;;)
{
if (!fgets (record, sizeof(record), fptr)) break;
fprintf (stdout, "%d. %s", ++cnt, record);
}
}
else
{
/* no translated path - output selected CGI variables and TELNET input */
fprintf (stdout, "%s=%s\n", cptr = "WWW_SERVER_SOFTWARE", CgiVar(cptr));
fprintf (stdout, "%s=%s\n", cptr = "WWW_CONTENT_LENGTH", CgiVar(cptr));
fprintf (stdout, "%s=%s\n", cptr = "WWW_CONTENT_TYPE", CgiVar(cptr));
fprintf (stdout, "%s=%s\n", cptr = "WWW_PATH_INFO", CgiVar(cptr));
fprintf (stdout, "%s=%s\n", cptr = "WWW_PATH_TRANSLATED", CgiVar(cptr));
fprintf (stdout, "%s=%s\n", cptr = "WWW_QUERY_STRING", CgiVar(cptr));
fprintf (stdout, "%s=%s\n", cptr = "WWW_SCRIPT_FILENAME", CgiVar(cptr));
fprintf (stdout, "%s=%s\n", cptr = "WWW_SCRIPT_NAME", CgiVar(cptr));
fprintf (stdout, "%s=%s\n", cptr = "WWW_SERVER_NAME", CgiVar(cptr));
fprintf (stdout, "%s=%s\n", cptr = "WWW_SERVER_PORT", CgiVar(cptr));
if (!(fptr = fopen ("HTTP$INPUT", "r")))
{
fprintf (stdout, "%s\n", strerror(errno));
exit (1);
}
fprintf (stdout, "%s\n", CgiVar("WWW_GATEWAY_ESC"));
fprintf (stdout, "#CLIENT-READ:\n");
fprintf (stdout, "%s\n", CgiVar("WWW_GATEWAY_EOT"));
/* assume it's telnet and discard the first record */
fgets (record, sizeof(record), fptr);
for (;;)
{
fgets (record, sizeof(record), fptr);
if (record[0] == '\n') continue;
if (record[0] == '\r') break;
fprintf (stdout, "%d. %s", ++cnt, record);
}
}
}
/*****************************************************************************/
/*
Return the value of the supplied CGI variable name, or NULL.
*/
char* CgiVar (char *name)
{
static int www = -1;
/*********/
/* begin */
/*********/
if (www < 0)
{
if (getenv ("WWW_SERVER_SOFTWARE"))
www = 1;
else
if (getenv ("SERVER_SOFTWARE"))
www = 0;
else
exit (676);
}
if (www && !strncasecmp(name, "WWW_", 4)) return (getenv (name));
if (!www && strncasecmp(name, "WWW_", 4)) return (getenv (name));
return (getenv (name+4));
}
/*****************************************************************************/