Subversion Repositories wimsdev

!read scripts/getindex.proc $mod

!if $title=$empty

  job=modname

  !changeto modname.proc

!endif

!if $fnewname=$fname

  error=nochange

!exit

!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

allowchar=/._$alnum

fnewname=!word 1 of $fnewname

fnewname=!text select $allowchar in $fnewname

c=!char 1 of $fnewname

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

  !goto badname

!endif

!read files.proc

!if $fnewname isitemof $files

  error=bad_fname_already

  lastfname=$fname

  job=flist

  !changeto flist.proc

!endif

!if $fnewname=$empty

  job=flist

  !changeto $job.proc

!endif

moddir=modules/devel/$auth_login/$mod

!if ../src/ isin ../$fnewname

  mkdef=src2def 2>/dev/null

!else

  !reset mkdef

!endif

test=!sh cd $moddir; ls

!sh cd $moddir\

  mkdir -p .deleted\

  cp $fname .deleted\

  mv $fname $fnewname\

  $mkdef

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

  im=!replace internal src by images in $fname

  im=!replace internal .oef by in $im

  testim=yes

  im=!replace internal _src by images in _$fname

  im=!replace internal .oef by in $im

  fname_=!replace internal / by , in $fnewname

  imnew=!replace internal .oef by in images/$(fname_[2])

  !sh cd $moddir\

  if [ -d $im ]; then mv $im $imnew; fi;

!endif

wims_module_log=move $mod/$fname