Subversion Repositories wimsdev

!read scripts/getindex.proc $modreq

!if $title=$empty and $inddef=$empty

 job=modname

 modreq=

 !changeto $job.proc

!endif

dir=binary,data,images,help,anstype,slib

cattest=!module category devel/$auth_login/$mod

!if document isin $cattest

  dir=doc/srctex

  test=!defof common_files in wimshome/public_html/$devdir/$mod/var.proc

!!!FIXME depends on 1

  !if $test!=yes

    dir=!append item doc/1/files to $dir

  !else

    dir=!append item doc/files to $dir

  !endif

!endif

!if oef isin $cattest

 test=!defof common_images in wimshome/public_html/$devdir/$mod/var.proc

 !if $test!=yes and datamodule/ notin $test

  oefs=!sh cd $devdir/$mod/src\

   ls *.oef | grep -v '\*' | sed 's/\.oef$$//' | awk '{print "images/"$$1}'

  oefs=!lines2items $oefs

  dir=$dir,$oefs

 !endif

!endif

!bound bin_dir within $dir default $

!if $bin_job=erase and $fname!=$empty

  check=!translate internal / to , in $fname

  check=!item 1 to -2 of $check

  check=!nospace $check

  check=!translate internal , to / in $check

  !if $check!=$empty and $check isitemof $dir and .. notin $fname

    src=cd $devdir/$mod; rm -f $fname

    !if ../images/ isin ../$check/

      src=$src\

      exec imgindex

    !endif

    !sh $src

    successdelete=yes

  !else

    successdelete=no

  !endif

!endif

success=no

!if $wims_deposit!=$empty and $wims_deposit!=noname.file \

    and $bin_job=deposit and $bin_dir!=$empty \

    and / notin $wims_deposit and .. notin $wims_deposit and & notin $wims_deposit

  wims_deposit=!nospace $wims_deposit

  wims_deposit=!deaccent $wims_deposit

  !set test=!filelist $devdir/$mod/images

  !set test1=!lowercase $test

  !set test2=!lowercase $wims_deposit

  !if $test2 isin $test1 and $wims_deposit notin $test

    !!files are different only by the case

    error=bad_case

    !goto list

  !endif

  src=mkdir $devdir/$mod/$bin_dir\

    mv $wims_home/$wims_sesdir/user-deposit $devdir/$mod/$bin_dir/$wims_deposit

  !if ../images/ isin ../$bin_dir/

    src=$src\

    cd $devdir/$mod\

    exec imgindex

  !endif

  !sh $src

  success=yes

!endif

:list

dirs=!items2words $dir

bfiles=!sh cd $devdir/$mod\

  dd=`find $dirs -type f -name '*'| sort | uniq 2>/dev/null`\

  [ -z "$$dd" ] && exit\

  ls -l $$dd | awk '{print $$9","$$5}'

bcnt=!linecnt $bfiles

dest_=$wims_home/public_html/$devdir/$mod

!if $mkdoc !=$empty

  !sh cd $dest_ ; $wims_home/other/bin/src2def ;

!endif

!reset mkdoc