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

!sh $wims_home/public_html/scripts/adm/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 wimshome/$($type)/.def

  !if $t=yes

    $(type)_defcnt=1

  !else

    $(type)_defcnt=0

  !endif

!next type

new_reccnt=$[$new_reccnt+$new_defcnt+$new_supcnt]

forbiddenlist=$empty

!for rec in $reclist

  !if $(new_$(rec)cnt)>0

    gotlist=!append item $rec to $gotlist

    !if $(max_$rec)!=$empty and $(new_$(rec)cnt)>$(max_$rec)

      forbiddenlist=!append word $rec to $forbiddenlist

    !endif

  !endif

!next rec

!if $forbiddenlist!=$empty

  dictionary=$module_dir/arch/recdepinv

  forbiddenlistdep=!exec translator $forbiddenlist

  forbiddenlistdep=!words2items $forbiddenlistdep

  forbiddenlist=!words2items $forbiddenlist

  forbiddenlistdep=!listunion $forbiddenlistdep and $forbiddenlist

!endif

!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