Subversion Repositories wimsdev

Rev

Rev 12555 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12555 Rev 13323
Line 4... Line 4...
4 
!readproc adm/class/initldap
 4 
!readproc adm/class/initldap
5 
!set l_=$wims_read_parm
 5 
!set l_=$wims_read_parm
6 
!default l_=$auth_user
 6 
!default l_=$auth_user
7 
!set sup_=!item 2 to -1 of $l_
 7 
!set sup_=!item 2 to -1 of $l_
8 
!set l_=!item 1 of $l_
 8 
!set l_=!item 1 of $l_
- 
 
 9 
!! quite anonymous search, since $ldap_oneuser is unpriviledged
9 
ldap_user=!sh ldapsearch -x -LLL -t -H ldap://$ldap_auth:$ldap_port -b "$ldap_base" $ldap_uid="$l_" $ldap_code_ | grep -v "^[d]n:"
 10 
ldap_user=!sh ldapsearch -x -LLL -t -H ldap://$ldap_auth:$ldap_port -b "$ldap_base" $ldap_accreditation $ldap_uid="$l_" $ldap_code_ | grep -v "^[d]n:"
10 
ldap_user=!replace internal http: by httpxx in $ldap_user
 11 
ldap_user=!replace internal http: by httpxx in $ldap_user
11 
ldap_user=!replace internal : by = in $ldap_user
 12 
ldap_user=!replace internal : by = in $ldap_user
12 
ldap_user=!replace internal httpxx by http: in $ldap_user
 13 
ldap_user=!replace internal httpxx by http: in $ldap_user
13 
!!    f=!replace internal .. by $adonis in $f
 14 
!!    f=!replace internal .. by $adonis in $f
14 
 !!gestion des accents (avec l'option -h ou -t ? de ldapsearch)
 15 
 !!gestion des accents (avec l'option -h ou -t ? de ldapsearch)