Subversion Repositories wimsdev

!if class = $doctype or $abandon!=$empty
 job=read
 !changeto read.proc
!endif

!if $coderr1$coder1=$empty
 !exit
!endif
oldcode=!record 0 of $docdir/$doc/.code
oldcoder=!line 2 of $oldcode
oldcoder=!word 1 of $oldcoder
oldcode=!line 1 of $oldcode
oldcode=!word 1 of $oldcode

!if $coder1!=$empty
 !if $oldcode!=$coder1
 error=bad_oldcode
 !exit
 !endif
 coder=!trim $coder
 coder2=!trim $coder2
 m1=!charcnt $coder
 m2=!charcnt $coder2
 coder=!text select $namechars in $coder
 coder2=!text select $namechars in $coder2
 n1=!charcnt $coder
 n2=!charcnt $coder2
 !if $m1!=$n1 or $m2!=$n2
  error=bad_newcode
  !exit
 !endif
 !if $coder!=$coder2
  error=code_discord
  !exit
 !endif
 n=!charcnt $coder
 !if $n<$codemin
  error=small_code
  !exit
 !endif
 !if $n>$codemax
  error=big_code
  !exit
 !endif
!endif

!if $coderr1!=$empty
 coderr=!trim $coderr
 coderr2=!trim $coderr2
 m1=!charcnt $coderr
 m2=!charcnt $coderr2
 coderr=!text select $namechars in $coderr
 coderr2=!text select $namechars in $coderr2
 n1=!charcnt $coderr
 n2=!charcnt $coderr2
 !if $m1!=$n1 or $m2!=$n2
  error=bad_newcode
  !exit
 !endif
 !if $coderr!=$coderr2
  error=code_discord
  !exit
 !endif
 n=!charcnt $coderr
 !if $n<$codemin
  error=small_code
 !exit
 !endif
 !if $n>$codemax
  error=big_code
  !exit
 !endif
!endif
!default coderr=$oldcoder
!default coder=$oldcode

!mexec scripts/setcode.sh
job=recode2