Subversion Repositories wimsdev

Rev

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

Rev 7694 Rev 12477
Line 1... Line 1...
1 
 
 1 
 
2 
!if $parm=$empty
 2 
!if $parm=$empty
3 
 !exit
 3 
  !exit
4 
!endif
 4 
!endif
5 
 
 5 
 
6 
list=!lookup $parm in $dir
 6 
list=!lookup $parm in $dir
7 
!if $list=$empty
 7 
!if $list=$empty
8 
  list=$parm
 8 
  list=$parm
Line 17... Line 17...
17 
!! !endif
 17 
!! !endif
18 
 
 18 
 
19 
!exit
 19 
!exit
20 
!! use to have all subdomain ...
 20 
!! use to have all subdomain ...
21 
!for d in $list
 21 
!for d in $list
22 
 l=!lookup $d in $dir
 22 
  l=!lookup $d in $dir
23 
 list=!append item $l to $list
 23 
  list=!append item $l to $list
24 
!next d
 24 
!next d
25 
 
 25 
 
26 
list=!sort nocase items $list
 26 
list=!sort nocase items $list
27 
!if $parm!=misc
 27 
!if $parm!=misc
28 
 list=!nonempty items $parm,$list
 28 
  list=!nonempty items $parm,$list
29 
!else
 29 
!else
30 
 list=!nonempty items $list
 30 
  list=!nonempty items $list
31 
!endif
 31 
!endif
32 
list=!listuniq $list
 32 
list=!listuniq $list
33 
 
 -