F CGI-MAILTOV1.0 4-NOV-2021 10:10 VSI C V7.4-002  $READONLY$i$CODE$ $LITERAL$$LINK$$DATA$0J0GETFIELD8JGETFIELDNAMEANDVALUE8J8GETREPEATEDFIELDVALUE0JX0 HTMLSTRCPY(JMAIN(J__MAIN @6= =#G8^~ _#0"@^4GHcGG#]("@[Hb "G@Zk(=0b#@0BG4G8b@ZkcG8]@]HP#k///# ^_'^G0~"[G~ ^ ~ ޴   > ^( ~0 GGbP&(GHT>(>",8@@Zk8BbtGBb G3"@Zk8"bGB(]0}b#"c @ZkBPTGT=b@ZkB4Gb@" @ZkBG TGGb/@ZkG//'B0" DTP?$%"" SM! 4Gb=G5JFX=@ZkBX=GC`tGb@Zk`TG@ .r H"Q J2F >.UJ>ÀBGGTGb@Zk. GPJ> .%J /%FG .wJVJF>/s"K/?// ,",b#(GB0"DHA;H4GD2J=/"HPG@Fb(@ZkBPCtGd=b@ZkPd=GB"PBG@G"@Zk.pB("]"4Gxb""VJ>/@Zk=B"TG bC Bh=".DUJ>/@Zk///4G`Bhb!4G@Zk B4GP"(b@Zk Bp"GTG(b/@Zk B4G"(b@Zk B( ="TG"(bDD/@Zk//`B4G4Ghb@Zk B4G"(b@Zk B"GTG(b/@ZkB4G"b@ZkBG4Gb@Zk BG "4G(b@Zk[/@B0@4GHb@Zk0BGGGTG8b/@Zk B4GH"(b /@ZkD//@BGG.bPJ>(=0]2F4GG (="/@Zk B8"@="@]"tG(b/@Zk(ݠ0=G(="BGbG GD @Zk = BTGp"(b/ @Zk/B G " ݰGG"GGb/@ZkB"="TGb@ZkBG4Gb/@Zk= vHBGb4G!?H D$C=1v>J F=@Zk= vHBGb4G!?H D$C=1v>J F=(]0}SF@(="GG@ZkB8"="@]"tGb@Zk B"GTG (b@Zk/BG4Gb@Zk vHpBtGxb%HD$C0vJF@=H]D}=]8"}="@]"@Zk B"GTG (b@Zk/B4Gb"0 @ZkPB"?BGG4GD@ZkBGb@ZkBG "GGtGb/@ZkCB"4G,b@H<@Zk vH@BtGHb%HD $C0vJF@=H]D}=]ݰ8"="@]"}@Zk BGTG " (b@ZkNG: tG`b#c@TG/G="]"b#@=Gb#G@=b#G@ӀBTGTGb/@ZkBC4Gb/@Zk@8DB4GbG@Zk@B4G8Db @ZkBG4Gb/@ZkAP@ @8DGb#w@ӹ GC=B0"G4GbG0F GG/@ZkB G"GGtGb@ZkB4G]!b KA*,pH*"A*H0D"*<J.RQJJ>@Zk] vHqSH@BtGHb#*_I @EC]0vJF="@]DH}]8"@]"}@ZkBG#"" wGGGb@ZkB/B4G0B!b@Zk=GBP@*Eb4G*F G GG@ZkB GG"GtGb@Zk=! *Aq Ep EqHPJFW@B BG4Gb@ZkB "GG BtGb@Zk ,@ H < //BG#""GGGb@ZkB4G"b@Zk} vHpSH@BtG"Hb+I `EC}!v>H0D8"=@=H]D}=]}="@]"/@Zk //Gb#/@ GI`b#Gf@ B =TGX"(b@ZkC/ B =TG"(b@Zk;/`B8"@="@]"tGhb@Zk BGTG" (b@Zk*PB8"@="@]"tGXb@Zk(}0]G(="BGbG G jE@/@Zk = B"TG(b /@Zk //B4Gb"@Zk B4G("(b@ZkG ] ]4G } ݤ   = ]( }0 @ #k//0HFFS//#0;~^^~ GGGTG0b B(b G/@Zk.PJ >#GG]]} 0#/k///#G =~^^~ GGG//[GGTGb{@Zk/ . Q J >#G]]} 0#/k///#;~^^~ GGbc ///BTGTGb@Zk//.PJ >#GG]]} 0#k/#4G^8[~^ ~(08޴@HPGGGGG@b@Zk///0GG $,(B"]"0btG$HE G%Q@ @Zk=.q#HPJc F>///xEuH @.TJc F> ///.xIWJc F> %1@G]] }(08ݤ@HP`#k47HGd DECC$MAIN48Lb# DECC$MAIN47`@d DECC$MAIN45tG DECC$EXIT46b# DECC$EXIT45@ DECC$EXIT4G8 SYS$SETPRV4b# SYS$SETPRV44@8 SYS$SETPRV4DGdDECC$GXFPRINTF4Hb#DECC$GXFPRINTF4`@dDECC$GXFPRINTF4pGDECC$GXFPRINTF4|b#DECC$GXFPRINTF4@DECC$GXFPRINTF4G CGI_INIT_ENV4b# CGI_INIT_ENV4@ CGI_INIT_ENV4GCGI_INFO4b#CGI_INFO4@CGI_INFO4G DECC$STRCHR4b# DECC$STRCHR4@ DECC$STRCHR4G8 DECC$STRLEN4b# DECC$STRLEN44@8 DECC$STRLEN48GX DECC$MEMCPY4Pb# DECC$MEMCPY4T@X DECC$MEMCPY4G DECC$STRCHR4b# DECC$STRCHR4@ DECC$STRCHR4(Gl DECC$STRLEN4`b# DECC$STRLEN4h@l DECC$STRLEN4lG DECC$MEMCPY4b# DECC$MEMCPY4@ DECC$MEMCPY4#GOTS$MOVE4#@OTS$MOVE<'GCGI_TRANSLATE_PATH<(b#CGI_TRANSLATE_PATH<'@CGI_TRANSLATE_PATH<)G$DECC$__LONG_GID_STAT<*b#DECC$__LONG_GID_STAT<) @$DECC$__LONG_GID_STAT<%@GTCGI_BEGIN_OUTPUT<&Db#CGI_BEGIN_OUTPUT<%P@TCGI_BEGIN_OUTPUT4TGh CGI_PRINTF4 `b# CGI_PRINTF4d@h CGI_PRINTF4hG CGI_PRINTF4 xb# CGI_PRINTF4@ CGI_PRINTF4G CGI_PRINTF4 b# CGI_PRINTF4@ CGI_PRINTF4G CGI_PRINTF4 b# CGI_PRINTF4@ CGI_PRINTF<%GCGI_BEGIN_OUTPUT <&b#CGI_BEGIN_OUTPUT<%@CGI_BEGIN_OUTPUT4G CGI_PRINTF4 b# CGI_PRINTF4@ CGI_PRINTF4G CGI_PRINTF4 b# CGI_PRINTF4@ CGI_PRINTF4G(CGI_INFO4 b#CGI_INFO4$@(CGI_INFO41(G< DECC$ATOI424b# DECC$ATOI418@< DECC$ATOI4<GX CGI_PRINTF4 Pb# CGI_PRINTF4T@X CGI_PRINTF4 `Gt DECC$MALLOC4 lb# DECC$MALLOC4 p@t DECC$MALLOC4 tGCGI_READ4 b#CGI_READ4 @CGI_READ4G CGI_PRINTF4 b# CGI_PRINTF4@ CGI_PRINTF4G SYS$SETPRV4b# SYS$SETPRV4@ SYS$SETPRV4G$MAIL$SEND_BEGIN4b#MAIL$SEND_BEGIN4 @$MAIL$SEND_BEGIN44GX SYS$SETPRV4<b# SYS$SETPRV4T@X SYS$SETPRV4\Gx CGI_PRINTF4 hb# CGI_PRINTF4t@x CGI_PRINTF43G LIB$GETJPI44b# LIB$GETJPI43@ LIB$GETJPI4/GSTR$TRIM40b#STR$TRIM4/@STR$TRIM4G DECC$STRLEN4b# DECC$STRLEN4@ DECC$STRLEN4G( DECC$STRLEN4b# DECC$STRLEN4$@( DECC$STRLEN40G SYS$SETPRV48b# SYS$SETPRV4@ SYS$SETPRV<+GMAIL$SEND_ADD_ATTRIBUTE<,b#MAIL$SEND_ADD_ATTRIBUTE<+@MAIL$SEND_ADD_ATTRIBUTE4G CGI_PRINTF4 b# CGI_PRINTF4@ CGI_PRINTF4G DECC$STRLEN4b# DECC$STRLEN4@ DECC$STRLEN<GHMAIL$SEND_ADD_ADDRESS<b#MAIL$SEND_ADD_ADDRESS<D@HMAIL$SEND_ADD_ADDRESS4HGh CGI_PRINTF4 \b# CGI_PRINTF4d@h CGI_PRINTF4pGCGI_INFO4xb#CGI_INFO4@CGI_INFO4#GOTS$MOVE4#@OTS$MOVE4G DECC$STRLEN4b# DECC$STRLEN4@ DECC$STRLEN4G DECC$MEMCPY 4b# DECC$MEMCPY4@ DECC$MEMCPY4G DECC$STRLEN4b# DECC$STRLEN4 @ DECC$STRLEN<! Gl MAIL$SEND_ADD_BODYPART<" b#MAIL$SEND_ADD_BODYPART<!h @l MAIL$SEND_ADD_BODYPART4l G CGI_PRINTF4  b# CGI_PRINTF4 @ CGI_PRINTF4 G DECC$STRCHR4 b# DECC$STRCHR4 @ DECC$STRCHR4 G$ DECC$STRLEN4 b# DECC$STRLEN4 @$ DECC$STRLEN4, GH DECC$STRLEN48 b# DECC$STRLEN4D @H DECC$STRLEN4L Gh DECC$STRLEN4\ b# DECC$STRLEN4d @h DECC$STRLEN4h G DECC$STRLEN4x b# DECC$STRLEN4 @ DECC$STRLEN4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4 G DECC$MEMCPY4 b# DECC$MEMCPY4 @ DECC$MEMCPY4 GD DECC$STRLEN4 b# DECC$STRLEN4@ @D DECC$STRLEN<!P G MAIL$SEND_ADD_BODYPART<"X b#MAIL$SEND_ADD_BODYPART<! @ MAIL$SEND_ADD_BODYPART4 G DECC$GXSPRINTF4 b#DECC$GXSPRINTF4 @ DECC$GXSPRINTF4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4 G( DECC$STRLEN4 b# DECC$STRLEN4$ @( DECC$STRLEN4( GH DECC$MEMCPY4@ b# DECC$MEMCPY4D @H DECC$MEMCPY4t G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4 G DECC$MEMCPY4 b# DECC$MEMCPY4 @ DECC$MEMCPY4 G DECC$GXSPRINTF4 b#DECC$GXSPRINTF4 @ DECC$GXSPRINTF4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN<! Gd MAIL$SEND_ADD_BODYPART<" b#MAIL$SEND_ADD_BODYPART<!` @d MAIL$SEND_ADD_BODYPART4 G CGI_PRINTF4  b# CGI_PRINTF4 @ CGI_PRINTF4 G CGI_PRINTF4  b# CGI_PRINTF4 @ CGI_PRINTF< G MAIL$SEND_MESSAGE< b#MAIL$SEND_MESSAGE< @ MAIL$SEND_MESSAGE4 G CGI_PRINTF4 b# CGI_PRINTF P4@ CGI_PRINTF4  G< MAIL$SEND_END44b# MAIL$SEND_END4 8@< MAIL$SEND_END4LGt SYS$SETPRV4Tb# SYS$SETPRV4p@t SYS$SETPRV4xG CGI_PRINTF4 b# CGI_PRINTF4@ CGI_PRINTF4-G STR$FREE1_DX4.b# STR$FREE1_DX4-@ STR$FREE1_DX4G CGI_PRINTF4 b# CGI_PRINTF4@ CGI_PRINTF4hG DECC$STRCHR4lb# DECC$STRCHR4@ DECC$STRCHR4G, DECC$STRCHR4${# DECC$STRCHR4(@, DECC$STRCHR4G DECC$STRCHR4b#8 DECC$STRCHR4@ DECC$STRCHR4<G DECC$STRLEN4|b#X DECC$STRLEN4@ DECC$STRLEN4G DECC$GXSSCANF4b#X DECC$GXSSCANF4@ DECC$GXSSCANF 2=REMOTE_ADDRESS: X=0"0;=0  DECC$STRCHR;=0";=0 =0 0;=`8  DECC$GXSSCANF DECC$STRLEN=0 ;=0 MAIL$SEND_BEGIN CGI_READ DECC$MALLOC MAIL$SEND_END MAIL$SEND_MESSAGE MAIL$SEND_ADD_ADDRESS=/.www_mailable CGI_INIT_ENVDECC$GXSPRINTFDECC$GXFPRINTF;pCGI_INFO SYS$SETPRV DECC$MEMCPY=0 ";=@ T  CGI_PRINTF=(null)7DECC$GA_STDERR !MAIL$SEND_ADD_BODYPART8OTS$MOVE %CGI_BEGIN_OUTPUT 'CGI_TRANSLATE_PATH= (GET)/~0 )DECC$__LONG_GID_STAT(+MAIL$SEND_ADD_ATTRIBUTE- STR$FREE1_DX/STR$TRIM1 DECC$ATOI3 LIB$GETJPI=08";=P0 7DECC$$SHELL_HANDLER=5 DECC$EXIT7 DECC$MAIN l===(%s)=%*c%s =%*c%s(=%02x0= setprv error: %d H=0#Priv mask: %x, previous privs: %x p= PATH_INFO=(content-type: text/plain =@7Cannot send MAIL to %s, no .www_mailable file present =(in user's web directory =(content-type: text/plain =0"Sending form data as MAIL to: %s @=CONTENT_LENGTHP=XLSend failed: No data in CONTENT_LENGTH Send failed: No data from cgi_read =8.Send failed: MAIL$SEND_BEGIN returned %%X%0X =@6Send failed: MAIL$SEND_ADD_ATTRIBUTE returned %%X%0X =@4Send failed: MAIL$SEND_ADD_ADDRESS returned %%X%0X @= REMOTE_ADDRP=@5Send failed: MAIL$SEND_ADD_BODYPART returned %%X%0X =@5Send failed: MAIL$SEND_ADD_BODYPART returned %%X%0X =@5Send failed: MAIL$SEND_ADD_BODYPART returned %%X%0X =h\Send failed: MAIL$SEND_MESSAGE returned %%X%0X Send failed: MAIL$SEND_END returned %%X%0X X=8,Send Succeeded: submitted form data mailed = @=0(' CGI-MAILTOVSI C V7.4-002 ?= 4=TRANSFER$BREAK$GO X= 44= main4= 9  9 9 9 9 9 9 9  9 9 9 !9 $9 %9 '9 39 49 89 89 99 ;9 ;9 ;9 @9 @9 C9 O9 V9 W9 ]9 ]9 `9 f9 p9 p9  u9 u9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 K  92 9  9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 : : : : : : : 9U 9B ': 2: 8: A:8 : =  = 044=getField04=JBA D: D: P: P: X:, =  = !44="getFieldNameAndValue4=1)( `: n:, =  = "484=#getRepeatedFieldValue4=;32 {: {: : =  = 04X4= htmlStrcpy04=won : : :  :  : : : : : : :0 = T s= 44= __main4= 9 =  =  DECC$GA_STDERRDECC$GXFPRINTFDECC$GXSPRINTF DECC$GXSSCANF DECC$__LONG_GID_STATCGI_INFO CGI_PRINTFCGI_READ CGI_INIT_ENV CGI_BEGIN_OUTPUT CGI_TRANSLATE_PATH LIB$GETJPI DECC$ATOI DECC$MALLOC STR$FREE1_DXSTR$TRIM DECC$MEMCPY DECC$STRCHR DECC$STRLENMAIL$SEND_BEGIN MAIL$SEND_ADD_ATTRIBUTE MAIL$SEND_ADD_ADDRESS MAIL$SEND_ADD_BODYPART MAIL$SEND_MESSAGE MAIL$SEND_END SYS$SETPRV DECC$MAIN DECC$EXIT DECC$$SHELL_HANDLEROTS$MOVE C$GA