Subversion Repositories wimsdev

!if $wims_class=$empty or $wims_user!=supervisor
  error=unauthorized
  !exit
!endif

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

!sh cd $wims_home/$wims_sesdir\
 grep . user-deposit | awk '{print ":"$$0}' | tr '      "' ', ' >user_deposit\
 rm -f user-deposit >/dev/null

file=$wims_sesdir/user_deposit
n=!recordcnt wimshome/$file
!if $n<=0
  error=empty
  !exit
!endif

loglist=
!for i=1 to $n
  l=!record $i of wimshome/$file
  !if $gotlogin!=$empty
    ltest=!item $gotlogin of $l
    ll=!wordcnt $ltest
    !if $ll=1 and # notin $ltest
      dep_$ltest=$l
      loglist=!append item $ltest to $loglist
    !endif
  !else
    !if $i>3
      error=no_login
      !exit
    !endif
    !if login isitemof $l
      l=!lower $l
      types=!nospace $l
      gotlogin=!positionof item login in $l
      gotlogin=!item 1 of $gotlogin
    !endif
  !endif
!next i

!if $gotlogin=$empty
  error=no_login
  !exit
!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
  !if firstname isitemof $types and lastname isitemof $types
    prop=yes
    !read adm/class/userremain.proc
  !endif
!endif

!if manual isin $types
  manual=yes
!endif

replacelist=$types
types=!replace , by ,up_ in up_$types
gotcnt=!itemcnt $loglist
propcnt=0
gradecnt=0
!reset missing erased bad added change
processed=yes

!for l in $loglist
  !reset up_firstname,up_lastname,up_email,up_password,up_comments,up_regnum,up_photourl,up_participate,up_external_auth
  !distribute items $(dep_$l) into $types
  exist=!defof user_exists in wimshome/log/classes/$wims_class/.users/$l
  !if $exist=yes
    !if $prop=yes
     !read adm/class/adduser $l
    !endif
  !else
    exist2=!defof user_exists in wimshome/log/classes/$wims_class/.users/.$l
    !if $exist2=yes
      erased=!append item $l to $erased
    !else
      missing=!append item $l to $missing
      !if $up_firstname!=$empty and $up_lastname!=$empty and $up_password!=$empty
        !if $prop=yes
          !if $userremain>0
            !read adm/class/adduser $l
            !if $l notwordof $bad
              added=!append item $l to $added
            !else
              userremain=$[$userremain-1]
            !endif
          !else
            remark=$remark full
          !endif
      !endif
      !endif
    !endif
  !endif
!next l
missing=!listcomplement $added in $missing

!if $change!=$empty
  !read adm/class/mkuserlist
  wims_class_log=spreadsheet userinfo
!endif

!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/log/classes/$wims_class/.users/$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
!endif