You are welcome!
While fixing the problem I noticed 2 things about the module: 1) It only supports ALLOW DCLs and ignores everything else. Is nobody using DENY DCLs? 2) The Get() function will now return the SID if the account name does not exist. Do you ever need to be able to *set* a DCL using a SID instead of an account name? Currently you won't be able to call Get(), modify the returned hash and call Set(). You will have to remove any SID entries first or Set() will complain. Cheers, -Jan From: Charles Manafa [mailto:[EMAIL PROTECTED] Sent: August 21, 2008 2:07 PM To: 'Jan Dubois'; [email protected] Subject: RE: Win32::FileSecurity problem Thanks very much, Jan. I've come to rely very heavily on this module. Rgds Charles _____ From: Jan Dubois [mailto:[EMAIL PROTECTED] Sent: 20 August 2008 19:52 To: 'Charles Manafa'; [email protected] Subject: RE: Win32::FileSecurity problem I've fixed this problem for Win32-FileSecurity-1.08: http://code.google.com/p/libwin32/source/detail?r=433 You should see it show up in the beta PPM repository within 2 days or so: http://ppm.activestate.com/beta/ It will of course also be included in any upcoming ActivePerl releases. Cheers, -Jan From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Charles Manafa Sent: August 13, 2008 3:32 PM To: [email protected] Subject: Win32::FileSecurity problem Hi, Has anyone come across an issue with the Win32::FileSecurity module, that ships with Perl 10, that causes it to croak when trying to retrieve DACL for a folder for which one of the trustees is an unknown account (i.e account is represented by it's SID instead of the account name)? This doesn't appear to be an issue with the Win32::FileSecurity module from Dave Roth. Unfortunately, Dave Roth's module will only work with Perl 817 and below. The specific code extract I'm using is: use Win32::FileSecurity qw(Get EnumerateRights); ... Get($folder,\%htrustees); while (($trustee, $mask) = each %htrustees) { ... The script croaks when it calls the Get function, and the error can not be trapped. I have tried "eval" to no avail. Any ideas, other than going back to 817, will be greatly appreciated. Thanks Charles
_______________________________________________ Perl-Win32-Users mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
