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