Subversion Repositories wimsdev

!if $target1!=$empty
 !if $original2=$empty
  !reset target1,target2,target3,target4
  !goto start
 !endif
 !read scripts/target
 !if $error!=$empty
  !reset target1 target2 target3 target4
  original=$originheader$original2
 !endif
!endif

!if $target1=$empty or $target4=$empty
 :start
 !if .. isin $original or $original=$empty
  error=badoriginal
  !exit
 !endif
 otit=!module title $original
 !if $otit=$empty
  error=badoriginal
  !exit
 !endif
 orig2=!translate internal ~/. to ,,, in $original
 orig2=!nonempty items $orig2
 orig2=!nospace $orig2
 !distribute items $orig2 into O1,O2
 orig2=!item -4,-3,-2,-1 of $orig2
 orig2=!nonempty items $orig2
 !distribute items $orig2 into o1,o2,o3,o4
 ocnt=!itemcnt $orig2
 copyright=!module copyright $original
 original2=$original
 originheader=
 !if ../devel/$auth_login/ isin ../$original2
  originheader=devel/$auth_login/
  orig=!translate internal / to , in $original2
  original2=!item 3 to -1 of $orig
  original2=!nospace $original2
  original2=!translate internal , to / in $original2
 !endif
 !if $originheader=$empty and \
   ($job=move or $O1 notitemof contrib,$zonelist or COPYING notin $copyright)
  error=badoriginal
  !exit
 !endif
 ltest=!sh find modules/$original -type l -print
 !if $ltest!=$empty and $O1/$O2!=devel/$auth_login
  error=symlink
  !exit
 !endif
 !if $o4 notitemof $langlist
  !reset o1,o2,o3,o4
 !endif
 orig2=!item -3 to -1 of $orig2
 orig2=!translate internal , to / in $orig2
 orig2=!nospace $orig2
 !exit
!endif

!if $job=move and $originheader!=$empty
 !sh cd $devdir; mv $original2 $target
!else
 !sh cd modules; \
        mkdir -p devel/$auth_login\
        cp -pr $originheader$original2 devel/$auth_login/$target
!endif
!setdef language=$target4 in wimshome/public_html/modules/devel/$auth_login/$target/INDEX
modreq=$target
job=flist
!changeto $job.proc