Subversion Repositories wimsdev

# This line prevents clashes of users with same login.
adduser_replace=nopass
wims_priv_cryptpass=allow
wims_deposit=!word 1 of $wims_deposit
!if $wims_deposit=$empty
 !exit
!endif

!if / isin $wims_deposit or .. isin $wims_deposit
 error=bad_filename
 !exit
!endif

d=!translate . to $ $ in $wims_deposit
d=!word -1 of $d
!if $d notwordof csv tsv txt
 error=bad_filename
 !exit
!endif

sdir=$wims_home/$wims_sesdir
t=!exec ftype $sdir/user-deposit
!if $t=$empty
 !exit
!endif
!if $t=binary
 error=binary_upload
 !exit
!endif

!sh grep . $sdir/user-deposit | awk '{print ":"$$0}' | tr '     "' ', ' >$sdir/user_deposit
file=wimshome/$wims_sesdir/user_deposit

!read csv/gotlogin $file,login

!if $gotlogin=$empty
 !read adm/class/initclass $wims_class,auth
 !if $auth_method notitemof $auth_method_list
  error=no_login
  !exit
 !else
   !read csv/gotlogin $file,external_auth
   !if $(gotexternal_auth)=$empty
     error=no_login_external_auth
     !exit
   !else
    extern=yes
   !endif
 !endif
!endif

remark=
!if sheet isin $types or exam isin $types or average isin $types
 remark=$remark noauto
!endif

prop=no
!if noauto iswordof $remark or manual isin $types
 remark=$remark noprop
!else
!! pourquoi cette condition ???
 !if firstname isitemof $types and lastname isitemof $types
  prop=yes
 !endif
 !read adm/class/userremain.proc
!endif

!if manual isin $types
 manual=yes
!endif

replacelist=$types
types=!replace , by ,up_ in up_$types
types_cnt=!itemcnt $types
gotcnt=!itemcnt $loglist
propcnt=0
gradecnt=0
!reset missing erased bad added change badlogin
processed=yes
!! on parcourt la liste des lignes des bons logins
!for i = 1 to $gotcnt
  l=$(loglist[$i])
  l__=$(logtest[$i])
  !reset up_firstname,up_lastname,up_email,up_password,up_comments,up_regnum,up_photourl,\
    up_vars,up_participate,up_external_auth,up_supervise,up_supervisable
  !! fill in the fields ...
  !distribute items $(dep_$l__) into $types
  !for m = 1 to $types_cnt
    typ=$(types[$m])
    !if Aup_var_ isin A$typ
      typ1=!replace internal up_var_ by  in $typ
      up_vars=!append line $typ1=$($typ) to $up_vars
    !endif
  !next m
  up_vars=!lines2rows $up_vars
  !if $extern=yes
    up_external_auth=!lowercase $l
    l=!lookup $l in wimshome/$sclassdir/.userlist_external
    !if $l=$empty
      l=!lookup $l in wimshome/$sclassdir/.teacherlist_external
    !endif
    !if $l=$empty
       !if $idp_method=ldap
!!define login_method
        !read adm/class/initldap
       !endif
      !read adm/class/hashlogin $up_external_auth,$wims_class,$login_method
      l=$login
      !default up_password=!randint 1999999,3000000
    !endif
  !endif extern=yes

!! $l is now the login in all cases
  exist=!defof user_exists in wimshome/$userdir/$l
  existsup=$exist
  !if $existsup=yes
     lfname=!defof user_lastname,user_firstname,user_external_auth in wimshome/$userdir/$l
     !default up_firstname=$(lfname[2])
     !default up_lastname=$(lfname[1])
     !default up_external_auth=$(lfname[3])
     !if $up_firstname!=$empty and $up_lastname!=$empty
       prop=yes
     !endif
  !else
!!FIXME
    !if $idp_method isitemof $idp_method_list and ($up_firstname=$empty or $up_lastname=$empty)
!! I am not sure of what we must do : priority to the idp or to the modification of the teacher ??
      !distribute item $up_firstname, $up_lastname into up_firstname_ , $up_lastname_
      !read adm/class/idp_$idp_method $up_external_auth
      !if $up_lastname_!=$empty
        up_lastname=$up_lastname_
      !endif
      !if $up_firstname_!=$empty
        up_firstname=$up_firstname_
      !endif
      !if $up_firstname!=$empty and $up_lastname!=$empty
       prop=yes
      !endif
    !endif
  !endif
  !if $wims_superclass!=$empty and $wims_superclass!=$wims_class
   participate=!defof user_participate in wimshome/$userdir/$l
   !if $wims_class notitemof $participate
    exist=
   !endif
  !endif
  !if $exist=yes
    !if $prop=yes
     !read adm/class/adduser $l
    !endif
  !else
   exist2=!defof user_exists in wimshome/$userdir/.$l
   !if $exist2=yes
    erased=!append item $l to $erased
   !else
    missing=!append item $l to $missing
    !! ici aussi on a besoin d'avoir le nom et prenom
    !if $existsup=yes or ($up_firstname!=$empty and $up_lastname!=$empty and $up_password!=$empty)
     !if $prop=yes
      !if $userremain>0
       !read adm/class/adduser $l
       !if $l notitemof $bad
        added=!append item $l to $added
            userremain=$[$userremain-1]
       !endif  l notitemof bad
      !else
       remark=$remark full
      !endif userremain
     !endif prop=yes
     !else
      !if $up_password=$empty
        pass_missing=yes
      !endif
    !endif firstname ... non empty
   !endif exist2=yes
  !endif exist=yes
!next l
!if $change!=$empty
 !read adm/class/mkuserlist
 !if $classtype isin 24
  !read adm/gateway/mkteacherlist
 !endif
 !read adm/class/stat
 wims_class_log=spreadsheet userinfo by $wims_realuser
!endif
missing=!listcomplement $added in $missing
change=!listcomplement $added in $change
added=!listcomplement $missing in $added

!if $manual=yes
 fn=wimshome/log/classes/$wims_class/.grades
 fu=wimshome/log/classes/$wims_class/.userlist
 l=!record 1 of $fn
 t=!line 2 of $l
 n=!itemcnt $t
 n=$[$n-2]
 !if $n<1
  error=no_manual
  !exit
 !endif
 otypes=nn
 !for i=1 to $n
  otypes=$otypes,o_$i
 !next i
 first=$l
 cnt=!recordcnt $fn
 !for u=2 to $cnt
  l=!record $u of $fn
  uu=!item 1 of $l
  orig_$uu=!item 2 to -1 of $l
 !next u
 !writefile $fn :$first
 cnt=!recordcnt $fu
 !for i=1 to $cnt
  l_=!record $i of $fu
  u=!item 3 of $l_
  !distribute items $(dep_$u) into $types
  !distribute items $(orig_$u) into $otypes
  t_=!defof user_firstname user_lastname in wimshome/$userdir/$u
  !for i=1 to $n
   l_=$[$(up_manual$i)]
   !if NaN isin $l_ or Inf isin $l_ or $l_<0 or $l_>100000 or $(up_manual$i)=$empty
    l_=
   !endif
   !default l_=$(o_$i)
   t_=!append item $l_ to $t_
  !next i
  !appendfile $fn :$u,$t_
 !next u
 wims_class_log=spreadsheet grades by $wims_realuser
!endif