Subversion Repositories wimsdev

Rev

Rev 11451 | Go to most recent revision | Details | Last modification | View Log | RSS feed

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