Re: Win32::Perms again

[Dax T. Games]

Sorry small typo at the end noy fixed:

## Your code slightly modified
use Win32::Perms;

## Begin Add
$FileSystemObject = 'd:/ccs';

if (-d ($FileSystemObject)) {
        my $perms = new Win32::Perms($FileSystemObject) || die "Unable to create
object";
else {
        my $perms = new Win32::Perms() || die "Unable to create object";
}
## End Add

# COMMENTED # my $perms = new Win32::Perms || die "Unable to create
object";

$perms->Allow('Martin', FULL, CONTAINER_INHERIT_ACE);
$perms->Allow('Martin', FULL, OBJECT_INHERIT_ACE | INHERIT_ONLY_ACE);

$perms->Dump;

## Begin Add
if (-d ($FileSystemObject)) {
        $Result = $perms->Set();
else {
        $Result = $perms->Set($FileSystemObject);
}
## End Add

# COMMENTED # if ($perms->Set('d:/ccs'))
if ($Result ) ## Changed
        {
                print "permissions set OK";
        }
else
        {
                print "Failed";
        }



*********** REPLY SEPARATOR  ***********

On 10/18/2002 at 10:23 AM Dax T. Games wrote:

>Do this when setting perms for a file or directory:
>
>## Your code slightly modified
>use Win32::Perms;
>
>## Begin Add
>$FileSystemObject = 'd:/ccs';
>
>if (-d ($FileSystemObject)) {
>       my $perms = new Win32::Perms($FileSystemObject) || die "Unable to create
>object";
>else {
>       my $perms = new Win32::Perms() || die "Unable to create object";
>}
>## End Add
>
># COMMENTED # my $perms = new Win32::Perms || die "Unable to create
>object";
>
>$perms->Allow('Martin', FULL, CONTAINER_INHERIT_ACE);
>$perms->Allow('Martin', FULL, OBJECT_INHERIT_ACE | INHERIT_ONLY_ACE);
>
>$perms->Dump;
>
>## Begin Add
>if (-d ($FileSystemObject)) {
>       $Result = $perms->Set();
>else {
>       $Result = $perms->Set(#FileSystemObject);
>}
>## End Add
>
># COMMENTED # if ($perms->Set('d:/ccs'))
>if ($Result ) ## Changed
>       {
>               print "permissions set OK";
>       }
>else
>       {
>               print "Failed";
>       }
>
>Dax
>
>*********** REPLY SEPARATOR  ***********
>
>On 10/9/2002 at 12:18 PM Martin Wheldon wrote:
>
>>Hi,
>>
>>I've posted my actual code now to cut down on typos from my previous
>>posting.
>>
>>#################### This code works ie changes permissions on
>>file###########################
>>
>>use strict 'vars';
>>use Win32::Perms;
>>
>>my $perms = new Win32::Perms || die "Unable to create object";
>>$perms->Allow('Martin', FULL, CONTAINER_INHERIT_ACE);
>>$perms->Allow('Martin', FULL, OBJECT_INHERIT_ACE | INHERIT_ONLY_ACE);
>>
>>$perms->Dump;
>>
>>if ($perms->Set('d:/ccs/test.txt'))
>>      {
>>              print "permissions set OK";
>>      }
>>else
>>      {
>>              print "Failed";
>>      }
>>
>>#################### This code fails ie attempt to change directory
>>permissions ###########################
>>
>>use strict 'vars';
>>use Win32::Perms;
>>
>>my $perms = new Win32::Perms || die "Unable to create object";
>>$perms->Allow('Martin', FULL, CONTAINER_INHERIT_ACE);
>>$perms->Allow('Martin', FULL, OBJECT_INHERIT_ACE | INHERIT_ONLY_ACE);
>>
>>$perms->Dump;
>>
>>if ($perms->Set('d:/ccs'))
>>      {
>>              print "permissions set OK";
>>      }
>>else
>>      {
>>              print "Failed";
>>      }
>>
>>Any help with this is much appreciated.
>>Many thanks for your previous quick responses.
>>
>>Regards
>>
>>Martin Wheldon
>>
>>_______________________________________________
>>Perl-Win32-Admin mailing list
>>[EMAIL PROTECTED]
>>To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
>
>
>_______________________________________________
>Perl-Win32-Admin mailing list
>[EMAIL PROTECTED]
>To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs



_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs