Subversion Repositories wimsdev

Rev

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

Rev 14414 Rev 15280
Line 2... Line 2...
2
  abandon=
2
  abandon=
3
  job=flist
3
  job=flist
4
  !changeto $job.proc
4
  !changeto $job.proc
5
!endif
5
!endif
6
 
6
 
7
!read scripts/getindex $mod
7
!read scripts/getindex.proc $mod
8
!if $title=$empty
8
!if $title=$empty
9
  job=modname
9
  job=modname
10
  !changeto modname.proc
10
  !changeto modname.proc
11
!endif
11
!endif
12
 
12
 
Line 15... Line 15...
15
fname=!text select $allowchar in $fname
15
fname=!text select $allowchar in $fname
16
c=!char 1 of $fname
16
c=!char 1 of $fname
17
!if $c=. or $c=/
17
!if $c=. or $c=/
18
  !goto badname
18
  !goto badname
19
!endif
19
!endif
20
!read files
20
!read files.proc
21
!if $fname notitemof $files
21
!if $fname notitemof $files
22
  !if / notin $fname and .. notin $fname
22
  !if / notin $fname and .. notin $fname
23
    test=!filelist $devdir/$mod/$fname
23
    test=!filelist $devdir/$mod/$fname
24
    !if $test!=$empty
24
    !if $test!=$empty
25
      :badname
25
      :badname
Line 68... Line 68...
68
    makeerror=$makeout
68
    makeerror=$makeout
69
  !endif
69
  !endif
70
  wims_module_log=edit $mod/$fname
70
  wims_module_log=edit $mod/$fname
71
!endif
71
!endif
72
 
72
 
73
content=!mexec scripts/fileread
73
content=!mexec scripts/fileread.sh