Subversion Repositories wimsdev

!bound restore within replace,merge default merge

v=!record 0 of wimshome/$wims_sesdir/upload/class/version

v=!word 1 of $v

!if $v=$empty or $v<4

 error=no_upload

 !exit

!endif

serial=!record 0 of wimshome/$wims_sesdir/upload/class/serial

serial=!word 1 of $serial

!readdef wimshome/log/classes/$wims_class/neighbors

sharing=

!for r in $sharelist

 !if $(sharing_$r)!=$empty

  sharing=!append item $r to $sharing

 !endif

!endif

sharing=!append item log,neighbor to $sharing

safe=!listcomplement def,sup in $reclist

selection=!replace item all by $safe in $selection

sel=!listintersect $selection and $reclist

sel=!listcomplement $sharing in $sel

!if $sel=$empty

 no_selection=yes

 !read arch/upload.proc

 job2=upload

 !exit

!endif

selw=!items2words $sel

dictionary=$module_dir/arch/recdep

dep=!exec translator $selw

copy=!words2items $selw $dep

copy=!listuniq $copy

!! ----------------------------- restore of user when replace or merge

!if user isitemof $copy

 n=!recordcnt wimshome/$wims_sesdir/upload/class/.userlist

 !read adm/class/userremain.proc

 m=!recordcnt wimshome/log/classes/$wims_class/.userlist

 !if $restore=merge

  !if $n>$dispo

   user_bad=refused

   copy=!listcomplement user,score in $copy

  !endif

 !else

  !if ($n>$dispo and $class_superclass!=$empty) or ($class_superclass=$empty and $n>$dispo+$m)

   user_bad=refused

   copy=!listcomplement user,score in $copy

  !else

   !if $m>0

    erase=user

   !endif

  !endif

 !endif

 !if ($wims_supertype=4 or $wims_supertype=2)

  !if $class_typename=class

   !if user isin $erase

    !for k=1 to $m

     u=!record $k of wimshome/log/classes/$wims_class/.userlist

     t=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$(u[3])

     t=!listcomplement $wims_class in $t

     !setdef !set user_participate=$t in wimshome/log/classes/$wims_superclass/.users/$(u[3])

    !next k

   !endif

   !reset user_ok,user_loginused

   !for k=1 to $n

    u=!record $k of wimshome/$wims_sesdir/upload/class/.userlist

    test=!defof user_exists in wimshome/log/classes/$wims_superclass/.users/$(u[3])

    !if $test!=$empty

     user_loginused=!append item $(u[3]) to $(user_loginused)

     !sh rm -f $wims_home/$wims_sesdir/upload/class/.users/$(u[3]) $wims_home/$wims_sesdir/upload/class/score/$(u[3]) $wims_home/$wims_sesdir/upload/class/noscore/$(u[3]);

    !else

     user_ok=!append item $(u[3]) to $user_ok

    !endif

   !next k

   !sh cd $wims_home/$wims_sesdir/upload/class/;\

cp -pR .users $wims_home/log/classes/$wims_superclass/;

   !for u in $user_ok

    !setdef !set user_participate=$wims_class in wimshome/log/classes/$wims_superclass/.users/$u

   !next k

  !endif

  copy=!listcomplement user in $copy

  !readproc adm/class/mkuserlist

 !endif

!endif

!if $restore=replace

 erase=$copy

!else

 erase=!listcomplement user,exo in $copy

!endif

copyw=!items2words $copy

erasew=!items2words $erase

dictionary=$module_dir/arch/recdir

copylist=!exec translator $copyw

eraselist=!exec translator $erasew

c=!replace , by , $ in $copy

dictionary=$module_dir/lang/recnames.$moduclass_lang

restored=!exec translator $c

!distribute words y y y y y y y y y y y y y y y y y y y y y y y into $copy

!if def isitemof $copy

 creat=!defof class_creation in wimshome/log/classes/$wims_class/.def

!endif

!mexec arch/restore.sh

wims_class_log=Restore $copy from $wims_deposit by $wims_realuser

selection=

!if user isitemof $copy

 !read adm/class/mkuserlist

!endif

!if def isitemof $copy

 !setdef !set class_creation=$creat in wimshome/log/classes/$wims_class/.def

 exp=!defof class_expiration in wimshome/log/classes/$wims_class/.def

 today=!char 1 to 8 of $wims_now

 later=!date -d '2 months' '+%Y%m%d'

 !if NaN isin $[$exp]

  exp_bad=bad

  exp=$later

 !endif

 !if $exp<$later

  exp=$later

  exp_bad=early

 !endif

 !if $exp>$today+10000

  exp=$[$today+10000]

  exp_bad=late

 !endif

 !if $exp_bad!=$empty

  !setdef !set class_expiration=$exp in wimshome/log/classes/$wims_class/.def

 !endif

 !mexec scripts/classlist.sh

!endif

!read adm/class/stat