Subversion Repositories wimsdev

!!!this file must be in the module directory because of the !mexec !!!!
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_
      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:" 
      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

### 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=!mexec scripts/decode.pl $wims_home/tmp/sessions/$wims_session/$(f[2])
  !endif
  !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