Added SYS_GETACL system call and implemented it in userland
[tpg/acess2.git] / Kernel / vfs / acls.c
index 5a112de..9ef4676 100644 (file)
@@ -6,10 +6,10 @@
 #include "vfs_int.h"
 
 // === GLOBALS ===
-tVFS_ACL       gVFS_ACL_EveryoneRWX = { {0,-1}, {0,VFS_PERM_ALL} };
-tVFS_ACL       gVFS_ACL_EveryoneRW = { {0,-1}, {0,VFS_PERM_ALL^VFS_PERM_EXECUTE} };
-tVFS_ACL       gVFS_ACL_EveryoneRX = { {0,-1}, {0,VFS_PERM_READ|VFS_PERM_EXECUTE} };
-tVFS_ACL       gVFS_ACL_EveryoneRO = { {0,-1}, {0,VFS_PERM_READ} };
+tVFS_ACL       gVFS_ACL_EveryoneRWX = { {1,-1}, {0,VFS_PERM_ALL} };
+tVFS_ACL       gVFS_ACL_EveryoneRW = { {1,-1}, {0,VFS_PERM_ALL^VFS_PERM_EXECUTE} };
+tVFS_ACL       gVFS_ACL_EveryoneRX = { {1,-1}, {0,VFS_PERM_READ|VFS_PERM_EXECUTE} };
+tVFS_ACL       gVFS_ACL_EveryoneRO = { {1,-1}, {0,VFS_PERM_READ} };
 
 // === CODE ===
 /**
@@ -56,3 +56,44 @@ int VFS_CheckACL(tVFS_Node *Node, Uint Permissions)
        
        return 0;
 }
+/**
+ * \fn int VFS_GetACL(int FD, tVFS_ACL *Dest)
+ */
+int VFS_GetACL(int FD, tVFS_ACL *Dest)
+{
+        int    i;
+       tVFS_Handle     *h = VFS_GetHandle(FD);
+       
+       // Error check
+       if(!h)  return -1;
+       
+       // Root can do anything
+       if(Dest->Group == 0 && Dest->ID == 0) {
+               Dest->Inv = 0;
+               Dest->Perms = -1;
+               return 1;
+       }
+       
+       // Root only file?, fast return
+       if( h->Node->NumACLs == 0 ) {
+               Dest->Inv = 0;
+               Dest->Perms = 0;
+               return 0;
+       }
+       
+       // Check Deny Permissions
+       for(i=0;i<h->Node->NumACLs;i++)
+       {
+               if(h->Node->ACLs[i].Group != Dest->Group)       continue;
+               if(h->Node->ACLs[i].ID != Dest->ID)     continue;
+               
+               Dest->Inv = h->Node->ACLs[i].Inv;
+               Dest->Perms = h->Node->ACLs[i].Perms;
+               return 1;
+       }
+       
+       
+       Dest->Inv = 0;
+       Dest->Perms = 0;
+       return 0;
+}

UCC git Repository :: git.ucc.asn.au