Subversion Repositories wimsdev

Rev

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

Rev 6396 Rev 6435
Line 1... Line 1...
1 
!!temporary - work in progress
 1 
!!temporary - work in progress
2 
!if $modu_lang notwordof en it fr ca es nl
 - 
 
3 
  !set dir_lang=wimshome/public_html/bases/sys/domain/domain.en
 - 
 
4 
!else
 - 
 
5 
  !set dir_lang=wimshome/public_html/bases/sys/domain/domain.$modu_lang
 - 
 
6 
!endif
 - 
 
7 
 
 - 
 
8 
!set dir=wimshome/public_html/bases/sys/domain/domain
 - 
 
9 
 
 - 
 
10 
Tot_dom=!lookup domain in $dir
 - 
 
11 
!for d in $Tot_dom
 - 
 
12 
  tot_dom_$d=!lookup $d in $dir
 - 
 
13 
  !for l in  $(tot_dom_$d)
 - 
 
14 
     dom_$l=!lookup $l in $dir
 - 
 
15 
  !next
 - 
 
16 
!next
 - 
 
17 
 
 2 
 
18 
!readproc list.phtml
 - 
 
19 
 
 3 
 
20 
!if $parm=$empty
 4 
!if $parm=$empty
21 
 
 - 
 
22 
 !exit
 5 
 !exit
23 
!endif
 6 
!endif
24 
 
 7 
 
25 
list=!lookup $parm in $dir
 8 
list=!lookup $parm in $dir
26 
name=!lookup $(parm[1]) in $dir_lang
 9 
name=!lookup $(parm[1]) in $dir_lang
Line 28... Line 11...
28 
!! !if $list=$empty
 11 
!! !if $list=$empty
29 
!!  parm=
 12 
!!  parm=
30 
!!  !exit
 13 
!!  !exit
31 
!! !endif
 14 
!! !endif
32 
 
 15 
 
- 
 
 16 
!exit
- 
 
 17 
!! use to have all subdomain ...
33 
!for d in $list
 18 
!for d in $list
34 
 l=$(list_$d)
 19 
 l=!lookup $d in $dir
35 
 list=!append item $l to $list
 20 
 list=!append item $l to $list
36 
!next d
 21 
!next d
- 
 
 22 
 
37 
list=!sort nocase items $list
 23 
list=!sort nocase items $list
38 
!if $parm!=misc
 24 
!if $parm!=misc
39 
 list=!nonempty items $parm,$list
 25 
 list=!nonempty items $parm,$list
40 
!else
 26 
!else
41 
 list=!nonempty items $list
 27 
 list=!nonempty items $list