C DAVLOCKV1.0 4-NOV-2021 09:57
VSI C V7.4-002
h @
$READONLY$ i $" $CODE$ $LITERAL$ $LINK$ P $DATA$ $BSS$ 0 J @ DAVLOCKBEGIN 8 J
DAVLOCKSETTIMEOUT 0 J
DAVLOCKEND 8 J h DAVLOCKFINDTOKEN 0 J
DAVLOCKFINDIF 0 J P DAVLOCKTEST 0 J DAVLOCKIFTOKEN 8 J DAVLOCKPREPROCESS 8 J p DAVLOCKSETURNUUIDTOKEN 0 J h 0
DAVLOCKUPDATE 0 J @
DAVLOCKXML 0 J DAVUNLOCKBEGIN 0 J 0 DAVUNLOCKEND 0 J DAVUNLOCKUPDATE 0
WEBDAVLOCKTIMEOUTDEFAULTSECONDS @ WEBDAVLOCKTIMEOUTDEFAULTSECONDS (
WEBDAVLOCKTIMEOUTMAXSECONDS @ WEBDAVLOCKTIMEOUTMAXSECONDS 8 J P DAVLOCKDISCOVERY
6 = = / ' urn:uuid:!8XL-!4XL-!4XL-!4XL-!4XL!8XL
= 0# ~ ^ ^ ~ ( 0 8 @ H >P ^X G20 GG2 C $ ;( DTGG P H/S h/0 HK[
hK[G` Bh b7Bv#H / / `<cCD !F8 "" GG @ZkP BGGTGX b / @ZkG / /_ G ] ] } ( 0 ݤ8 @ H =P ]X ` #k /;#TG[" ^ ~G[ 1 ^ ~( GGG " ;b / @ZkBC""" ] ` CG<bGP 0,GD 0H"DG( "?D `G @Zk GG ] Gb b ] ] }p%"( G0 # k /` 0GG / # ~ ^ ^ GG;bGtG ^ # k / / /Gxt# /#H;tG & ^ ~G( ^0 ~8 @ H P GG#G e }A `` p( <P A/S .AKP
JPGCv#HG !FD GP"B"X"" `b @Zk / / G /GPBX""GG &G"Gb / @Zk` B4GH
"GGbtGR 8 % / @ZkBM GGGGXb"Gb @ZkD B4GGb "GG; # / /7 @Zk@ B$"GTGGH b @ZkBGGG Gb " @Zk 0 BGG8 bTGtG @ZkP bp B $H
" G G GtG( ~ GG0 ~TDx b @Zk0 BGGGtG8 b @Zk /` BGXb"?"`Bb "G p
à / @ZkBG?"_"GX" "Gb / @ZkBG4Gb @Zk / cBTGX " Cb / `b " c C @ZkB TG ""b @Zk / /b Pb` B 4G|GGG8 %h bGS"" @Zk F f" " b""B#b#C5`@B"aD fU @5 @DDP!F5@ &"GB"C` Gb"GFDFFFaD / ` Ơ /G " " ^aDP¦B@ G ~G ^ >GG( ~0 G06"8 b / @ZkBG4Gb @Zk /BG?"X"GG "Gb @ZkBG4Gb @Zk G ]( ]0 }8 @ H ݤP ` #k / / /@ ;#Y"0[" ^ ~G( [ 1 ^ ~( GGG# " 8 ;0 b @Zk C"XB0"" ]__" `G<`bP 0,GD 0H"DG` "?D ` G @Zk H GG ] GP bX b ]p%" ] }( G0 # k / /` 0GG / # ~ ^ ^ GG0 ;( bGtG ^ # k / / /Gt# /` #0 {"" ~ ^GG ^ ~"G GGp [ ( bG @Zk / / B? G?"#GG""G( b / @Zk@ GH bG ] ]4G } 0 # / k / / /#GtG( ^ ~0 ^8 ~@ H GGGG [;"b2 @Zk;?$ ! $2 B G@ ""tGb @Zk0 B #4G8 b " @Zk " (" `<_"`BhbGP .GD J8""F FG " `G / @Zkh hC D @ lâ CC / D
VC / @ IJ / $
7@ / $ GC h# 4F; $ `F "B"
7BG
6BYG6DB7GGG 4G @Zk ` B
"p ""GtGh b / @Zk / / $!?H $pc@PB "PBPBCBTG " 1Cc@P BX b#`H##B $" d / `G / / @Zk0B( "b"GGG "G8b @Zk ( D_D( D G( ]0 ]8 }@ H GP # /k / / /#GtG ~ ^ [ ^ ~ ( GGGGG8 ["( b @Zk BGGB"tG( b @Zk BGX C"GtG( b / @Zk BGG0 B"tG( b / @Zk BGG( btGB" @Zk / B8 DGH B" GtG( b @Zk / /" BG G( btGA" @Zk BGG( bp B"tG 8 D / @Zk bGG B( btGX D S" / @Zk / / B 8 DGB" GtG( b @Zk #; &bG B( b"tG0DS" / G @Zk B G?"GGbG`" @Zk "G?"BbGG a" @Zk G( # B?"GbG t"G / @Zk / /BG?"GGbb" / @Zk "G?"BbGG a" @Zk G ]G( b
= }X B"G ] tG( 0 # k /# ~ ^ ^ ~ ( 0 GGG# 02 /F / / / D " " d D0 " @ "# ""5@B5 C8 B"G#FU`B5`B( "vGG DbvFF G`{# " d"CCp "GVGVGVGVFX # @ D G > "P 8 ^` BVF > ~G ( G@ 5"0 ~GGG@ Gh b / @Zk G ] ] } ( 0 @ # /k / / / P 0# ~ ^ ^ G @2 / G{ /GY 2, 2H'@ AB !. !JC / / /GGX "" /@ @ / / /gF @F /8 . F JBtBF0 ` . R" 1" JCՇBF( ` . JBBF" r. R" rJC 1"gBF . JBtBF ` . R" 1" JCէBF q. qJBBF ` . R" J 1" / . JGF @ . J / B_"WD <0P .S T.C( [# F &GJR
TJCW@0 "F DGX "vCJD[;" F { @_" @Zk G G ] ] # /k / / /# ~ ^ ^ ~ ( 0 8 @ G# PGGGG 2 / / / GG b# 8 D %$D @ / / G /xDP 0.! `<S P.?#Cb#DU@0 " "D0JR
PJ@@2FGX E#""_"GvJGB pF & / ~G "b @Zk G ] G ] } ( 0 ݤ8 @ P #k / /# ?' ?$ ~ ^9#J! ^ ~4G ( 0 GGG H Ģp% /%@@!G P D1 / 4GTGb#P Gt / ~_ " @ _"@ D / H $D $P D / / / Gb# / _ " @ ?"@ D / P $
/p
e " `P / / /P d""P "G H Y
C . J / / . s" `F J . s" J / s" K 3. s" 3J . s" J , s" H .s# JaBF / ; @ / / S/" SKZ VK%F .JFѵ". x+F s/ . `KW J wG $ s"aB /_ / /aB / / ." JW J F @3.5J7F1" x F , S.s#HR [J D s"aB / . JtB( B"xFE ( . JC F /< / / / /zJ @F R" `FX K s"tB G? . J R"CxJ pG& .U JF > R/ RK s"tB R"CuJ ;F / ,@ H D s"tB< . J R"CpJ [G @ ,@ H D < . JC s"tB G 9H $ 3. GvHQ 3J s"6F3> s/[ sKH BGGGG s?H D0@B8 bP bH DG @Zk /X B@TG@ $` b @Zk dD d@@ H 䳤 / / / 1, G D##XCG 1H 1HC yG; / .{:H D @GU J Z#XC F> / K Cy:J F' z/[ zKyG z? . J Z#XC C{J 1D / :/Y :K;G Z#XC:? . J C{:J 0D :/Y :K;G :? . JC Z#XC 1DG? :/Y :KWCG :? /E @ ` / / .:" JU JD /KG1" D Z. z/:#YJ[ yK[FR" @Z#WC / q@G p@GyJWC: @H DW`C /7 FWC / @ / / / /:" KX K D .JF1" Z#WC?WCG ` Z.p:HR ZJPF Z>H H B 0 @@d@ D H GGG8 bP bGG @Zk G ] ] } ( 0 @ #k / / 0J D D / /# G_" & ^ ~G ^ ~( 0 8 @ H P GGGG#X{B@ " t / / P .S ;. /
`<#JQ
;JbFCDh""vJ DG @Zk Gt %, %H$@5!@2F?0 B%D
GP ""GtG8 b / @ZkC G( !X %. %J %J /1 / / /GF b& @ . . "/G' B/JWJ"KZBKF:G BtGF , . . (.HP JJQ (J DFG " D / @Zk . &,. " 0H'D / &. &J_ e. eJCXP /S 7/ X "X F_"h""C &DFK` "F `<cY
7KGGGCvJD WGB G b @Zk G G ] ] }( 0 8 ݤ@ H P ` # /k / / /( [# ^ ~
= |t (^0~ r8 GGG# = " ` # Rc#0 =" "6B$ =( ]. JC F; ` / / 1,rJ `G {# FA 1H 1"6B 2D1< [/ [K {#C`J F& /X K G ? ;, ;H 1"6B {#Cu1H F / .W JF 1"6B> , H {#CtH xF ` Q/Z QKTG Q? ;, ;HC 1"6B F0 B " ]"10BtG8 b " @Zk B 4G = ݢ@ B r1vJRJ }R HX "";K4hG r > G4v HH b @Zk" ¦ `P "<cBGbP .S !.CD JQ
!JFG"" &v#H AF_" / / / @Zk G ](]0}8@# /k 4 G WATCHTHIS 4 b# WATCHTHIS 4 @ WATCHTHIS 4 G
LISTREMOVE 4 b#
LISTREMOVE 4 @
LISTREMOVE < % \ G ERROREXITVMSSTATUS < & b# ERROREXITVMSSTATUS < % @ ERROREXITVMSSTATUS 4 G WATCHTHIS 4 b# WATCHTHIS 4 @ WATCHTHIS 4 ' G , DAVMETALOCK 4 ( b# DAVMETALOCK 4 ' ( , DAVMETALOCK 4 # D G
DAVMETAUPDATE 4 $ h b# h
DAVMETAUPDATE 4 #
DAVMETAUPDATE 4 < G T WATCHTHIS 4 L b# WATCHTHIS 4 P @ T WATCHTHIS 4 x G WATCHTHIS 4 b# WATCHTHIS 4 @ WATCHTHIS 4 - G ODSCLOSE 4 . b# ODSCLOSE 4 - @ ODSCLOSE 4 / G ERRORNOTICED 4 0 b# ERRORNOTICED 4 / @ ERRORNOTICED 4 1 G 8
SYS$SETPRV 4 2 b#
SYS$SETPRV 4 1 4 @ 8
SYS$SETPRV 4 5 8 G T
ODSFILEEXISTS 4 6 L b#
ODSFILEEXISTS 4 5 P @ T
ODSFILEEXISTS 4 1 T G x
SYS$SETPRV 4 2 l b#
SYS$SETPRV 4 1 t @ x
SYS$SETPRV < 3 | G AUTHACCESSENABLE < 4 b# AUTHACCESSENABLE < 3 @ AUTHACCESSENABLE 4 9 G ODSCREATE 4 : b# ODSCREATE 4 9 @ ODSCREATE < 3 G AUTHACCESSENABLE < 4 b# AUTHACCESSENABLE < 3 @ AUTHACCESSENABLE 4 / G H ERRORNOTICED 4 0 ( b# ERRORNOTICED 4 / D @ H ERRORNOTICED 4 H G t DAVWEBRESPONSE 4 h b# DAVWEBRESPONSE 4 p @ t DAVWEBRESPONSE 4 ! t G DAVWEBEND 4 " b# DAVWEBEND 4 ! @ DAVWEBEND 4 ) G DECC$STRCPY 4 * b# DECC$STRCPY 4 ) @ DECC$STRCPY 4 + G DECC$STRCAT 4 , b# DECC$STRCAT 4 + @ DECC$STRCAT 4 7 G ( RESPONSEHEADER
4 8 b# RESPONSEHEADER 4 7 $ @ ( RESPONSEHEADER 4 G 4 FAOTONET 4 ( b# FAOTONET 4 0 @ 4 FAOTONET 4 ! 4 G H DAVWEBEND 4 " @ b# DAVWEBEND 4 ! D @ H DAVWEBEND 4 P G x DAVWEBRESPONSE 4 p b# DAVWEBRESPONSE 4 t @ x DAVWEBRESPONSE 4 ! x G DAVWEBEND 4 " b# DAVWEBEND 4 ! @ DAVWEBEND < % G ERROREXITVMSSTATUS < & b# ERROREXITVMSSTATUS < % @ ERROREXITVMSSTATUS 4 G x WATCHTHIS 4 < b# WATCHTHIS 4 t @ x WATCHTHIS 4 ' | G DAVMETALOCK 4 ( b# DAVMETALOCK 4 ' DAVMETALOCK 4 # G
DAVMETAUPDATE 4 $ b#
DAVMETAUPDATE 4 #
DAVMETAUPDATE 4 p G DAVWEBRESPONSE 4 x b# DAVWEBRESPONSE 4 @ DAVWEBRESPONSE 4 G DAVWEBRESPONSE 4 b# DAVWEBRESPONSE 4 @ DAVWEBRESPONSE 4 ! G DAVWEBEND 4 " b# DAVWEBEND 4 ! DAVWEBEND , 8
G L
STRSAME ,
@
b# STRSAME , H
@ L
STRSAME , `
G |
STRSAME ,
t
b# STRSAME , x
@ |
STRSAME 4 |
G
DECC$ATOI 4
b# DECC$ATOI 4
@
DECC$ATOI 4
G
WATCHTHIS 4
b# WATCHTHIS 4
@
WATCHTHIS 4 G OTS$MOVE 4 @ OTS$MOVE 4 G DECC$TXSPRINTF 4 b# DECC$TXSPRINTF 4 @ DECC$TXSPRINTF < D G t DAVWEBDATETIMETO3339 < H b# DAVWEBDATETIMETO3339 < p @ t DAVWEBDATETIMETO3339 4 t G FAOTOBUFFER 4 b# FAOTOBUFFER 4 @ FAOTOBUFFER 4 G (
STRDSCBUILD 4
b# @ STRDSCBUILD 4 $
@ (
STRDSCBUILD 4 (
G D
STRDSCBUILD 4 <
b# @ STRDSCBUILD 4 @
@ D
STRDSCBUILD 4 D
G d
STRDSCBUILD 4 X
b# @ STRDSCBUILD 4 `
@ d
STRDSCBUILD 4 d
G
STRDSCBUILD 4 x
b# @ STRDSCBUILD 4
@
STRDSCBUILD 4
G
STRDSCBUILD 4
b# @ STRDSCBUILD 4
@
STRDSCBUILD 4
G
STRDSCBUILD 4
b# @ STRDSCBUILD 4
@
STRDSCBUILD 4
G STRDSCBUILD 4
b# @ STRDSCBUILD
4 @ STRDSCBUILD 4 G 4 STRDSCBUILD 4 b# @ STRDSCBUILD 4 0 @ 4 STRDSCBUILD 4 D G d STRDSCBUILD 4 H b# @ STRDSCBUILD 4 ` @ d STRDSCBUILD 4 p G STRDSCBUILD 4 b# @ STRDSCBUILD 4 @ STRDSCBUILD 4 G STRDSCBUILD 4 b# @ STRDSCBUILD 4 @ STRDSCBUILD 4 G FAOTOBUFFER 4 b# @ FAOTOBUFFER 4 @ FAOTOBUFFER 4 G , FAOTOBUFFER 4 b# @ FAOTOBUFFER 4 ( @ , FAOTOBUFFER 4 < G d FAOTOBUFFER 4 H b# @ FAOTOBUFFER 4 ` @ d FAOTOBUFFER 4 p G FAOTOBUFFER 4 b# @ FAOTOBUFFER 4 @ FAOTOBUFFER 4 G FAOTOBUFFER 4 b# @ FAOTOBUFFER 4 @ FAOTOBUFFER 4 G STRDSCBUILD 4 b# @ STRDSCBUILD 4 STRDSCBUILD 4 G T FAOTONET 4 H b# P FAOTONET 4 P @ T FAOTONET 4 G WATCHTHIS 4 {# h WATCHTHIS 4 @ WATCHTHIS 4 G WATCHTHIS 4 b# WATCHTHIS 4 @ WATCHTHIS 4
G DAVMETAREAD 4 b# DAVMETAREAD 4
@ DAVMETAREAD 4 G SYSDCLAST 4 b# SYSDCLAST 4 @ SYSDCLAST 4
L G DAVMETAREAD 4 t b# DAVMETAREAD 4
@ DAVMETAREAD 4 $ G WATCHTHIS 4 ` b# WATCHTHIS 4 @ WATCHTHIS , G STRSAME ,
b# STRSAME , @ STRSAME 4 b# DECC$MEMCMP 4 H G DECC$MEMCMP 4 @ DECC$MEMCMP 4 @ G \ WATCHTHIS 4 T b# WATCHTHIS 4 X @ \ WATCHTHIS 4 ! G 4! MD5DIGEST 4 (! b# p MD5DIGEST 4 0! @ 4! MD5DIGEST , L! G ! SYS$FAO , ! b# p SYS$FAO , ! @ ! SYS$FAO 4 ! G " WATCHTHIS 4 ! b# p WATCHTHIS 4 " @ " WATCHTHIS
W = ( LOCK timeout !20%D expired = ( LOCK search !AZ match !AZ @ = @3
!AZ
!AZ!AZ!AZ
!AZ!AZ!AZ!AZ!AZ!AZ
x = = 0 % !&;AZ
=
expires="!AZ">
= timeout="Second-!UL" = timeout="infinite" = scope="exclusive"
= depth="infinity"
0 = XI
!AZ
!AZ!AZ!AZ
!AZ!AZ!AZ!AZ!AZ!AZ
= ( text/xml; charset="utf-8" = LOCK !&S unmapped URL = LOCK unmapped URL
= 0 2 ; = ` < 7 HTTPDTIME647 WATCH ; = DAVLOCK P
LISTREMOVE WATCHTHIS = 0 2 ; = @ $ ; ; MD5DIGEST SYS$FAO = TOKEN !AZ = 0 2 ; = ( ` @ P DECC$MEMCMP = < h = 0 2 ; = $ = NONE = TOKEN match !AZ = 0 2 ; = ( P , EXCLUSIVE = SHARED = 0 2 P ; = @ 8 < 7 WEBDAVLOCKCOLLECTIONDEPTH =
[000000] ; 0
DAVMETAREAD SYSDCLAST = 0 2 ; = @ $ < x = shared 0 = write = exclusive =
FAOTONET =
= 1 =
infinity = scope="shared"
7 ( WEBDAVLOCKTIMEOUTDEFAULTSECONDS = >
= token=" = depth="0"
0 FAOTOBUFFER = 0 2 ; = 0 , STRDSCBUILD = "
x =
= type="write"
8 OTS$MOVE = !AZ !20%D =
infinite = Infinit 7 WEBDAVLOCKTIMEOUTMAXSECONDS= 0( 2
; = ( P ( TIMEOUT? !AZ 0 DECC$ATOI = Second- P DAVWEBDATETIMETO3339 DECC$TXSPRINTF = Second-%d = 0 2 0 ; = 0 8 DAVWEBRESPONSE = success ! DAVWEBEND = 0 2 ; = 0 #
DAVMETAUPDATE ; = 0 2 ; = 0 4 0 % ERROREXITVMSSTATUS 7 ERRORSANITYCHECK 7 WEBDAVLOCKINGENABLED ' DAVMETALOCK ; = UNLOCK !AZ !AZ ) DECC$STRCPY = + DECC$STRCAT - ODSCLOSE / ERRORNOTICED 1
SYS$SETPRV = 0 2 ; = ` 8 | 7
SYSPRVMASK 3 AUTHACCESSENABLE 5
ODSFILEEXISTS ; @ 7 RESPONSEHEADER 9 ODSCREATE =
h = 0 2 0 ; = 0 = 0 2 @ ; = 0 4 h ; =
LOCK !AZ
= & 4 = 4 = Lock-Token: 4 6
p DECC$TXSPRINTF AUTHACCESSENABLE STRSAME STRDSCBUILD ERROREXITVMSSTATUS ERRORNOTICED FAOTOBUFFER FAOTONET ODSCLOSE ODSCREATE
ODSFILEEXISTS RESPONSEHEADER
LISTREMOVE WATCHTHIS DECC$ATOI DAVWEBDATETIMETO3339 DAVWEBEND DAVWEBRESPONSE DAVMETALOCK DAVMETAREAD
DAVMETAUPDATE WEBDAVLOCKINGENABLED ( WEBDAVLOCKCOLLECTIONDEPTH HTTPDTIME64
SYSPRVMASK ERRORSANITYCHECK WATCH
SYS$SETPRV DECC$STRCPY DECC$STRCAT SYSDCLAST DECC$MEMCMP MD5DIGEST SYS$FAO OTS$MOVE
C$TX