Subversion Repositories wimsdev

!!!this file must be in the module directory because of the !mexec !!!!

INPUT external_login

OUTPUT : the up_xxx needed for the register of the user

!readproc adm/class/initldap

!set l_=$wims_read_parm

!default l_=$auth_user

!set sup_=!item 2 to -1 of $l_

!set l_=!item 1 of $l_

!! quite anonymous search, since $ldap_oneuser is unpriviledged

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:"

ldap_user=!replace internal http: by httpxx in $ldap_user

ldap_user=!replace internal : by = in $ldap_user

ldap_user=!replace internal httpxx by http: in $ldap_user

!!    f=!replace internal .. by $adonis in $f

 !!gestion des accents (avec l'option -h ou -t ? de ldapsearch)

ldap_user=!replace internal < file=///../tmp/sessions/$wims_session/ by file_save, in $ldap_user

### field can be on several lines (photo for example)

ldap_user=!replace internal $\

$ $ by in $ldap_user

ldap_user=!replace internal $ $ by _ in $ldap_user

### datauser ne sert pas ici mais dans la creation d'un fichier csv. Je laisse pour l'instant

!reset data_user

!for field in $ldap_code

  !reset f

  f=!getopt $field in $ldap_user

  !if $(f[1])=file_save

    f=!sh cat $wims_home/tmp/sessions/$wims_session/$(f[2]) | perl -e 'use Encode;while (<>) {print encode("iso-8859-1",decode("utf-8",$$_))}'

  !endif

  f=!replace internal _ by $ $ in $f

  !if $field=$l_login

    login=!nospace $f

    char=!charcnt $f

    !if $char=3

      f=!nospace $f 0

      login=$f

    !endif

  !endif login

  !if $field=password

    f=!randint 100000,400000

  !endif password

  data_user=!append item $f to $data_user

  !if $f !=$empty

    nfield=!positionof item $field in $ldap_code

    wfield=$(wims_code[$nfield])

    up_$wfield=$f

    replacelist=!append item $wfield to $replacelist

  !endif

!next