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) |