Subversion Repositories wimsdev

!read scripts/getindex.proc $mod

!if $title=$empty

 job=modname

 !changeto modname.proc

!endif

allowchar=/.-_$alnum

fname=!word 1 of $fname

fname=!text select $allowchar in $fname

c=!char 1 of $fname

!if $c=. or $c=/ or .. isin $fname

 !goto badname

!endif

!read files.proc

!if $fname notitemof $files

 :badname

 error=bad_fname

 lastfname=$fname

 job=flist

 !changeto flist.proc

!endif

!if $fname=$empty

 job=flist

 !changeto $job.proc

!endif

moddir=modules/devel/$auth_login/$mod

!if ../src/ isin ../$fname

 mkdef=src2def 2>/dev/null

!else

 !reset mkdef

!endif

test=!sh cd $moddir; ls

!sh cd $moddir\

  mkdir -p .deleted\

  mv $fname .deleted\

  $mkdef

!if .oef$ $ isin $(fname)$ $

  im=!replace internal src by images in $fname

  im=!replace internal .oef by in $im

  testim=yes

!endif

!if $testim=yes

  im=!replace internal src by images in $fname

  im=!replace internal .oef by in $im

  !sh cd $moddir\

  if [ -d $im ]; then mkdir -p .deleted/$im; mv $im/* .deleted/$im; fi;

!endif

wims_module_log=delete $mod/$fname