Subversion Repositories wimsdev

!if $job2=restore
 !goto next
!endif
wims_deposit=!word 1 of $wims_deposit
selection=
gotlist=

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

t=!translate . to $ $ in $wims_deposit
format=!word 2 to -1 of $t
format=!translate $ $ to . in $format
!if $format notwordof tgz tar.gz zip
 error=bad_file
 !exit
!endif

!mexec arch/decompress.sh
:next
new=$wims_sesdir/upload/class
old=log/classes/$wims_class
v=!record 0 of wimshome/$new/version
v=!trim $v
!!version <=4 for classes
!if $v=$empty or $v<4
 error=bad_file
 !exit
!endif

!for type in new,old
 !read scripts/reccnt.proc $type $($type)
 t=!defof class_defined in $($type)/.def
 !if $t=yes
  $(type)_defcnt=1
 !else
  $(type)_defcnt=0
 !endif
!next type
new_reccnt=$[$new_reccnt+$new_defcnt+$new_supcnt]

!for rec in $reclist
 !if $(new_$(rec)cnt)>0
  gotlist=!append item $rec to $gotlist
 !endif
!next rec
!if $gotlist=$empty
 error=empty_file
 !exit
!endif

serial=!record 0 of wimshome/$new/serial
serial=!word 1 of $serial

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