Subversion Repositories wimsdev

Compare Revisions

Ignore whitespace Rev 14626 → Rev 14627

/trunk/wims/public_html/modules/adm/modtool/changeconfirm.proc
1,8 → 1,7
 
!read scripts/getindex $mod
!if $title=$empty
job=modname
!changeto modname.proc
job=modname
!changeto modname.proc
!endif
!if $fnewname=$fname
error=nochange
13,15 → 12,15
fname=!text select $allowchar in $fname
c=!char 1 of $fname
!if $c=. or $c=/ or .. isin $fname
!goto badname
!goto badname
!endif
!read files
!if $fname notitemof $files
:badname
error=bad_fname
lastfname=$fname
job=flist
!changeto flist.proc
:badname
error=bad_fname
lastfname=$fname
job=flist
!changeto flist.proc
!endif
allowchar=/._$alnum
fnewname=!word 1 of $fnewname
28,25 → 27,25
fnewname=!text select $allowchar in $fnewname
c=!char 1 of $fnewname
!if $c=. or $c=/ or .. isin $fnewname
!goto badname
!goto badname
!endif
!read files
!if $fnewname isitemof $files
error=bad_fname_already
lastfname=$fname
job=flist
!changeto flist.proc
error=bad_fname_already
lastfname=$fname
job=flist
!changeto flist.proc
!endif
!if $fnewname=$empty
job=flist
!changeto $job.proc
job=flist
!changeto $job.proc
!endif
 
moddir=modules/devel/$auth_login/$mod
!if ../src/ isin ../$fnewname
mkdef=src2def 2>/dev/null
mkdef=src2def 2>/dev/null
!else
!reset mkdef
!reset mkdef
!endif
test=!sh cd $moddir; ls