Subversion Repositories wimsdev

## INPUT; identifier, class, method (for the moment only ldap)
## OUTPUT : wims compatible unique identifier, compatible with class
##FIXME php ?

!read adm/class/authchars
!set limit=2
!set limit_while=$[10^$limit]

!distribute items $wims_read_parm into login,cl,meth
!set login=!lower $login
!if $login=$empty
  error=login_empty
  !exit
!endif
!set login_ext=$login
!if $meth!=$empty
  !set meth_=!word 1 of $meth
  !bound meth_ within ldap default $empty
  !set ldap_id=!word 2 of $meth
  !if $ldap_id!=$empty and $meth_ !=$empty
    !goto ldap
    !exit
  !endif
!endif

!set login=!text select $char_alnum in $login
!set login=!char 1 to $[$login_max -$limit] of $login
!set tmp=!charcnt $login
!if $tmp<$login_min
  login=$(login)00
  !reset tmp
!endif
!!set cl=!replace internal / by , in $cl
!set cl=$(cl[1])
!if $cl=$empty
  !reset login
  !exit
!endif
cnt=0
u_exists=yes
login_init=$login
!while $u_exists=yes and $cnt<$limit_while
  !if $cnt>0
    login=$login_init$cnt
  !endif
  !set tt1=!lookup $login_ext in wimshome/log/classes/$cl/.teacherlist_external
  !set tt2=!lookup $login_ext in wimshome/log/classes/$cl/.userlist_external
  !if $tt1!=$empty or $tt2!=$empty
    !! user can be both in .userlist and in .teacherlist (see r5260)
    !if $tt1=$tt2
      login=$tt1
    !else
      login=$tt1$tt2
    !endif
    !exit
  !endif
  !read adm/class/userisinclass $cl,$login
  !set u_exists=$script_reply
  !increase cnt
!endwhile
!if $cnt>=$limit_while
  !reset login
!endif
!if $login=$empty
  error=login_missing
  missing=!append item $login_ext to $missing
!endif
!exit
:ldap

!if $ldap_uid!=$ldap_login and $ldap_login notsametext $empty
  !! quite anonymous search, since $ldap_oneuser is unpriviledged
  !set login=!sh ldapsearch -x -LLL -t -H ldap://$ldap_auth:$ldap_port -b "$ldap_base" $ldap_accreditation $ldap_uid="$login" $ldap_login | grep -v "^[d]n:"
  !set login=!replace internal : by = in $login
  !set login=!getopt $ldap_login in $login
  !set login=!text select $char_alnum in $login
  !set login=!char 1 to $[$login_max -$limit] of $login
  !set login_char=!charcnt $login
  !if $login_char=3
    !set login=$(login)0
  !endif
!endif
!if $login=$empty
  error=login_empty
  !exit
!endif