Subversion Repositories wimsdev

Rev

Rev 11451 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11451 Rev 15280
Line 1... Line 1...
1 
 
 1 
 
2 
!read scripts/getindex $mod
 2 
!read scripts/getindex.proc $mod
3 
!if $title=$empty
 3 
!if $title=$empty
4 
 job=modname
 4 
 job=modname
5 
 !changeto modname.proc
 5 
 !changeto modname.proc
6 
!endif
 6 
!endif
7 
 
 7 
 
Line 10... Line 10...
10 
fname=!text select $allowchar in $fname
 10 
fname=!text select $allowchar in $fname
11 
c=!char 1 of $fname
 11 
c=!char 1 of $fname
12 
!if $c=. or $c=/ or .. isin $fname
 12 
!if $c=. or $c=/ or .. isin $fname
13 
 !goto badname
 13 
 !goto badname
14 
!endif
 14 
!endif
15 
!read files
 15 
!read files.proc
16 
!if $fname notitemof $files
 16 
!if $fname notitemof $files
17 
 :badname
 17 
 :badname
18 
 error=bad_fname
 18 
 error=bad_fname
19 
 lastfname=$fname
 19 
 lastfname=$fname
20 
 job=flist
 20 
 job=flist