From 55eef33fbf00d3e1f62b1fc15ad28328c9c50e9d Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Sat, 14 Mar 2020 10:46:20 +0000 Subject: Tweaks to making read-only git-svn-id: svn://tug.org/texlive/trunk@54289 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLWinGoo.pm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm') diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index a1288110796..030cec04965 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -1418,16 +1418,13 @@ sub maybe_make_ro { # S-1-5-11 Authenticated users # S-1-5-32-545 Users # S-1-5-32-544 administrators - # S-1-3-0 creator owner + # S-1-3-0 creator owner (does not work right) # S-1-3-1 creator group - # useful explanations at http://timbolton.net/2010/06/23/ - # /icacls-changing-permissions-on-files-and-folders - # /reset is necessary for removing non-standard existing permissions my $cmd = 'cmd /c "icacls . /reset && icacls . /inheritance:r'. - ' /grant:r *S-1-5-32-544:(OI)(CI)F /grant *S-1-3-0:(OI)(CI)F'. - ' /grant *S-1-5-11:(OI)(CI)RX"'; + ' /grant:r *S-1-5-32-544:(OI)(CI)F'. + ' /grant:r *S-1-5-11:(OI)(CI)RX /grant:r *S-1-5-32-545:(OI)(CI)RX /T"'; log "Making read-only\n".`$cmd`."\n"; # go back to original directory -- cgit v1.2.3