|
Do you have source some source that you want to share? Is there some source that you want to see posted here? If so, Contact Us and we'll be more than happy to help. |
****************************************************************
* Description.. Standard HTTP API Functions *
* Program Name. F.HTTPSTD *
* Author....... Bradley V. Stone *
* BVS/Tools - www.bvstools.com *
* *
* Compile with QTCP/QTMHCGI service program *
****************************************************************
H NOMAIN
****************************************************************
* Global Definitions *
****************************************************************
D WPError DS
D EBytesP 1 4B 0 INZ(40)
D EBytesA 5 8B 0
D EMsgID 9 15
D EReserverd 16 16
D EData 17 56
****************************************************************
* Prototypes *
****************************************************************
D #WrStout PR
D PR_WrStout 1024 VALUE
*
D #RdStin PR
D PR_RcvRec 1024
D PR_RcvLen 9B 0
*
D #GetEnv PR
D PR_EnvRec 1024
D PR_EnvLen 9B 0
D PR_EnvName 64 VALUE
*//////////////////////////////////////////////////////////////*
* (#WrStout) Write HTML to Web Page *
* *
* Use: #WrStout(HTML_string) *
*//////////////////////////////////////////////////////////////*
P #WrStout B EXPORT
*--------------------------------------------------------------*
D #WrStout PI
D WrtDta 1024 VALUE
*
D WrtDtaLen S 9B 0
*--------------------------------------------------------------*
C eval WrtDtaLen = %len(%trim(WrtDta))
*
C CALLB 'QtmhWrStout'
C PARM WrtDta
C PARM WrtDtaLen
C PARM WPError
*--------------------------------------------------------------*
P #WrStout E
*//////////////////////////////////////////////////////////////*
* (#RdStin) Read Standard Input *
* *
* Use: #RdStin(receive_record : receive_record_length) *
*//////////////////////////////////////////////////////////////*
P #RdStin B EXPORT
*--------------------------------------------------------------*
D #RdStin PI
D RcvRec 1024
D RcvLen 9B 0
*
D RcvRecLen S 9B 0
*--------------------------------------------------------------*
C CALLB 'QtmhRdStin'
C PARM RcvRec
C PARM RcvLen
C PARM RcvRecLen
C PARM WPError
*--------------------------------------------------------------*
P #RdStin E
*//////////////////////////////////////////////////////////////*
* (#GetEnv) Get Environment Variables *
* *
* Use: #RdStin(environment_record : *
* environment_record length : *
* environment_variable name) *
* *
* Environment Variables *
* --------------------- *
* AUTH_TYPE *
* CGI_ASCII_CCSID *
* CGI_MODE *
* CGI_EBCDIC_CCSID *
* CONTENT_LENGTH *
* CONTENT_TYPE *
* GATEWAY_INTERFACE *
* HTTP_ACCEPT *
* HTTP_USER_AGENT *
* IBM_CCSID_VALUE *
* PATH_INFO *
* PATH_TRANSLATED *
* QUERY_STRING *
* REMOTE_ADDR *
* REMOTE_HOST *
* REMOTE_IDENT *
* REQUEST_METHOD *
* REMOTE_USER *
* SCRIPT_NAME *
* SERVER_NAME *
* SERVER_PORT *
* SERVER_PROTOCOL *
* SERVER_SOFTWARE *
*//////////////////////////////////////////////////////////////*
P #GetEnv B EXPORT
*--------------------------------------------------------------*
D #GetEnv PI
D EnvRec 2048
D EnvLen 9B 0
D EnvName 64 VALUE
*
D EnvRecLen S 9B 0 INZ(%size(EnvRec))
D EnvNameLen S 9B 0
*--------------------------------------------------------------*
C eval EnvNameLen = %len(%trim(EnvName))
*
C CALLB 'QtmhGetEnv'
C PARM EnvRec
C PARM EnvRecLen
C PARM EnvLen
C PARM EnvName
C PARM EnvNameLen
C PARM WPError
*--------------------------------------------------------------*
P #GetEnv E
|