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)