Subversion Repositories wimsdev

Rev

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

Rev 3151 Rev 7550
Line 4... Line 4...
4 
mname=!nonempty items $mname
 4 
mname=!nonempty items $mname
5 
mcnt=!itemcnt $mname
 5 
mcnt=!itemcnt $mname
6 
!distribute items $mname into m1,m2,m3
 6 
!distribute items $mname into m1,m2,m3
7 
mdir=$m1/$m2
 7 
mdir=$m1/$m2
8 
mname=$m3
 8 
mname=$m3
- 
 
 9 
 
- 
 
 10 
!!check domain
- 
 
 11 
i_domain=!module domain devel/$auth_login/$mod
- 
 
 12 
i_domain=!nonempty items $i_domain
- 
 
 13 
i_keywords=!module keywords devel/$auth_login/$mod
- 
 
 14 
i_keywords=!nonempty items $i_keywords
- 
 
 15 
 
- 
 
 16 
!reset dombad domgood
- 
 
 17 
!for cd in $i_domain
- 
 
 18 
  check_domain=!lookup $cd in wimshome/public_html/bases/sys/domain/reversedomain
- 
 
 19 
  !if $check_domain =$empty
- 
 
 20 
    dombad=!append item $cd to $dombad
- 
 
 21 
  !else
- 
 
 22 
    domgood=!append item $cd to $domgood
- 
 
 23 
  !endif
- 
 
 24 
!next
- 
 
 25 
 
9 
!if $m1=local
 26 
!if $m1=local
10 
 local=yes
 27 
 local=yes
- 
 
 28 
!endif
- 
 
 29 
!if $i_domain=$empty or $i_keywords=$empty
- 
 
 30 
  rep=ERROR domain_keyword $mod
- 
 
 31 
  !goto end
11 
!endif
 32 
!endif
12 
!if $mcnt!=3 or $m1 notitemof $zonepublishs
 33 
!if $mcnt!=3 or $m1 notitemof $zonepublishs
13 
 rep=ERROR unpublishable $mod
 34 
 rep=ERROR unpublishable $mod
14 
 unpublishable_site=$submitpublish_site
 35 
 unpublishable_site=$submitpublish_site
15 
 !reset submitpublish_site
 36 
 !reset submitpublish_site
Line 42... Line 63...
42 
  !if $vcheat=yes
 63 
  !if $vcheat=yes
43 
   cheatversion=$Wver2
 64 
   cheatversion=$Wver2
44 
  !else
 65 
  !else
45 
   !setdef wims_version=$wims_version in wimshome/public_html/modules/devel/$auth_login/$mod/INDEX
 66 
   !setdef wims_version=$wims_version in wimshome/public_html/modules/devel/$auth_login/$mod/INDEX
46 
  !endif
 67 
  !endif
47 
 !endif
 68 
 !endif
48 
!else
 69 
!else
49 
 !if $wver2>$wver1
 70 
 !if $wver2>$wver1
50 
  rep=ERROR antiwversion $Wver2
 71 
  rep=ERROR antiwversion $Wver2
51 
  !goto end
 72 
  !goto end
52 
 !endif
 73 
 !endif
53 
!endif
 74 
!endif
54 
 
 75 
 
55 
!if $confirm!=yes
 76 
!if $confirm!=yes
56 
 pubprep=yes
 77 
 pubprep=yes
57 
 !exit
 78 
 !exit
58 
!endif
 79 
!endif
59 
 
 - 
 
60 
target=!translate internal ~ to / in $mod
 80 
target=!translate internal ~ to / in $mod
61 
thisver=!module version devel/$auth_login/$mod
 81 
thisver=!module version devel/$auth_login/$mod
62 
oldver=!module version $target
 82 
oldver=!module version $target
63 
!if $oldver!=$empty and $thisver <= $oldver and \
 83 
!if $oldver!=$empty and $thisver <= $oldver and \
64 
	($submittype != devel or $m1 = local)
 84 
	($submittype != devel or $m1 = local)