Subversion Repositories wimsdev

Rev

Rev 11451 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11451 Rev 14627
Line 1... Line -...
1 
 
 - 
 
2 
!read scripts/getindex $mod
 1 
!read scripts/getindex $mod
3 
!if $title=$empty
 2 
!if $title=$empty
4 
 job=modname
 3 
  job=modname
5 
 !changeto modname.proc
 4 
  !changeto modname.proc
6 
!endif
 5 
!endif
7 
!if $fnewname=$fname
 6 
!if $fnewname=$fname
8 
  error=nochange
 7 
  error=nochange
9 
!exit
 8 
!exit
10 
!endif
 9 
!endif
11 
allowchar=/.-_$alnum
 10 
allowchar=/.-_$alnum
12 
fname=!word 1 of $fname
 11 
fname=!word 1 of $fname
13 
fname=!text select $allowchar in $fname
 12 
fname=!text select $allowchar in $fname
14 
c=!char 1 of $fname
 13 
c=!char 1 of $fname
15 
!if $c=. or $c=/ or .. isin $fname
 14 
!if $c=. or $c=/ or .. isin $fname
16 
 !goto badname
 15 
  !goto badname
17 
!endif
 16 
!endif
18 
!read files
 17 
!read files
19 
!if $fname notitemof $files
 18 
!if $fname notitemof $files
20 
 :badname
 19 
  :badname
21 
 error=bad_fname
 20 
  error=bad_fname
22 
 lastfname=$fname
 21 
  lastfname=$fname
23 
 job=flist
 22 
  job=flist
24 
 !changeto flist.proc
 23 
  !changeto flist.proc
25 
!endif
 24 
!endif
26 
allowchar=/._$alnum
 25 
allowchar=/._$alnum
27 
fnewname=!word 1 of $fnewname
 26 
fnewname=!word 1 of $fnewname
28 
fnewname=!text select $allowchar in $fnewname
 27 
fnewname=!text select $allowchar in $fnewname
29 
c=!char 1 of $fnewname
 28 
c=!char 1 of $fnewname
30 
!if $c=. or $c=/ or .. isin $fnewname
 29 
!if $c=. or $c=/ or .. isin $fnewname
31 
 !goto badname
 30 
  !goto badname
32 
!endif
 31 
!endif
33 
!read files
 32 
!read files
34 
!if $fnewname isitemof $files
 33 
!if $fnewname isitemof $files
35 
 error=bad_fname_already
 34 
  error=bad_fname_already
36 
 lastfname=$fname
 35 
  lastfname=$fname
37 
 job=flist
 36 
  job=flist
38 
 !changeto flist.proc
 37 
  !changeto flist.proc
39 
!endif
 38 
!endif
40 
!if $fnewname=$empty
 39 
!if $fnewname=$empty
41 
 job=flist
 40 
  job=flist
42 
 !changeto $job.proc
 41 
  !changeto $job.proc
43 
!endif
 42 
!endif
44 
 
 43 
 
45 
moddir=modules/devel/$auth_login/$mod
 44 
moddir=modules/devel/$auth_login/$mod
46 
!if ../src/ isin ../$fnewname
 45 
!if ../src/ isin ../$fnewname
47 
 mkdef=src2def 2>/dev/null
 46 
  mkdef=src2def 2>/dev/null
48 
!else
 47 
!else
49 
 !reset mkdef
 48 
  !reset mkdef
50 
!endif
 49 
!endif
51 
test=!sh cd $moddir; ls
 50 
test=!sh cd $moddir; ls
52 
 
 51 
 
53 
!sh cd $moddir\
 52 
!sh cd $moddir\
54 
  mkdir -p .deleted\
 53 
  mkdir -p .deleted\