Subversion Repositories wimsdev

Rev

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

Rev 14348 Rev 14521
Line 10... Line 10...
10
!!check domain
10
!!check domain
11
i_domain=!module domain devel/$auth_login/$mod
11
i_domain=!module domain devel/$auth_login/$mod
12
i_domain=!nonempty items $i_domain
12
i_domain=!nonempty items $i_domain
13
i_keywords=!module keywords devel/$auth_login/$mod
13
i_keywords=!module keywords devel/$auth_login/$mod
14
i_keywords=!nonempty items $i_keywords
14
i_keywords=!nonempty items $i_keywords
15
 
-
 
-
 
15
i_level=!module level devel/$auth_login/$mod
16
!reset dombad domgood keywordsgood keywordsbad
16
!reset dombad domgood keywordsgood keywordsbad
17
!for cd in $i_domain
17
!for cd in $i_domain
18
  check_domain=!lookup $cd in wimshome/public_html/bases/sys/domain/reversedomain
18
  check_domain=!lookup $cd in wimshome/public_html/bases/sys/domain/reversedomain
19
  !if $check_domain =$empty
19
  !if $check_domain =$empty
20
    dombad=!append item $cd to $dombad
20
    dombad=!append item $cd to $dombad