C WEBSOCKV1.0 4-NOV-2021 10:06
VSI C V7.4-002
$READONLY$ i , $CODE$ $LITERAL$ p $LINK$ $BSS$ $DATA$ 0 J WEBSOCKREQUEST 8 J X P WEBSOCKCREATEMAILBOXES 0 J WEBSOCKCLOSE 8 J ` WEBSOCKDASSGNINPUT 8 J @ WEBSOCKCLOSEMAILBOXES 0 J 0
WEBSOCKEND 0 J ` WEBSOCKIFEND 0 J 0 ` WEBSOCKINPUT 0 J WEBSOCKINPUTAST 8 J h WEBSOCKINPUTWRITEAST 0 J 0
WEBSOCKOUTPUT 8 J ` WEBSOCKOUTPUTAST 8 J WEBSOCKOUTPUTWRITEAST 0 J ! WEBSOCKCALLOUT 8 J x # WEBSOCKCALLOUTQIO 8 J H % WEBSOCKCALLOUTQIOAST 0 J 0
WEBSOCKREMOVE 0 J 8 p& WEBSOCKCOUNT 0 J ' WEBSOCKCONTROL 0 J (
WEBSOCKREPORT
WEBSOCKCURRENT 0 WEBSOCKCURRENT
WEBSOCKOUTPUTSIZE 8 WEBSOCKOUTPUTSIZE
WEBSOCKLIST 0 WEBSOCKLIST 8 J WEBSOCKSWITCHRESPONSE
@ 6 =
= #0{4G ~ ^ ^ ~ ( 0 8 [@ H G I GGbh " D_F @ @Zk BG GGtG b @Zk /",. $ HP J 0D28JH @F ( ¤ / . JC / $BG$C0 CH$C4G FO db / @Zk / / ' F %" /' .PJJP B F /) / / / - IC /? / / / f E" / %.Q2J'JQ 3B 1 F /? - I? / / e.x B4G " bStJgJ / @Zk .x B4G " bTJJ / @Zk - I? / xB8"H B"b"GB " / / @Zk TGG B bG"H e" @Zkb8 BG""L@ b0 S"4G / @Zk ( ` b8 BL S"GG@ b"" @Zk ( d 8 BLB""@ bGG / @ZkB / / ( 4Gb @Zk
G?"H b"` hBK"GpbB / @Zk |
àX 4G !Bb D " / / @Zk BGGTG b / @ZkBGH B"GT"Gb @Zkh BG4Gp b @Zk GX Ä 䣀 ĠG $" / !@
C
&@ @uF / ` / / / Ѣ 1"F / F0@ G0@ 12G0@ QRG0@ @0@ @ / @
/ 1"E / 0@ @ /X B @ 4Gb" @Zk BG?"GG bGG" @Zkh BG4Gp b @Zk G X B4Gb " @Zk 4G G ] ] } ( 0 ݤ8 @ H P # /k / / / 0#G4G ^ ~"(^0~8@ GGGPt Ѣ " / ( BGtG_"tG0 b @Zk( BGG_"tG0 b / @ZkX ]"X 0 ` #X @ . JC F7 / d/qJ D ! [ dK @qGd? a. aJ ! CydJ F% /X KG @? . J ! CtJ [G @ .U JF > a. aJC @ ! zdJ G d/[ dK @zGd? . JC Fb.@ Js"C 8F; / / .vJ `F s" DT J @ F> 3, 3H s"Ct$H G& D/Z DKTG D? . J @ s"CxJ pG / $/Y $K8G @$? 3, 3H s"Cp$H F d/[ dKpG d? . JC @ G D/Z DK "4GP b D?H B @Zk8 BX "X ="2@tG@ b @ZkX B4G "` b @Zk(BG ?""b"G0bxB / @Zk B " ="TG bG / @Zkx B "P =" ]"P GG b @Zk = " ]"Bh((" ԦGG DCF qF8 / R/{J @F " Z RK R"AB[GR? , H "CsH G& r/ .[ rK JCsG R"ABzJ " 8Fr? r. .S rJ R"ABzFr> J "CvJ xG r. 5.S rJ 5J R"CABvFr>G [G_ FABF }"C D /9 / / / .vJ @F s" U J R"ABF> S/ SK s"CvK `G% .U JF R"AB> . J s"CuJ ;G 2.Q 2J5F 2> . JC R"AB s"qJ [G @ ,@ H R"AB D< . JC G h d Ch $ ?GABC @?Gh " F9 / / / .s2K @F " U J R"ABF> . J "CsJ F% ,D HD R"AB< . J "C`J xG .V JF > , HC R"AB "xH wF ` r/[ rK R"ABxGr? , HC Fd # .AB JC G< / / / R/`rJ F 1" @FZ RK R"AB @GR? . J 1"C`J G& r/[ rK`G r? q. qJ R"AB 1"CwrJ VG / /X KG R"AB? , H 1"CvH F R/Z RKVG R? q. qJC R"AB G , HAB "C D /< / / / .yH F " @FW J R"AB F> 5. 5J "Cd2J F& .V JF > . J R"AB "CtJ SG / ` r/[ rKtG R"ABr? , H "CsH 6F R/Z RKSG R? . JC R"AB G 8 "$PB `<C C_"G0b .h"GD JG(B"" D D G / @Zkh B C "TGp b @ZkxB CGG ]"Gb @Zk G ](] 4G0}8@P# /k / / /#G ^8 [ ~( ^0 ~8 @ H P X ` GG#G@ b / @ZkB" 2 1 2H P b s
= GGGh B" B tN"b7@CB F / `b" / / @Zk G /BHG cGtGb @Zkp / / ( / E " R" @ e e( BTG8 %" & = " G CGGG0 b / @ZkG d % &B ?'d "GGH G1?Jbt!F "d 5JF Cd "8v KGGd h Ű = @ZkG = 'BH "TGb2v H1?J2F @ 'H .T JH > 5" @ZkG t $ / $ $ E " R" @$ eB$ %GTGb @Zk$ e( B4G & : %" "D GGGGG0 b @ZkG & l EB &l "GS G "2_JbtAFG "l Ų6JFG Cl Ų9v?K7Gl %p ŰG @ZkGc BTGb1vH0 JF @ S G"S "S g.S rJS g> 4" / @ZkG / /K , (,09 `<""Bb &GA
(HH $DCD"H AFGR_"P"' / @Zk `< G 0H % BGS_"""GGb(" G @Zk / `< /G$ 0"S "BGU_"""GbG " @Zk d8 BG@ b ` / @Zk A 4G / /BGX B"b"Gj"Gb @Zk8 B4Gb(vH0vH / @Zk8 B4GbR J / @Zk8 G G ]( ]0 }8 @ H ݤP X ` p # /k / / /#4G ~ ^ ^ ~ GG# p 0@ [H b / @00v H / @Zk" / /8 0 (_"GP BX bG` vJ5vJ G ( / @Zk 8 # B4G( b0v H / @Zk8 #!?H8 #8 BR J4G ( b / / @Zk8 v H8 ( # 4 / 8 #1v J / 8 cR`H@ / / / G G ] ] } 0 # /k / / /4G{ / k / / /#4G ~ ^( [ ^ ~ GGG0 b @ZkGb#_ 4#X4G`b 8 / GG ] ] } 0 # k / / / G ] ] } 0 #k /# ~ ^ ^ ~ GGG{#a_ /' 4# / /# 8! # 1 b#G& @` `0""<cPBGXb , ."CD HP
J 0DG &H @F_" / @Zk 4G G G ] ] } 0 # /k / / /0TG! #F ~ ^ [ ^ ~ GGG 0" ( b @Zk ÀBbG"B?"G`b" @Zk G ] ] } 0 #k / / /@4G{3vJRJ
` / 4 / / 8P @ / k / / /k / / /# ~ ^ ^ ~ ( 0 GG# G{#@0R J A_- 4 $bGGBb 0 @4 $D $$ D d" > G ^ 4G( @Zk@BG GGB"_" b"GHb%vH @Zk $`BGTGhb !?H%D $ / @Zk G ] ] } ( 0 @ #k / /#[; ~ ^ ^ ~ ( 0 8 GGG# [ b"" 4 r. .<T
JrJtF" &BJCG F F& @0 5v KG_"G @Zk / `G /G Ģ""B_" & bGRJ6vJ" GG / @Zk $BTGbR J D @Zk4 1 @4 Gb#_@ /C tG`#"D Ġ( B0 bRHP@BC @
@F F G @Zk 4GGb# $I_' ( BtG0 b CP@B
EB
@@#" FG @Zk Gb#5_ Gb#%@Gb#._ /0 H BGG8 "P bGG 0 @0 @Zk G ] ] } ( 0 ݤ8 @ #k / / /8p#G ~ ^ ^ GG `31`B8pGb#4 G ] ] #Q / G ]Gb# ] #@P#G0" ~ ^ ^ GG2v@Jx{# @ ^ #7 / / /, GG( b 0 @, 0 tX T G0 " ] ] # / k / / /# ^ ~ ^ ~( 0 8 GG# G4P / @21@B4P G b# / _V / X &G xBb ` 0. P.x"<âR
PJ0J2FCDX""8_"J FG G @Zk( B GTG0 b @Zk@G b# v H _- ( Gc"Bb 0 @ G( @C ( 1v@JG @ZkxBG GGB"K"Xb"Gb$vH @ZkBGTGb
= H D / @Zk G ] ] }( 0 8 @ #k / /#0" ^ ~ ^ ~( GGG >[ [< r. .CrJT
JtFBJ F / @ ; F5v KGx;"X"Gbi_" & @Zk =( / 1 @( GG@b# ] ] }( 0 #n / / GG ]b# ] }( 0 # / / /# ~ ^ ^ ~ ( 0 8 @ H >P GGG# LG $,RH $H5$@u$@aG %1@ / /4G . "H ""0 BG8 btG JG@@ D
/ / @Zk8" Gr tG1"m , G@ ""0 B8 btG " H@@G
D /W @Zk / /S p I `<# 0. P.C0JR
PJ2F6J 0D? . J /$ / / / ɢ ( # / .WJJW B F / `<C G/4G g#Z[K bGK B / @Zk / / / ', 'H? `<C G` B$@@""G5@ _" &Gh bP " @Zk8" GtG1" /8"
G4G1" / /8" GtG1"b# @ G ] ] } ( 0 ݤ8 @ H =P ` # /k / / /#GG ^ ~ ^ ~( GG#`p# ] =G@P 3v@J1v@JGZ `0 @GV P ~b ^B ( b @Zk3 0# }G bB 0 @ ~G 0# G@C b 1v@J( G @Zk 0#@"@CBG|c" G0 @ 0#1v@J G" b( @Zk 0#0 @0#B " D GB"G"Ghb"b @Zk GG ]0b# ] }( 0 #9 / G ] ] }( 0 #k /0P# ~ ^ ^ ~ GGG @21@B0PGG B"|cBb1v`Jb"?B4F / 4" @Zk GG ]`b# ] } 0 # G ] ] } 0 #k / G G /k / / /h; 1 / Q 1DRPB @
qDs 1pB @ / D 1B @? /k / / /{# ~ ^ ^ ~ ( 0 8 @ H >P ^X ~` G ӠGT GGGGC ; / / / FF / ʢF /@ 0 BG*" . JG D* / /4 4GGGG8 b @Zk /, i / /! %, %H / D*" / ` / / / kDG +"0 BG8 bGGtFG / `4G @Zk / k / / `@ BGTGH bP 0@ @Zk Ơ G ] G ] } ( 0 ݤ8 @ H =P ]X }` p #k /#[TG ^ ~[ ^ ~@2" > ^ ~ GGGb @Zk( BGGGG 0 bGG @ZkHB / / GGB""G(b"Pb @Zk8 B4G "@ bG
G / @ZkL P !T =!X ]!\ }!` !d !h ! /V / / /
0A ]" 0@$D#(y$ ]H B9# =tG }$P bP "( p 1", =7C @Zkh BG ="TG0 p b / @Zk4 4GDBb T" "8 < ]G@ ĢH D ݲ Dz Ȳ ʲ ˲ @Zk $ GG .GG "P b( B0 b"G @ZkHBG B"G(b" "GPb / @Zk Ơ ( B G0"GGGGG0 b @ZkHB GB"(b"G""GPb @Zkx BG b B @Zk( BGx"G GG "G0 b / @ZkHB GG*"B"(b"GPb @ZkX B 4GG""GtG` b / @ZkBG4Gb @Zk G ] ] } ݤ = ] } ݥ #k 4 0 G h SYSTRNLNM 4 P b# SYSTRNLNM 4 d @ h SYSTRNLNM 4 h G DECC$STRNCPY 4 b# DECC$STRNCPY 4 @ DECC$STRNCPY 4 G DECC$ATOI 4
b# DECC$ATOI 4 @ DECC$ATOI 4 G DECC$ISDIGIT 4 b# DECC$ISDIGIT 4 @ DECC$ISDIGIT 4 G $ DECC$ISDIGIT 4 b# DECC$ISDIGIT
4 @ $ DECC$ISDIGIT < D G t ERROREXITVMSSTATUS < P b# ERROREXITVMSSTATUS < p @ t ERROREXITVMSSTATUS 4 G FAOTOBUFFER 4 b# FAOTOBUFFER 4 @ FAOTOBUFFER 4
G
DICTLOOKUP 4 b#
DICTLOOKUP 4
@
DICTLOOKUP 4
G
DICTLOOKUP 4 b#
DICTLOOKUP 4
@
DICTLOOKUP 4
G $
DICTLOOKUP 4 b#
DICTLOOKUP 4
@ $
DICTLOOKUP 4 $ G D DECC$ATOI 4
< b# DECC$ATOI 4 @ @ D DECC$ATOI 4 X G x ERRORNOTICED 4 d b# ERRORNOTICED 4 t @ x ERRORNOTICED < G INSTANCEGBLSECINCRLONG < b# INSTANCEGBLSECINCRLONG < @ INSTANCEGBLSECINCRLONG , G MSGFOR , b# MSGFOR , @ MSGFOR 4 G ERRORGENERAL 4 b# ERRORGENERAL 4 @ ERRORGENERAL 4 G
REQUESTEND 4 b#
REQUESTEND 4 @
REQUESTEND < G INSTANCEGBLSECINCRLONG < b# INSTANCEGBLSECINCRLONG < @ INSTANCEGBLSECINCRLONG 4 G 4 RESPONSEHEADER 4 b# RESPONSEHEADER 4 0 @ 4 RESPONSEHEADER 4 4 G H
REQUESTEND 4 @ b#
REQUESTEND 4 D @ H
REQUESTEND < T G l INSTANCEGBLSECINCRLONG < \ b# INSTANCEGBLSECINCRLONG < h @ l INSTANCEGBLSECINCRLONG 4 U G $
HTTPDTIMERSET 4 V b#
HTTPDTIMERSET 4 U @ $
HTTPDTIMERSET 4 U $ G D
HTTPDTIMERSET 4 V 8 b#
HTTPDTIMERSET 4 U @ @ D
HTTPDTIMERSET 4 Z t b# SHA1RESET 4 Y | G SHA1RESET 4 Y @ SHA1RESET 4 W G SHA1INPUT 4 X b# SHA1INPUT 4 W @ SHA1INPUT 4 [ G
SHA1RESULT 4 \ b#
SHA1RESULT 4 [ @
SHA1RESULT 4 G ERRORNOTICED 4 b# ERRORNOTICED 4 @ ERRORNOTICED 4 a G
SHA1LITEND 4 b b#
SHA1LITEND 4 a @
SHA1LITEND 4 _ G (
BASE64_ENCODE 4 ` b#
BASE64_ENCODE 4 _ $ @ (
BASE64_ENCODE 4 < b# WATCHTHIS 4 ; G WATCHTHIS 4 ; @ WATCHTHIS 4 ] G WATCHDATA 4 ^ b# WATCHDATA 4 ] @ WATCHDATA 4 E G NETWRITE
4 F b# NETWRITE 4 E @ NETWRITE 4 S \ G GETJPIBYTLM 4 T b# X GETJPIBYTLM 4 S @ GETJPIBYTLM 4 G $ ERRORNOTICED 4 b# X ERRORNOTICED 4 @ $ ERRORNOTICED 4 I 0 G T LISTADDHEAD 4 J L b# X LISTADDHEAD 4 I P @ T LISTADDHEAD 4 Q G
SYS$CREMBX 4 R b# X
SYS$CREMBX 4 Q @
SYS$CREMBX 4 O G H
LIB$GETDVI 4 P b# X
LIB$GETDVI 4 O D @ H
LIB$GETDVI 4 M X G
DCLMAILBOXACL 4 N d b# X
DCLMAILBOXACL 4 M @
DCLMAILBOXACL 4 K G VMGETHEAP 4 L b# X VMGETHEAP 4 K @ VMGETHEAP 4 Q G (
SYS$CREMBX 4 R b# X
SYS$CREMBX 4 Q $ @ (
SYS$CREMBX 4 O < G
LIB$GETDVI 4 P \ b# X
LIB$GETDVI 4 O @
LIB$GETDVI 4 M G
DCLMAILBOXACL 4 N b# X
DCLMAILBOXACL 4 M @
DCLMAILBOXACL 4 ; G d WATCHTHIS 4 < b# X WATCHTHIS 4 ; ` @ d WATCHTHIS 4 ; G WATCHTHIS 4 < b# X WATCHTHIS 4 ; @ WATCHTHIS 4 ; G WATCHTHIS 4 < b# X WATCHTHIS 4 ; @ WATCHTHIS 4 S G GETJPIBYTLM 4 T b# X GETJPIBYTLM 4 S @ GETJPIBYTLM 4 0 G T ERRORNOTICED 4 L b# X ERRORNOTICED 4 P @ T ERRORNOTICED 4 - X G x
SYS$DASSGN 4 . ` b# X
SYS$DASSGN 4 - t @ x
SYS$DASSGN 4 - | G
SYS$DASSGN 4 . b# X
SYS$DASSGN 4 - @
SYS$DASSGN 4 / G 4
SYS$CANCEL 4 0 b# @
SYS$CANCEL 4 / 0 @ 4
SYS$CANCEL , 1 P G SYS$QIO , 2 T b# @ SYS$QIO , 1 @ SYS$QIO 4 - G
SYS$DASSGN 4 . b# @
SYS$DASSGN 4 - @
SYS$DASSGN 4 - G
SYS$DASSGN 4 . b# @
SYS$DASSGN 4 - @
SYS$DASSGN 4 - ` G t
SYS$DASSGN 4 . h {#
SYS$DASSGN 4 - p t
SYS$DASSGN 4 3 G NETCLOSESOCKET 4 4 b# NETCLOSESOCKET 4 3 @ NETCLOSESOCKET 4 G
REQUESTEND 4 b#
REQUESTEND 4
REQUESTEND 4 ; G WATCHTHIS 4 < b# WATCHTHIS 4 ; @ WATCHTHIS 4 G L G |
LISTREMOVE 4 H t b#
LISTREMOVE
4 G x @ |
LISTREMOVE 4 G ERRORNOTICED 4 b# ERRORNOTICED 4 @ ERRORNOTICED 4 G
REQUESTEND 4 {# `
REQUESTEND 4
REQUESTEND , 1 G SYS$QIO , 2 b# SYS$QIO , 1 @ SYS$QIO 4 G ERRORNOTICED 4 b# ERRORNOTICED 4 @ ERRORNOTICED 4 7 G 4 SYSDCLAST 4 8 b# SYSDCLAST 4 7 0 @ 4 SYSDCLAST 4 ; G WATCHTHIS 4 < b# WATCHTHIS 4 ; @ WATCHTHIS 4 ; 0 G d WATCHTHIS 4 < < b# WATCHTHIS 4 ; ` @ d WATCHTHIS 4 A h G
WATCHDATADUMP 4 B p b#
WATCHDATADUMP 4 A @
WATCHDATADUMP 4 C G DECC$MEMCMP 4 D b# DECC$MEMCMP 4 C @ DECC$MEMCMP 4 C G H DECC$MEMCMP 4 D b# DECC$MEMCMP 4 C D @ H DECC$MEMCMP 4 E G NETWRITE 4 F b# NETWRITE 4 E @ NETWRITE , ? G NETREAD , @ b# 0 NETREAD , ? NETREAD 4 ; G WATCHTHIS 4 < b# WATCHTHIS 4 ; @ WATCHTHIS 4 A G
WATCHDATADUMP 4 B b#
WATCHDATADUMP 4 A @
WATCHDATADUMP , 1 $ G h SYS$QIO , 2 ( b# SYS$QIO , 1 d @ h SYS$QIO 4 h G ERRORNOTICED 4 b# ERRORNOTICED 4 @ ERRORNOTICED 4 7 G SYSDCLAST 4 8 b# SYSDCLAST 4 7 @ SYSDCLAST 4 ; G WATCHTHIS 4 < t b# h WATCHTHIS 4 ; @ WATCHTHIS , 9 ! G ! STRSAME , : ! b# STRSAME , 9 ! @ ! STRSAME , 9 ! G (" STRSAME , : ! b# STRSAME , 9 $" @ (" STRSAME 4 > " b# DECC$ISSPACE 4 = " G " DECC$ISSPACE 4 = " @ " DECC$ISSPACE 4 ; # G D# WATCHTHIS 4 < 8# b# WATCHTHIS 4 ; @# @ D# WATCHTHIS , 1 X$ G x$ SYS$QIO , 2 p$ b# x SYS$QIO , 1 t$ @ x$ SYS$QIO , 1 $ G $ SYS$QIO , 2 $ b# x SYS$QIO , 1 $ @ $ SYS$QIO , 1 $ G 8% SYS$QIO , 2 $% b# x SYS$QIO , 1 4% @ 8% SYS$QIO 4 H% G x% ERRORNOTICED 4 p% b# x ERRORNOTICED 4 t% @ x% ERRORNOTICED 4 & G ,& ERRORNOTICED 4 & b# H ERRORNOTICED 4 (& @ ,& ERRORNOTICED
< 5 ' G ' STRINGMATCHANDREGEX < 6 ' b# STRINGMATCHANDREGEX < 5 ' @ ' STRINGMATCHANDREGEX < 5 0( G \( STRINGMATCHANDREGEX < 6 8( b# STRINGMATCHANDREGEX < 5 X( @ \( STRINGMATCHANDREGEX 4 7 x( G ( SYSDCLAST 4 8 ( b# SYSDCLAST 4 7 ( @ ( SYSDCLAST 4 ( G L) ADMINPAGETITLE 4 D) b# ADMINPAGETITLE 4 H) @ L) ADMINPAGETITLE , ! L) G t) FAOLSAK , " d) b# FAOLSAK , ! p) @ t) FAOLSAK 4 t) G ) ERRORNOTICED 4 ) b# ERRORNOTICED 4 ) @ ) ERRORNOTICED 4 # ) G )
SYS$GETTIM 4 $ ) b#
SYS$GETTIM 4 # ) @ )
SYS$GETTIM 4 % (* G d* BYTESPERSECOND 4 & @* b# BYTESPERSECOND 4 % `* @ d* BYTESPERSECOND 4 ) d* G * DURATIONSTRING 4 * x* b# DURATIONSTRING 4 ) * @ * DURATIONSTRING 4 * G * USERATCLIENT 4 * b# USERATCLIENT 4 * @ * USERATCLIENT , ! + G + FAOLSAK , " + b# FAOLSAK , ! + @ + FAOLSAK 4 + G D+ ERRORNOTICED 4 8+ b# ERRORNOTICED 4 @+ @ D+ ERRORNOTICED , ! P+ G |+ FAOLSAK , " t+ b# FAOLSAK , ! x+ @ |+ FAOLSAK 4 |+ G + ERRORNOTICED 4 + b# ERRORNOTICED 4 + @ + ERRORNOTICED 4 + + G + ADMINREFRESH 4 , + b# ADMINREFRESH 4 + + @ + ADMINREFRESH , ! + G + FAOLSAK , " + b# FAOLSAK , ! + @ + FAOLSAK 4 + G , ERRORNOTICED 4 , b# ERRORNOTICED 4 , @ , ERRORNOTICED < ' , G D, RESPONSEHEADER200 < ( 8, b# RESPONSEHEADER200 < ' @, @ D, RESPONSEHEADER200 4 D, G X, ADMINEND 4 P, b# ADMINEND 4 T, @ X, ADMINEND
j = sec-websocket-version = 8 + sec-websocket-protocol sec-websocket-key H = ( Sec-WebSocket-Version: !AZ
h = P E WASD_WEBSOCKET_VERSION /httpd/-/admin/control/websocket/disconnect = ( /httpd/-/admin/report/WATCH = x n [P][+][W] @ = WebSocket Report X = ( WRITE WEBSOCKET_INPUT !&S x = 0 # WRITE WEBSOCKET_INPUT !UL byte!%s = 0 ' READ WEBSOCKET_OUTPUT !&S !UL byte!%s = ( READ WEBSOCKET_OUTPUT !&S = H ; WEBSOCKET disconnected MBX WEBSOCKET_OUTPUT !AZ size:!UL ( = 0 " MBX WEBSOCKET_INPUT !AZ size:!UL P = WEBSOCKET connected h = HEADER !UL bytes = . & 258EAFA5-E914-47DA-95CA-C5AB0DC85B11
x ERRORNOTICED ERROREXITVMSSTATUS ERRORGENERAL = 13, 8 @ SYSTRNLNM 7 ERRORSANITYCHECK ` DECC$ATOI INSTANCEGBLSECINCRLONG = > ; 7 DECC$$GL___CTYPEA = 0 2 ; = P @ ; 7 DECC$$GA___CTYPET
DICTLOOKUP = WEBSOCK 7
ACCOUNTINGPTR
REQUESTEND DECC$ISDIGIT DECC$STRNCPY MSGFOR RESPONSEHEADER FAOTOBUFFER USERATCLIENT ADMINEND = text/html ADMINPAGETITLE 7 WEBSOCKLIST=
FaolToNet() = 0 2 ( ; = \ ; ! FAOLSAK #
SYS$GETTIM % BYTESPERSECOND ' RESPONSEHEADER200 ) DURATIONSTRING + ADMINREFRESH = 0 2 ; = 0 -
SYS$DASSGN 7 EFNNOWAIT /
SYS$CANCEL 1 SYS$QIO ; = 0 2 ; = 0 $ 3 NETCLOSESOCKET = 0 2 ' ; = p @ 7 DCLTASKLIST 5 STRINGMATCHANDREGEX 7 SYSDCLAST ; = 0 p& ; = 0 2 % ; = ( 0 sys$qio x = 0 2 # ; = 0 $ H ; = 0 2 ! ; = ` 4 7 TOUPPERCASE 9 STRSAME = WATCH: NOOP: = !#AZ ; WATCHTHIS WATCH P e 5 = DECC$ISSPACE = 0 2 ` ; = $ ? NETREAD ; = 0 2 ; = 0 = 0 2 ; = @ $ < h ; A
WATCHDATADUMP = 0 2 0 ; = @ $ < ; = 0 2 ; = = 0 2 ` ; = @ 0 | 0 C DECC$MEMCMP ; P E NETWRITE = 0 ; = 0 2 0 ; = 0 0 G
LISTREMOVE = 0 2 0 ; = 0 = 0 ` ; I LISTADDHEAD 7 NETREADBUFFERSIZE K VMGETHEAP 7 DCLSYSOUTPUTSIZE 0 M
DCLMAILBOXACL O
LIB$GETDVI 7 WEBSOCKOUTPUTSIZE = 0 2 P ; = p 8 7 DCLMAILBOXBYTLMREQUIRED Q
SYS$CREMBX S GETJPIBYTLM CONFIG H e 5 7 NETACCEPTBYTLMREQUIRED = $CREMBX() = BYTLM exhausted = 0 2 ; = P 0
U
HTTPDTIMERSET W SHA1INPUT Y SHA1RESET [
SHA1RESULT ] WATCHDATA _
BASE64_ENCODE a
SHA1LITEND
= w
| Service / Client | Time / Request | Rx | Tx | Bytes/Sec | Duration | Script PID | WATCH | Connect |
|---|
x =
!AZ