E AUTHAGENTV1.0 4-NOV-2021 09:55 VSI C V7.4-002  $READONLY$i|&$CODE$ $LITERAL$$LINK$0JPAUTHAGENTBEGIN8JAUTHAGENTCALLOUT@J&AUTHAGENTCALLOUTRESPONSEERROR @6= =#&GG^~TG" ^(~0GGG#][" p@[ p в"/@Zk0BG"8b@Zk= B}""G""(bG?D=]_F]~"~ (~GG0@Zk=?Dx%D =?F%F=@.@J@.ݦF JDFF///FGGBGtGTGb/@ZkBGB"GtGGb@Zk`BGTGhb@ZkHBGP }""=bGGG@ZkG] ](}0@#k//#@;;"^~_"^~ (0޴8h[@H>P^X~`GGGpb#e"`B..@JDV JF`"<0JCFGGG"D @Zk/@@¦"DhBpbG`0.P.<0JR PJ2FCD"_"""JFp"/GD /@Zk D 㳇///@"+`<3_"¦hBGpb.!.CDJQ !JFG""P"!HaF" D @Zk8BGGTG@b@ZkBGG""tGb@ZkHBGGTGPb@Zk(BGX""4GtG0b¤@Zk> $, 8$H /&d"/ D.RSJGJRTBRAF/ @//.B4G"bUJJ/@Zk$, $H?(B""GGtG0b@Zk 4GŰ//(BGG ""tG0b@Zk/ c(BGG""tG0b@Zk/à/G(b#!@/G]]} (0ݤ8@H=P]X}`p#k/(BGtG""tG0b@ZkG à(b#////@(BGG""tG0bG$!b8B@Zk/= !G?F/F=d.iJ`/ˢ* #/ .WJJWBF/ //I/4Gi#Z[KbGKB/@Zk),)!)H?).)J!" 8$E 5JF !.J.#h/`JG#E[hK!`Gh?.J# (.i(HQ(J!)F(>X.XJ#@.wHJUJ!F>8/8K H/{HZHK#![GH?.J/&,&HB8b$ //*F"/ f.SrJgJRTBRAF/@.J5B@N//.B4G"bUJJ/@Zk&- &I?.J5B@9/(BGG(""tG0bB8"@Zk.} ! E oE}.J/#///jɢ"/ `.TJJTBF/ //.B4G#bWJJ/@Zkf- fI?//g.JCASF/<@///.wJD EVJ!AF>/K CiKD&(,A(H)D(<F-FI!A CtHD/H.RHJTF!AH>.J C{JF H/ZHK[GH?,HC!A +E?H-BJHIGTGb="H=@Zk//@<e-,C eIF HfEHHDDxBLtG""B"b@Zk/@b8D! / $-I*I'IG'AD/ //,B4G$ b@HH/@Zkzˠ8"D! -)H IIH AEn /,B4G$ bGHH/@Zkbˠ8$! D-JIIGIH(AEV /,B4G$ bGHH/@ZkJ,D!HDEBD btGh""@ZkB""GGb/@Zk XE74G 4BGG""tGb_%*J!@Zk C(BGG""tGb@Zk/BG""GtGb/@ZkB(B" GtG0b82"4G@Zk/ (BG""GtG0b/@Zk AADBGGtGb"@Zk cC 0@AC/(BG4G""tG0b8B @Zk///K -I/!///+J&"/ .PJJPBF/ //f.B4G"bStJgJ/@Zk- Ik8" `&,1"A0H'HA1@! D /F.B4Gf"bRSJGJ/@Zk/// xBG4Gb!@Zk cGD㰘(BGG""tG0b 4G/@ZkD C(BGG""tG0b@Zk/K d- dI@5@E ///, H@5@@F&D?.JG$ J =C/BUB`FFF3/s"3KC!CU!C`GyGD,s"HC@U@hEeEES-s"SIC/3,xBGGGA3H"Gb3 #/@ZkHBGGTG` Pb/@ZkZ//(BGG""tG0b@ZkB 2@GGGGb/@ZkF//(BGG`""tG0b@ZkB 2@GGGGb/@Zk2//(BGG""tG0b@G!@ZkHB//#"x "GTGPb@Zkà ðg-jI@ XAE@',A H'<. JGB@H"5BF/ ///. JB5BBGF$/$K/J ///$C5!C!CU!CfG +ErBCDDDq3KD /6,`FGHs"rBD<.J CB5BBFFUB FG {E`J F`S-JSIs"rB @ES=,HC@5@@'DU@7D 9F6DuHDD S/ZSKUGS?d/s"dK?rB@xB""G,_"tGbDTG @Zk//,(hBFH<//(BGGh""tG0b@ @Zkg-@G!fIXD/-H I=$, $H$@ 5!@!F/ ///D. DJDB5AB_BFF?$/$KG$$KC/!CU!CGD`Gx-#xIC@U@DDD-#ICAUAFF(Fx.#xJC/?8,8B)CGb"A8H="G@b8< h #BPB/@Zk ch , @H @C @HE:/ .rHD DQ J  @2F >d.dJ Cz`JF& /Y K:G ?d/dK  @ CaHD/-HIE  @=,H CwH2F .UJF>.JC  @G`/[`K `?h c+ @ c ,A H <(BGtG""tG0b@F!@Zkv-@f! IXE/,GH<.D! JB5BPF/ ///j.J!jJdB5aBBFFJ/JKG$JKC/ACUAC GED,9#HC@U@aEfE&D 9.9#9JC!BU!BFFqF .9#JC/_y/8*C 0CG[yKy? /Š0A/%0A/ E0A/@0AA///XBGGTG`bHA@ZkHBGGTGPb@Zke/(BGGH""tG0b@Zk/S , H@5@D ///- IA5AA&DAE?d.dJG$dJC/aBUaB@FFF`/R"KCCUC[GXGxG,R"HC@U@DDDr-R"rIC/2.XB*DBGTGQ2J`b2>0@A #/@ZkHBGGTGl Pb/@Zk //(BG4G""tG0b@Zk/HB#"x "G GTGPb  @Zk D-DI$A 5!A D/ ///$, $H$@5!@?@ IF )F?d.dJ/J`///dB5aBaBUaBFF@CFYGDjeJ5G /6-DHI @ E=,H C@5@@2D )FU@8D IF6D{H!E E/ZEK @[GE?$/$KCB5BBDUBD SEDxJ EE.TJF>. J@xB""Gs_"tGbDTG @Zk//,B*@GG bTG?!FH<C4G =@ZkBG4Gb@Zk/\ # g///BGG""tGb4G?!@Zk(B//?"(""  GGtG0b@Zk #XDJ H(BGTG""tG0b_!/@Zk CXD: 8(BGG`""tG0b?!/@Zk à #XD* ((BGG""tG0b@Zk/ tG CXD BGGX""tGb$ @ZkR  ,H@5@FE /- I$@5!@?@&FF.JG0@JC/BUBB5BGFFFF","HC@U@@ DD5@'E@ED-"IC!@U!@$@0F&F5!@FaFD T."TJC/B2BGGtGb/@Zk//BGGP""tGb%Zk!@Zk c D-DI@5@E /, H$@5!@?@'FFD.DJXDF_."JG#//XFF/7/"7KCU$CyG/ ,"HCU@`E/ W-"WICUAD/7,"7H,XB1BGTG`bGH<@ZkX e-eI@DA5AA E //, H@5@@*DD?.J/0///.uJD DTJ F>.J @/{JZ@K [G@?%-%I  ,f IGH D<E-EI .rHQ J  2F >.J/.WJ#>X c@F@?//@/@KDC5AC zE @//BGG""tGb$ @Zk BGG""tGb@Zk/ TG@ # h-@ fIXD(,A'H(b# FAOTOOPCOM4=@ FAOTOOPCOM,%GSTRSAME,&b#STRSAME,%@STRSAME4)G VMGETHEAP4*b# VMGETHEAP4)@ VMGETHEAP4'G DECC$STRCPY4(b# DECC$STRCPY4'@ DECC$STRCPY,% G<STRSAME,&4b#STRSAME,%8@<STRSAME4/<Gd REQUESTREDACT40Xb# REQUESTREDACT4/`@d REQUESTREDACT,%pGSTRSAME,&b#STRSAME,%@STRSAME4/G REQUESTREDACT40b# REQUESTREDACT4/@ REQUESTREDACT,%GSTRSAME,&b#STRSAME,%@STRSAME4'G  DECC$STRCPY4(b# DECC$STRCPY4'@  DECC$STRCPY<-GERRORGENERALOVERFLOW<.b#ERRORGENERALOVERFLOW<-@ERRORGENERALOVERFLOW,%0GTSTRSAME,&Db#STRSAME,%P@TSTRSAME47xG VMREALLOCHEAP48b# VMREALLOCHEAP47@ VMREALLOCHEAP,%GSTRSAME,&b#STRSAME,%@STRSAME4)G VMGETHEAP4*b# VMGETHEAP4)@ VMGETHEAP4'G DECC$STRCPY4(b# DECC$STRCPY4'@ DECC$STRCPY,%G STRSAME,&b#STRSAME,%@ STRSAME4)G4 VMGETHEAP4*b# VMGETHEAP4)0@4 VMGETHEAP4'4GT DECC$STRCPY4(Hb# DECC$STRCPY4'P@T DECC$STRCPY,%`G|STRSAME,&tb#STRSAME,%x@|STRSAME4'G DECC$STRCPY4(b# DECC$STRCPY4'@ DECC$STRCPY<-HGtERRORGENERALOVERFLOW<.\b#ERRORGENERALOVERFLOW <-p@tERRORGENERALOVERFLOW45G AUTHVMSGETUAI46b# AUTHVMSGETUAI45@ AUTHVMSGETUAI<GAUTHVMSVERIFYUSER<b#AUTHVMSVERIFYUSER<@AUTHVMSVERIFYUSER4#G DECC$STRNCMP4$ b# DECC$STRNCMP4# @ DECC$STRNCMP,% GD STRSAME,&< b#STRSAME,%@ @D STRSAME,%` G STRSAME,&t b#STRSAME,% @ STRSAME,% G STRSAME,& b#STRSAME,% @ STRSAME,% G STRSAME,& b#STRSAME,% @ STRSAME4# !GD! DECC$STRNCMP4$4!b# DECC$STRNCMP4#@!@D! DECC$STRNCMP<d"G"RESPONSELOCATION<x"b#RESPONSELOCATION<"@"RESPONSELOCATION4#"G" DECC$STRNCMP4$"b# DECC$STRNCMP4#"@" DECC$STRNCMP4)#G# VMGETHEAP4*#b# VMGETHEAP4)#@# VMGETHEAP4#P%Gt% DECC$STRNCMP4$d%b# DECC$STRNCMP4#p%@t% DECC$STRNCMP4#%G% DECC$STRNCMP4$%b# DECC$STRNCMP4#%@% DECC$STRNCMP4%G% ERRORGENERAL4%b# ERRORGENERAL4%@% ERRORGENERAL,&G8&MSGFOR,0&b#MSGFOR,4&@8&MSGFOR48&G\& ERRORGENERAL4<&b# ERRORGENERAL4X&@\& ERRORGENERAL I=%HTTPD-W-AUTHOPCOM, !AZ -AUTHOPCOM-I-SERVICE, !AZ//!AZ -AUTHOPCOM-I-CLIENT, !AZ -AUTHOPCOM-I-USERNAME, "!AZ" in "!AZ" -AUTHOPCOM-I-URI, !AZ !AZ=%HTTPD-W-AUTHOPCOM, !20%D, !AZ -AUTHOPCOM-I-SERVICE, !AZ//!AZ -AUTHOPCOM-I-CLIENT, !AZ -AUTHOPCOM-I-USERNAME, "!AZ" in "!AZ" -AUTHOPCOM-I-URI, !AZ !AZ 8= AUTHAGENT-CALLOUTP=(CALLOUT "!AZ" !UL bytesp= CALLOUT "!AZ" end=CALLOUT "!AZ" begin $  ERRORGENERALDCLBEGIN= AUTHAGENT0=/cgiauth-bin/@MSGFOR=00;=@0  MAPURL_MAP DECC$STRCAT8OTS$MOVE;=* SYSDCLAST=00&;=0( 7 OPCOMMESSAGES= REASON =REDACT-SIZE: DECC$ATOI BODYREADBEGIN= OPCOM NOTICED H=WRITEP= READ+WRITE`=500 p RESPONSELOCATION= SET-COOKIE = VMS-USER  AUTHVMSVERIFYUSER7 DCLHTTPINPUT=RECORD!DICT: WATCHDATADUMP WATCHDATA= !CGIPLUS:=GROUP DICTWATCH=100 (=200 0=000 8=cgi_@ CLIENTHOSTSTRING DECC$ISSPACE! DECC$ISDIGIT;# DECC$STRNCMP7DECC$$GL___CTYPEA=00;=pP %STRSAME7DECC$$GA___CTYPETWATCH Pe5' DECC$STRCPY) VMGETHEAP+ WATCHTHIS -ERRORGENERALOVERFLOW/ REQUESTREDACT=403 8=BODY@=~P1 DECC$STRCMP 3METACONDICTIONARY= STRUCT=!CGI:= !AGENT-END:=!AGENT-BEGIN:5 AUTHVMSGETUAI=FULL7 VMREALLOCHEAP=USER =401 =302 =READ=SCRIPT-META 9 ERRORNOTICED= NOCACHE0= LIFETIME @= REDACT:P=REMOTE-USER `; FAOTOSTDOUT= FAOTOOPCOM  DECC$ISDIGIT DECC$ISSPACE DECC$$GA___CTYPET DECC$$GL___CTYPEA DECC$STRCAT DECC$STRCPY DECC$STRCMP DECC$STRNCMP METACONDICTIONARY AUTHVMSGETUAI AUTHVMSVERIFYUSERSTRSAME BODYREADBEGINDCLBEGIN DCLHTTPINPUT DICTWATCH ERRORGENERAL ERRORGENERALOVERFLOW ERRORNOTICED FAOTOOPCOM FAOTOSTDOUT MAPURL_MAPMSGFOR REQUESTREDACT RESPONSELOCATION CLIENTHOSTSTRING VMGETHEAP VMREALLOCHEAP WATCHDATA WATCHDATADUMP WATCHTHIS DECC$ATOI OPCOMMESSAGESWATCH SYSDCLASTOTS$MOVE PC$IS