|
|
|
|
|
|
|
|
|
|
L'exemple suivant présente l'utilisation récursive de la fonction LDAPNbValeur. // On recherche les attributs
sListeAttributs est une chaîne
sListeAttributs = LDAPListeAttribut("MaSession", "DC=pcs,DC=local")
Â
// On recherche les fils
sListeFils est une chaîne
sListeFils = LDAPListeFils("MaSession", "DC=pcs,DC=local")
Â
// On recherche récursivement les attributs des fils et leurs nombres
gRechercheSousFilsAttributsNombre(sListeFils, sListeAttributs, "DC=pcs,DC=local")
//============== utilisation récursive de LDAPNbValeur ==============
PROCÉDURE gRechercheSousFilsAttributsNombre(sListeF, sListeA, sDN)
sNomFils est une chaîne
i est un entier = 1
j est un entier = 1
sListeFils est une chaîne
sNomAttribut est une chaîne
nNombre est un entier
// On recherche le nombre de chaque attribut
sNomAttribut = ExtraitChaîne(sListeA, j, RC)
TANTQUE sNomAttribut <> EOT
nNombre = LDAPNbValeur("MaSession", sDN, sNomAttribut)
  // On ajoute les attributs dans le résultat
gsListeAttributsNombre += sNomAttribut + TAB + nNombre + RC
j += 1
sNomAttribut = ExtraitChaîne(sListeA, j, RC)
FIN
sNomFils = ExtraitChaîne(sListeF, i, RC)
TANTQUE sNomFils <> EOT
// On recherche les attributs des fils
sListeAttributs est une chaîne
sListeAttributs = LDAPListeAttribut("MaSession", sNomFils)
// On recommence avec les fils du fils
sListeFils = LDAPListeFils("MaSession", sNomFils)
SI sListeFils <> "" ALORS
gRechercheSousFilsAttributsNombre(sListeFils, sListeAttributs, sNomFils)
SINON
// On recherche le nombre de chaque attribut
j = 1
sNomAttribut = ExtraitChaîne(sListeAttributs, j, RC)
TANTQUE sNomAttribut <> EOT
nNombre = LDAPNbValeur("MaSession", sNomFils, sNomAttribut)
// On ajoute les attributs dans le résultat
gsListeAttributsNombre += sNomAttribut + TAB + nNombre + RC
 j += 1
sNomAttribut = ExtraitChaîne(sListeAttributs, j, RC)
FIN
FIN
i += 1
sNomFils = ExtraitChaîne(sListeF, i, RC)
FIN
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|