F CGI-MAILTOV1.028-MAR-2000 09:59DEC C V6.0-001  $ABS$i`$CODE$ $LITERAL$0$LINK$$DATA$$BSS$ $READONLY_ADDR$ $READONLY$DECC$GA_STDERRDECC$GXFPRINTFDECC$GXSPRINTF DECC$GXSSCANFDECC$__UTC_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$STRCHR DECC$STRLENMAIL$SEND_BEGIN MAIL$SEND_ADD_ATTRIBUTE MAIL$SEND_ADD_ADDRESS MAIL$SEND_ADD_BODYPART MAIL$SEND_MESSAGE MAIL$SEND_END(JMAIN SYS$SETPRV(J__MAIN DECC$MAIN DECC$EXIT DECC$$SHELL_HANDLER =h`# ? ~4G0^8^@cG("#G$" "@[H{=/@Zk$=(b# @0B8bG4G@ZkcG0]8]@P#k#$ ^G@[(~" ^G ~ ޴ L>?&H G8$0~GG> >"H{@@Zk"B "Cb1"tG@Zk "B ](}b1"G@ZkBHL=bTG@ZkPBXb"4G@ZkPBXb` GGTG @Zk0B8b"x""GtG@Zk} iPBXbGGTG@Zk . GQ JG >G@.DJ@/yJKXKFG?"FT/TK_/ "0B8b"1"GtG@ZkBb"4G]"""G@Zk=B"bC BP=".DTGUJ>@Zk=D=4G4G=`Bhb @Zk Bb4G`"@Zk BbG("TG@Zk Bb4G"@ZkBb} ="DDx"TG@Zk`Bhb4G4G@Zk Bb4G`"@Zk BbGTG"@ZkPBXbh"4G@Zk B(bG4G@Zk G"Bb0@4G@Zk0B8bGGGTG@Zk "/@B@.HbGGPJ> =(]4G2F ="G@ZkBb0"8="8]"tG@Zk (=@BGHbD ="GGG@Zk= Bb X"TG@ZkBb "GGG"GG$@ZkBb"="TG@ZkBbG4G@Zk vHBb@G4G}@Zk =( vH@BHb?&@0D 4G ="GGG@ZkBb0"="8]"tG@Zk BbC "TG@ZkF/BbG4G@Zk8<=@& vHB=@0"="8]"tG}b@Zk BbCTG"@Zk#PBXbX"4G@Zk "0B*8bG"1"tG@ZkBb"4G@Zk8<}@ _& vHB}@"0"="8]"tGb@Zk BbC"TG@Zk/G0b#@ӴG ="]"b#G@ b#Gb@b#G^@PBXbTGTG@ZkB bC4G@Zk@8DB bG4G@ZkB b@8D 4G@ZkBbG4G@Zk@P@ @8DGhb# @cGC70B& ]8b"""tG@ZkBb"4GG@Zk8ݠ<@= vHBb &"@ݰ0"=="8]"ݲtG@ZkB"p""GðB b4G@Zk0B ]8bP@"P""GG@Zk ø"p""G0B8bGGG@ZkBb"4G@Zk8ݠ<=@}ݰ & vHB=@}"0"="8]"tGb@ZkGhb#@GG0b#W@G^ B=bTG"@ZkA B=bTG"@Zk9Bb0"8="8]"tG@Zk BbC`"TG@Zk(@BHb0"8="8]"tG@Zk }(@BHbdD`G ="GGG@Zk= B bTG0"@Zk Bb"4G/@Zk Bb4G@ZkG ] ] } ݤ 4G #k0;#~^^~ GG0b/ B(bGTG@Zk.PJ >CGGG]]} 0#k//#~^^~ GGGp[x{GTG@Zk/ . Q J >#G]]} 0#k;#~^^~ GGb#c  B/bTGTG@Zk.PJ >C/GG]]} 0#k#4G^([~^ ~(08޴@HGGGG0{GG@ZkC+$,HBPb"$H]"D 8""tG%Q@@Zk. qHPJc F>/uHxD@.TJc F>.xH/WJc F/> %1@/G]] }(08ݤ@HP#k43HG` DECC$MAIN44Lb# DECC$MAIN43\@` DECC$MAIN41pG DECC$EXIT42tb# DECC$EXIT41@ DECC$EXIT4G SYS$SETPRV 4b# SYS$SETPRV4@ SYS$SETPRV4G@DECC$GXFPRINTF40b#DECC$GXFPRINTF4<@@DECC$GXFPRINTF4HGhDECC$GXFPRINTF4Xb#DECC$GXFPRINTF4d@hDECC$GXFPRINTF4!hG CGI_INIT_ENV4"tb# CGI_INIT_ENV4!|@ CGI_INIT_ENV4GCGI_INFO4b#CGI_INFO4@CGI_INFO4G DECC$STRCHR4b# DECC$STRCHR4@ DECC$STRCHR4GDECC$GXSPRINTF4b#DECC$GXSPRINTF4@DECC$GXSPRINTF4G DECC$STRCHR4b# DECC$STRCHR4@ DECC$STRCHR4hGDECC$GXSPRINTF4lb#DECC$GXSPRINTF4@DECC$GXSPRINTF<#GCGI_TRANSLATE_PATH<$b#CGI_TRANSLATE_PATH<#@CGI_TRANSLATE_PATH4GDECC$__UTC_STAT4b#DECC$__UTC_STAT4@DECC$__UTC_STAT<G CGI_BEGIN_OUTPUT< b#CGI_BEGIN_OUTPUT<@ CGI_BEGIN_OUTPUT4G$ CGI_PRINTF4b# CGI_PRINTF4 @$ CGI_PRINTF4(G@ CGI_PRINTF4,b# CGI_PRINTF4<@@ CGI_PRINTF4DGX CGI_PRINTF4Hb# CGI_PRINTF4T@X CGI_PRINTF4\G CGI_PRINTF4`b# CGI_PRINTF4|@ CGI_PRINTF<GCGI_BEGIN_OUTPUT< b#CGI_BEGIN_OUTPUT<@CGI_BEGIN_OUTPUT4G CGI_PRINTF4b# CGI_PRINTF4@ CGI_PRINTF4G CGI_PRINTF4b# CGI_PRINTF4@ CGI_PRINTF4GCGI_INFO4b#CGI_INFO4@CGI_INFO4 G DECC$ATOI4 b# DECC$ATOI4 @ DECC$ATOI4+G DECC$MALLOC4, b# DECC$MALLOC4+@ DECC$MALLOC4 G8CGI_READ4 b#CGI_READ4 4@8CGI_READ4PG SYS$SETPRV4\b# SYS$SETPRV4@ SYS$SETPRV4-GMAIL$SEND_BEGIN4.b#MAIL$SEND_BEGIN4-@MAIL$SEND_BEGIN4G SYS$SETPRV4b# SYS$SETPRV4@ SYS$SETPRV 4G CGI_PRINTF4b# CGI_PRINTF4@ CGI_PRINTF4G8 LIB$GETJPI4b# LIB$GETJPI44@8 LIB$GETJPI4/8GPSTR$TRIM40<b#STR$TRIM4/L@PSTR$TRIM4PGd DECC$STRLEN4Tb# DECC$STRLEN4`@d DECC$STRLEN4hG DECC$STRLEN4lb# DECC$STRLEN4@ DECC$STRLEN4G SYS$SETPRV4b# SYS$SETPRV4@ SYS$SETPRV< GMAIL$SEND_ADD_ATTRIBUTE< b#MAIL$SEND_ADD_ATTRIBUTE< @MAIL$SEND_ADD_ATTRIBUTE4G CGI_PRINTF4b# CGI_PRINTF4@ CGI_PRINTF4 G4 DECC$STRLEN4$b# DECC$STRLEN40@4 DECC$STRLEN<%LGMAIL$SEND_ADD_ADDRESS<&tb#MAIL$SEND_ADD_ADDRESS<%|@MAIL$SEND_ADD_ADDRESS4G CGI_PRINTF4b# CGI_PRINTF4@ CGI_PRINTF4GCGI_INFO4b#CGI_INFO4@CGI_INFO4GDECC$GXSPRINTF4b#DECC$GXSPRINTF4@DECC$GXSPRINTF4G DECC$STRLEN4b# DECC$STRLEN4@ DECC$STRLEN< GDMAIL$SEND_ADD_BODYPART<8b#MAIL$SEND_ADD_BODYPART<@@DMAIL$SEND_ADD_BODYPART4HGh CGI_PRINTF4Tb# CGI_PRINTF4d@h CGI_PRINTF4G DECC$STRCHR4b# DECC$STRCHR4@ DECC$STRCHR4G DECC$STRLEN4b# DECC$STRLEN4@ DECC$STRLEN4G DECC$STRLEN4b# DECC$STRLEN4 @ DECC$STRLEN4G0 DECC$STRLEN4b# DECC$STRLEN4,@0 DECC$STRLEN40GH DECC$STRLEN48b# DECC$STRLEN4D@H DECC$STRLEN4xGDECC$GXSPRINTF4b#DECC$GXSPRINTF4@DECC$GXSPRINTF4G DECC$STRLEN4b# DECC$STRLEN4@ DECC$STRLEN<G MAIL$SEND_ADD_BODYPART<b#MAIL$SEND_ADD_BODYPART<@ MAIL$SEND_ADD_BODYPART4 G, DECC$STRLEN4 b# DECC$STRLEN4( @, DECC$STRLEN4, GP DECC$GXSPRINTF 44 b#DECC$GXSPRINTF4L @P DECC$GXSPRINTF4` Gx DECC$GXSPRINTF4d b#DECC$GXSPRINTF4t @x DECC$GXSPRINTF4x G DECC$STRLEN4| b# DECC$STRLEN4 @ DECC$STRLEN< G MAIL$SEND_ADD_BODYPART< b#MAIL$SEND_ADD_BODYPART< @ MAIL$SEND_ADD_BODYPART4 G, CGI_PRINTF4 b# CGI_PRINTF4( @, CGI_PRINTF44 GL CGI_PRINTF4< b# CGI_PRINTF4H @L CGI_PRINTF<)P Gl MAIL$SEND_MESSAGE<*T b#MAIL$SEND_MESSAGE<)h @l MAIL$SEND_MESSAGE4p G CGI_PRINTF4t b# CGI_PRINTF4 @ CGI_PRINTF4 G MAIL$SEND_END4 b# MAIL$SEND_END4 @ MAIL$SEND_END4 G SYS$SETPRV4 b# SYS$SETPRV4 @ SYS$SETPRV4 G CGI_PRINTF4 b# CGI_PRINTF4 @ CGI_PRINTF4' G STR$FREE1_DX4( b# STR$FREE1_DX4' @ STR$FREE1_DX4$ G4 CGI_PRINTF4( b# CGI_PRINTF40 @4 CGI_PRINTF4 G DECC$STRCHR4 b# DECC$STRCHR4 @ DECC$STRCHR44 GL DECC$STRCHR48 {# DECC$STRCHR4H @L DECC$STRCHR4 G DECC$STRCHR4 b#8 DECC$STRCHR4 @ DECC$STRCHR4< G DECC$STRLEN4p b#X DECC$STRLEN4| @ DECC$STRLEN4 G DECC$GXSSCANF4 b#X DECC$GXSSCANF4 @ DECC$GXSSCANF =8-Send Succeeded: submitted form data mailed 0=8-Send failed: MAIL$SEND_END returned %%X%0X `=@1Send failed: MAIL$SEND_MESSAGE returned %%X%0X =@6Send failed: MAIL$SEND_ADD_BODYPART returned %%X%0X = REMOTE_ADDRESS: %s=@5Send failed: MAIL$SEND_ADD_ADDRESS returned %%X%0X  =@7Send failed: MAIL$SEND_ADD_ATTRIBUTE returned %%X%0X X=8/Send failed: MAIL$SEND_BEGIN returned %%X%0X =0%Send failed: No data from cgi_read =8)Send failed: No data in CONTENT_LENGTH =0#Sending form data as MAIL to: %s =(in user's web directory (=`TCannot send MAIL to %s, no .www_mailable file present content-type: text/plain =((GET)/~%s/.www_mailable=0$Priv mask: %x, previous privs: %x =setprv error: %d ,=0"` ;=0  DECC$STRCHR;=0" ;=0 =0 0 ;=P4  DECC$STRLEN=%02x DECC$GXSSCANF=0  ;=0  LIB$GETJPI( MAIL$SEND_ADD_ATTRIBUTE DECC$ATOI CGI_READ MAIL$SEND_END= %s: %sREMOTE_ADDR8=(CONTENT_LENGTHSMTP%%"%s"` DECC$__UTC_STAT= PATH_INFODECC$GXFPRINTF= MAIL$SEND_ADD_BODYPART7DECC$GA_STDERR CGI_PRINTF=0 ";= \| ;DECC$GXSPRINTF SYS$SETPRVCGI_INFO CGI_BEGIN_OUTPUT=%*c%sH=(%s)P! CGI_INIT_ENV #CGI_TRANSLATE_PATH=%s: %MAIL$SEND_ADD_ADDRESS' STR$FREE1_DX )MAIL$SEND_MESSAGE+ DECC$MALLOC -MAIL$SEND_BEGIN/STR$TRIM=00";=P( 7DECC$$SHELL_HANDLER=1 DECC$EXIT3 DECC$MAIN (= @6= @=0(' CGI-MAILTODEC C V6.0-001 ?= 4=TRANSFER$BREAK$GO J= 44= main4= / / / /  / / / /  /  / / / / / / / / / / / / / / / / / 0 0 0 0 0 0 0 0 !0 !0 "0 +0 +0 +0 +0 /0 20 ?0 B0 ?0 ?0 @0 A0 D0 S0 R0 W0 Z0 W0 X0 W0 X0 Y0 \0   m0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 j0IB 0 0 0 0 $= 4 I := X 4=  = ` 44=getField` 4=80/ 0 0 1$ $=  4 :=  4=  = ! 44="getFieldNameAndValue 4=1)( 1 1 $= $ 4 := t 4=  = " 484=#getRepeatedFieldValue 4=A98 /1 &1 21 :1 $=  4 :=  4=  = 0 4X4= htmlStrcpy