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