G CGIPLUSLOOPV1.0 4-NOV-2021 10:08
VSI C V7.4-002
P ISCGIPLUS
CGIPLUSEOFPTR i $CODE$ $LITERAL$ $LINK$ ( $DATA$ 0
ISCGIPLUS 0
CGIPLUSEOFPTR ( J P MAIN ( J __MAIN
$ =
$ =
\
= $ # ~P ^X ^` c G# GL H =D ]@ }< 8 " ݶ0 #( =# > L H =D ]@ }< 8 4G0 B8 b @Zkpb# @G4GBb @Zk c GP ]X ]` p #k@# ~^^~ GGG 4GBb @Zk@ " @ C" B R @b sG " 1"TG0 B8 b / @Zk4G4GP BX b @Zk H "4GBb / @ZkG "1"TGBb / @ZkG `GBb @Zk G]]}#k " ?"GtG B b / @Zk GBb @Zk 4GP BX b @Zk D XD "TGTGp Bx b @ZkG .P J > " "X 1"GtG` Bh b @Zk = "GTGBb @Zk 0@G "p 1"G }"G0 B8 b @Zk " !@ pG "1"GtG0 B8 b @Zk 4 G DECC$MAIN 4 b# DECC$MAIN 4 @ DECC$MAIN 4 G DECC$EXIT 4 b# DECC$EXIT 4 @ DECC$EXIT 4 G DECC$GETENV 4 b# P DECC$GETENV 4 @ DECC$GETENV 4 D G T DECC$GXFPRINTF 4
H b# P DECC$GXFPRINTF 4 P @ T DECC$GXFPRINTF 4 \ G h DECC$EXIT 4 ` b# P DECC$EXIT 4 d @ h DECC$EXIT 4 t G DECC$GETENV 4 x b# P DECC$GETENV 4 @ DECC$GETENV 4 G
DECC$FOPEN 4 b# P
DECC$FOPEN 4 @
DECC$FOPEN D G CMA$TIS_VMSERRNO_GET_ADDR D b# P CMA$TIS_VMSERRNO_GET_ADDR D @ CMA$TIS_VMSERRNO_GET_ADDR 4 G
DECC$FGETS 4 b# P
DECC$FGETS 4 @
DECC$FGETS D G CMA$TIS_VMSERRNO_GET_ADDR D b# P CMA$TIS_VMSERRNO_GET_ADDR D @ CMA$TIS_VMSERRNO_GET_ADDR 4 G , DECC$EXIT 4 $ b# P DECC$EXIT 4 ( @ , DECC$EXIT 4 H G T DECC$STRCHR 4 L b# P DECC$STRCHR 4 P @ T DECC$STRCHR 4
| G DECC$STRNCMP 4 b# P DECC$STRNCMP 4
@ DECC$STRNCMP 4 G DECC$STRCPY 4 b# P DECC$STRCPY 4 @ DECC$STRCPY 4 G DECC$GXFPRINTF 4
b# P DECC$GXFPRINTF 4 @ DECC$GXFPRINTF 4 G DECC$GXFPRINTF 4
b# P DECC$GXFPRINTF 4 @ DECC$GXFPRINTF
4
DECC$FOPEN DECC$STRCPY ( CMA$TIS_VMSERRNO_GET_ADDR DECC$GETENV ; 7 DECC$GA_STDOUT = 0 " ; = $ < ; DECC$GXFPRINTF ; DECC$EXIT
DECC$STRNCMP DECC$STRCHR
DECC$FGETS = 0P " ; = p 7 DECC$$SHELL_HANDLER= DECC$MAIN
= r = %s
= CGIPLUSEOF = @ 5 Content-Type: text/html
Sorry! CGIplus only!
X =
CGIPLUSIN h = WWW_REMOTE_HOST= = Content-Type: text/html
Expires: Thu, 01 Jan 1970 00:00:01 GMT
%d. Hello world ... well the %s part of it anyway!
A = 1 ) ( CGIPLUSLOOPVSI C V7.4-002
? =
P 4 = TRANSFER$BREAK$GO
=
4 P 4 =
main 4 = M E D X
$ v
< t
= X
s =
4 4 = __main 4 =
X
=
=
@ DECC$GA_STDOUT DECC$GXFPRINTF
DECC$FOPEN
DECC$FGETS DECC$STRCHR DECC$STRCPY DECC$STRNCMP ( CMA$TIS_VMSERRNO_GET_ADDR DECC$GETENV DECC$EXIT DECC$MAIN DECC$$SHELL_HANDLER
C$GA