|
|
|
|
- Retrieving the rights granted to users on a data file and copying these rights
HInfoFileRights (Example)
Retrieving the rights granted to users on a data file and copying these rights sRights is string sARight is string // Retrieves the read/add rights granted to the usernamed Moore // on the MyFile.fic file found in MyDatabase sRights = HInfoFileRights("CNT", "Smith" , ... hRightsRead + hRightsInsert, "MyDatabase", "MyFile.fic") sARight = ExtractString(sRights, firstRank, TAB) WHILE sARight <> EOT SWITCH sARight    CASE hAllowed    ...    CASE hForbidden    ...    CASE hInherit    ...   END  sARight = ExtractString(sRights, nextRank, TAB) END  // Get the read and add rights for the usernamed Smith // on the MyFile.fic file found in MyDatabase sRights = HInfoFileRights("CNT", "Smith", ...   hRightsRead + hRightsInsert, "MyDatabase", "MyFile.fic", True) sARight = ExtractString(sRights, firstRank, TAB) WHILE sARight <> EOT SWITCH sARight CASE hAllowed    ...    CASE hForbidden    ...   END sARight = ExtractString(sRights, nextRank, TAB) END  // Copy the rights from a user to another one sRights1 is string sRights1 = HInfoFileRights("CNT", "Smith" , ... hRightsRead + hRightsInsert, "MyDatabase", "MyFile.fic") HModifyFileRights("CNT", "Doe", hRightsRead+hRightsInsert, ... sRights1, "MyDatabase", "MyFile.FIC")
This page is also available for…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|