@ReorgACLPrivileges

Die leeren Elemente der TEXTLIST PRIVNAMES2 werden entfernt und im Parameter RETUSERPRIVS3 zurückgegeben.
Die korrespondierenden Privilegienverweise in der TEXTLIST USERPRIVS1 werden angepaßt und im Parameter RETPRIVNAMES4 zurückgegeben.

Die ersten 5 Previlegien werden nicht aus der Liste TEXTLIST PRIVNAMES2 und die korrespondierenden Verweise in TEXTLIST USERPRIVS1 werden nicht verschoben.

Mit FN FNMODUS5 wird festgelegt ob die ersten 5 Elemente der TEXTLIST PRIVNAMES2 unverändert bleiben (=0) oder wenn eines oder mehrere dieser ersten 5 Previlegien lehr ("") sind durch den Text "Priviledge "+Nummer (z.B. "Priviledge 1") ersetzt werden sollen (=1).
Bei FN FNMODUS5 =2 wird wie bei FN FNMODUS5 =1 verfahren der Ersetzungstext ist jedoch bei einem lehren Element "-".
Wird FN FNMODUS5 nicht angegeben wird für FN FNMODUS5 der Wert 1 angenommen.

Im Erfolgsfall wird TRUE zurückgegeben andernfalls @ERROR.

Beispiel:@ReorgACLPrivileges(USERPRIVS1;PRIVNAMES2;RETUSERPRIVS3;RETPRIVNAMES4);

USERPRIVS1:="1,2,4,5,7,ACC,RPD":"1,4,5,7,ACC,RPD";
PRIVNAMES2:="":"Priv2":"":"":"":"":"PRIV7":"PRIV8";
Ret:=@ReorgACLPrivileges(USERPRIVS1;PRIVNAMES2;RETUSERPRIVS3;RETPRIVNAMES4);
@LogReport(RETUSERPRIVS3);
@LogReport(RETPRIVNAMES4);

Es wird RETUSERPRIVS3 die TEXTLIST "1,2,4,5,6,ACC,RPD":"1,4,5,6,ACC,RPD" zugewiesen und RETPRIVNAMES4 wird die TEXTLIST "Priviledge 1":"Priv2":"Priviledge 3":"Priviledge 4":"Priviledge 5":"PRIV7":"PRIV8" zugewiesen.

Beispiel:@ReorgACLPrivileges(USERPRIVS1;PRIVNAMES2;RETUSERPRIVS3;RETPRIVNAMES4;FNMODUS5);

FNMODUS5:=0;
USERPRIVS1:="1,2,4,5,7,ACC,RPD":"1,4,5,7,ACC,RPD";
PRIVNAMES2:="":"Priv2":"":"":"":"":"PRIV7":"PRIV8";
Ret:=@ReorgACLPrivileges(USERPRIVS1;PRIVNAMES2;RETUSERPRIVS3;RETPRIVNAMES4;FNMODUS5);
@LogReport(RETUSERPRIVS3);
@LogReport(RETPRIVNAMES4);

Es wird RETUSERPRIVS3 die TEXTLIST "1,2,4,5,6,ACC,RPD":"1,4,5,6,ACC,RPD" zugewiesen und RETPRIVNAMES4 wird die TEXTLIST "":"Priv2":"":"":"":"PRIV7":"PRIV8" zugewiesen.

FNMODUS5:=1;
USERPRIVS1:="1,2,4,5,7,ACC,RPD":"1,4,5,7,ACC,RPD";
PRIVNAMES2:="":"Priv2":"":"":"":"":"PRIV7":"PRIV8";
Ret:=@ReorgACLPrivileges(USERPRIVS1;PRIVNAMES2;RETUSERPRIVS3;RETPRIVNAMES4;FNMODUS5);
@LogReport(RETUSERPRIVS3);
@LogReport(RETPRIVNAMES4);

Es wird RETUSERPRIVS3 die TEXTLIST "1,2,4,5,6,ACC,RPD":"1,4,5,6,ACC,RPD" zugewiesen und RETPRIVNAMES4 wird die TEXTLIST "Priviledge 1":"Priv2":"Priviledge 3":"Priviledge 4":"Priviledge 5":"PRIV7":"PRIV8" zugewiesen.

FNMODUS5:=2;
USERPRIVS1:="1,2,4,5,7,ACC,RPD":"1,4,5,7,ACC,RPD";
PRIVNAMES2:="":"Priv2":"":"":"":"":"PRIV7":"PRIV8";
Ret:=@ReorgACLPrivileges(USERPRIVS1;PRIVNAMES2;RETUSERPRIVS3;RETPRIVNAMES4;FNMODUS5);
@LogReport(RETUSERPRIVS3);
@LogReport(RETPRIVNAMES4);

Es wird RETUSERPRIVS3 die TEXTLIST "1,2,4,5,6,ACC,RPD":"1,4,5,6,ACC,RPD" zugewiesen und RETPRIVNAMES4 wird die TEXTLIST "-":"Priv2":"-":"-":"-":"PRIV7":"PRIV8" zugewiesen.