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