Changeset 1053 for trunk/guitools/shared/browse.vrs

Timestamp:

Feb 7, 2018, 10:39:40 AM (8 years ago)

Author:

Herwig Bauernfeind

Message:

SMBMon: ACLS browser, missing, recreated stuff

File:

• trunk/guitools/shared/browse.vrs (modified) (1 diff)

trunk/guitools/shared/browse.vrs

@@ -311 +311 @@
     if options.!debug == 1 then say time()'  _BrowseIconsInit() done.'
 return
+
+/*:VRX */
+_ACLSBrowse:
+    browsepath = _browsebuildpath(SMBObj.rh)
+    ok = VRSet("SW_ACLS","Caption", browsepath)
+
+    parse var browsepath '\\'machine'\'sharename '\' browsepath
+
+    if browsepath = '' then browsepath = '\'
+    if UserCred = "" then UserCred = "-N"
+
+    /* Make sure credentials are usable */
+    if UserCred   = 'USERCRED'   | UserCred = '' | UserCred = '--user=%' then UserCred = '-N'
+
+    /* We have to remove the double % for smbclient.exe - not entirely clear why */
+    OldUserCred = UserCred
+    if pos('%%',UserCred) > 0 & pos("4OS2", value("COMSPEC",,"OS2ENVIRONMENT")) = 0  then do
+        OldUserCred = UserCred
+        parse var UserCred '--user='username'%%'password
+        UserCred = '--user='username'%'password
+        call lineout "debug", "  Strip double %%!!!"
+    end
+    if options.!debug == 1 then say "smbcacls \\"machine"\"sharename" "browsepath" "UserCred" "aclsnumeric
+    address cmd samba.!smbcaclsexe' \\'machine'\'sharename' 'browsepath' 'UserCred' 'aclsnumeric' 2>'samba.!err' 1>'samba.!msg
+    ok = file2stem(samba.!msg,"aclsout.")    
+    ok = file2stem(samba.!err,"aclserr.")
+    if aclserr.0 > 0 then do
+        call _StatusBarWrapper aclserr.1
+        call SW_ACLS_Close
+    end
+    if aclsout.0 > 2 then ok = VRSet("DT_REV_CONT","Caption",aclsout.1" "aclsout.2)
+    do I = 3 to aclsout.0
+        parse var aclsout.I ACLS.ACL':'ACLS.User':'ACLS.A_D'/'ACLS.Flags'/'ACLS.Permissions
+        parse var ACLS.User ACLS.Group'\'ACLS.User
+        arh = VRMethod("CN_ACLS","AddRecord")
+        ok = VRMethod("CN_ACLS","SetFieldData", arh, ACL.typeFH,  ACLS.ACL)
+        ok = VRMethod("CN_ACLS","SetFieldData", arh, ACL.groupFH, ACLS.Group)
+        ok = VRMethod("CN_ACLS","SetFieldData", arh, ACL.userFH,  ACLS.User)
+        ok = VRMethod("CN_ACLS","SetFieldData", arh, ACL.ADFH,    ACLS.A_D)
+        ok = VRMethod("CN_ACLS","SetFieldData", arh, ACL.flagsFH, ACLS.Flags)
+        ok = VRMethod("CN_ACLS","SetFieldData", arh, ACL.accessFH,ACLS.Permissions)
+    end
+
+    UserCred = OldUserCred
+return