Subversion Repositories wimsdev

Rev

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

Rev 7550 Rev 8620
Line 11... Line 11...
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 
 
16 
!reset dombad domgood
 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
21 
  !else
 21 
  !else
22 
    domgood=!append item $cd to $domgood
 22 
    domgood=!append item $cd to $domgood
- 
 
 23 
  !endif
- 
 
 24 
!next
- 
 
 25 
 
- 
 
 26 
!for cd in $i_keywords
- 
 
 27 
  check_domain=!lookup $cd in wimshome/public_html/bases/sys/domain/reversedomain
- 
 
 28 
  !if $check_domain =$empty
- 
 
 29 
    keywordsbad=!append item $cd to $keywordsbad
- 
 
 30 
  !else
- 
 
 31 
    keywordsgood=!append item $cd to $keywordsgood
23 
  !endif
 32 
  !endif
24 
!next
 33 
!next
25 
 
 34 
 
26 
!if $m1=local
 35 
!if $m1=local
27 
 local=yes
 36 
 local=yes