view release on metacpan or  search on metacpan

ACL.xs  view on Meta::CPAN

 # If there are no default acl entries, then no default_acl hash is returned.

 # If there is an error, then the null list is returned, and $! is set
 # to indicate the error.  A more informative error message can be found 
 # in $Solaris::ACL::error.

void
getfacl(file_name)
     SV * file_name;
     PPCODE:
{
  char *file_string;        /* c-string version of file_name */
  int file_string_length;   /* need to pass a variable to SvPV */
  HV *acl_hash, *default_acl_hash, *current_acl_hash;
  HV *user_hash, *default_user_hash, **current_user_hash;
  HV *group_hash, *default_group_hash, **current_group_hash;
  SV **acl_list_hash;
  
  int num_acl_ents;
  aclent_t *acl_ents;

ACL.xs  view on Meta::CPAN

 # acl (and optionally default_acl) should be a reference to a hash with
 # the same structure as in getfacl.  The return is TRUE on sucess and FALSE
 # on failure.  If a failure is indicated, the caller should check the
 # string $Solaris::ACL::error for more information.  If the error is a
 # system error, the error will also be in $!.

void
setfacl(file_name, acl_hashref, ...)
     SV *file_name;
     SV *acl_hashref;
     PPCODE:
{
  char *file_string;        /* c-string version of file_name */
  int file_string_length;   /* need to pass a variable to SvPV */

  HV *acl_hash, *def_acl_hash;
  HV *user_hash, *group_hash, *def_user_hash, *def_group_hash;
  SV **mask, **def_mask;

  aclent_t *acl_ents;
  int num_acl_ents;