J CGIPLUSCALLOUTV1.0 4-NOV-2021 10:08
VSI C V7.4-002
$READONLY$ i $CODE$ $LITERAL$ $LINK$ , $DATA$ ( J MAIN 0 J X ` PROCESSREQUEST ( J P __MAIN
@ 6 =
= # ~P ^X ^` c G# GL H =D ]@ }< 8 " ݶ0 #( =# > L H =D ]@ }< 8 4G0 B8 b @Zkb# @G4GBb @Zk c GP ]X ]` p #k# ~ ^ ^ GGGGGtG8 B@ b @ZkG( B0 b @Zk / G4GH BP b @Zk"4Gh Bp b / @Zkb# @GX B` b @ZkÐ# ~P^X^` G# G` X " ( 0 }gK1 J1'JqG0 }"x B = }gK2@J2GJrG } " !0 @ " 1G "1"TGh Bp b @Zk 8 " !@ = "4GBb @ZkH "4GBb @Zk = >8 "@1"@ ]H }G "G( B0 b @ZkGBb @Zk G "1" ]"tG( B0 b @Zk G4GH BP b / @ZkP " ?"TGBb @ZkG8 B@ b @Zk T = G "`1"P ]"G " "G( B0 b @ZkGBb @Zk G " 1" ]"tG( B0 b @Zk G4GH BP b @ZkP " ?"TGBb / @ZkG8 B@ b @Zk T = G "h1"P ]"G "G( B0 b @ZkGBb @Zk G "01" ]"tG( B0 b / @Zk G4GH BP b / @ZkP " ?"TGBb @ZkG8 B@ b @Zk G "@1"P ]"tG( B0 b @Zk GP]X]`p#k 4 G DECC$MAIN 4 b# P DECC$MAIN 4 @ DECC$MAIN 4 G DECC$EXIT 4 b# P DECC$EXIT 4 @ DECC$EXIT < G CGILIBENVIRONMENTINIT < b# CGILIBENVIRONMENTINIT < @ CGILIBENVIRONMENTINIT D G CGILIBENVIRONMENTISCGIPLUS D b# CGILIBENVIRONMENTISCGIPLUS D @ CGILIBENVIRONMENTISCGIPLUS 4 G ( DECC$EXIT 4 b# DECC$EXIT 4 $ @ ( DECC$EXIT 4 4 G D CGILIBVAR 4 8 b# CGILIBVAR 4 @ @ D CGILIBVAR < P G \ CGILIBCGIPLUSEOF < T b# CGILIBCGIPLUSEOF < X @ \ CGILIBCGIPLUSEOF <
G CGILIBRESPONSEHEADER < b# X CGILIBRESPONSEHEADER <
@ CGILIBRESPONSEHEADER 4 0 G < DECC$GETENV 4 4 b# X DECC$GETENV 4 8 @ < DECC$GETENV 4 L G X DECC$GETENV 4 P b# X DECC$GETENV 4 T @ X DECC$GETENV 4 G DECC$GXFPRINTF 4 b# X DECC$GXFPRINTF 4 @ DECC$GXFPRINTF < G CGILIBCGIPLUSESC < b# X CGILIBCGIPLUSESC < @ CGILIBCGIPLUSESC 4 G DECC$GXFPRINTF 4 b# X DECC$GXFPRINTF 4 @ DECC$GXFPRINTF 4 G DECC$FFLUSH 4 b# X DECC$FFLUSH 4 @ DECC$FFLUSH < G CGILIBCGIPLUSINGETS < b# X CGILIBCGIPLUSINGETS < @ CGILIBCGIPLUSINGETS < G CGILIBCGIPLUSEOT <
b# X CGILIBCGIPLUSEOT < @ CGILIBCGIPLUSEOT 4 8 G D DECC$GXFPRINTF 4 < b# X DECC$GXFPRINTF 4 @ @ D DECC$GXFPRINTF
< H G T CGILIBCGIPLUSESC < L b# X CGILIBCGIPLUSESC < P @ T CGILIBCGIPLUSESC 4 p G | DECC$GXFPRINTF 4 t b# X DECC$GXFPRINTF 4 x @ | DECC$GXFPRINTF 4 G DECC$FFLUSH 4 b# X DECC$FFLUSH 4 @ DECC$FFLUSH < G CGILIBCGIPLUSINGETS < b# X CGILIBCGIPLUSINGETS < @ CGILIBCGIPLUSINGETS < G CGILIBCGIPLUSEOT <
b# X CGILIBCGIPLUSEOT < @ CGILIBCGIPLUSEOT 4 G DECC$GXFPRINTF 4 b# X DECC$GXFPRINTF 4 @ DECC$GXFPRINTF < G CGILIBCGIPLUSESC < b# X CGILIBCGIPLUSESC < @ CGILIBCGIPLUSESC 4 $ G 4 DECC$GXFPRINTF 4 ( b# X DECC$GXFPRINTF 4 0 @ 4 DECC$GXFPRINTF 4 D G T DECC$FFLUSH 4 H b# X DECC$FFLUSH 4 P @ T DECC$FFLUSH < ` G l CGILIBCGIPLUSINGETS < d b# X CGILIBCGIPLUSINGETS < h @ l CGILIBCGIPLUSINGETS < p G | CGILIBCGIPLUSEOT <
t b# X CGILIBCGIPLUSEOT < x @ | CGILIBCGIPLUSEOT 4 G DECC$GXFPRINTF 4 b# X DECC$GXFPRINTF 4 @ DECC$GXFPRINTF
= ttpd/ /wasd_roT:[SRC.H DECC$GETENV CGILIBCGIPLUSINGETS CGILIBCGIPLUSESC 7 DECC$GA_STDOUT = 0P " ` ; = p ( ; DECC$GXFPRINTF CGILIBCGIPLUSEOT DECC$FFLUSH = TTPD] WASD_ROO
CGILIBRESPONSEHEADER = ot/src/h= 0 " ; = 0 ( CGILIBENVIRONMENTISCGIPLUS CGILIBENVIRONMENTINIT DECC$EXIT CGILIBCGIPLUSEOF CGILIBVAR = 0P " ; = p 7 DECC$$SHELL_HANDLER= DECC$MAIN
d = =
text/html = CGIPLUSESC ( = CGIPLUSEOT 8 =
MAP-PATH: %s H =
MAP-FILE: %s X = UNKNOWN: %s h = ( CGIPLUSCALLOUT.C
Usage count: %d
This script provides a simple demonstration of the CGIplus callout
facility, used to suspend normal script output and communicate directly with
the server. This allows the script to request information from the server,
or set certain script operating parameters, etc.
To begin an callout the CGIPLUSESC environment variable (logical
name) is output as a record. For this script it has a value of:
%s
(but of course is not static, and varies each time the script is first
executed).
A single-record script request followed by a single-record server response
dialog may then be engaged in.
To end an callout the CGIPLUSEOT environment variable (logical
name) is output as a record. For this script it has a value of:
%s
(and also will vary each time the script is first executed).
Normal script output (to the browser) is then resumed. When in
callout mode one or more request/responses may be made. Normal and
callout output may be interleaved during a script response, as this script
illustrates.
Example Behaviour
- Translating a URL-style path to a VMS file specification:
%s
The request sent to the server was:
MAP-PATH: %s
= The full server response was:
%s
Yielding a file specification of:
%s
- Now a translation of a VMS file specification into a URL-style path:
%s
The request sent to the server was:
MAP-FILE: %s
= The full server response was:
%s
Yielding a path of:
%s
- Finally an error response to an unknown callout request:
The request sent to the server was:
UNKNOWN?: %s
The full server response was:
%s
Comments
Success responses begin with an HTTP-like "200",
other responses with appropriate status codes.
( =
D = 4 , + CGIPLUSCALLOUTVSI C V7.4-002
? =
4 = TRANSFER$BREAK$GO
} =
4 4 =
main 4 =
=
=
` 4 X 4 = ProcessRequest ` 4 = ` X W # ' ! !
= \
s =
4 P 4 = __main 4 =
=
=
DECC$GA_STDOUT DECC$FFLUSH DECC$GXFPRINTF DECC$EXIT DECC$GETENV CGILIBVAR CGILIBCGIPLUSEOF CGILIBCGIPLUSEOT CGILIBCGIPLUSESC CGILIBCGIPLUSINGETS CGILIBENVIRONMENTINIT ( CGILIBENVIRONMENTISCGIPLUS CGILIBRESPONSEHEADER DECC$MAIN DECC$$SHELL_HANDLER
P C$GA