From: [EMAIL PROTECTED]
> Hi all....
> I need some help using references. I´m using Perl v5.6.1 built 626
> provided by ActiveState.
>
> Here is where i´m stuck:
>
> ---Code (simplified) ---
>
> use Win32::FileSecurity qw(Get Set);
>
> sub SetACLs
> {
> foreach (@_) <------ How should I do to pass to the foreach my
> referenced
> array at the sub call???????
my ($DIRs, $ACL) = @_;
foreach (@$DIRs) {
> {
> if ((!(-e $_)) || (!(Win32::FileSecurity::Get($_, \%hash ))))
> {print "Error accessing ACLs for $_\n"}
> else
> {
> $hash{'Everyone'} = $_[1];
$hash{'Everyone'} = $ACL;
> if (!Win32::FileSecurity::Set( $_, \%hash )) {print "Error
>
> setting ACLs at $_\n"}
> }
> }
> }
HTH, Jenda
=========== [EMAIL PROTECTED] == http://Jenda.Krynicky.cz ==========
There is a reason for living. There must be. I've seen it somewhere.
It's just that in the mess on my table ... and in my brain.
I can't find it.
--- me
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
