Subversion Repositories wimsdev

Rev

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

Rev 8620 Rev 14348
Line 38... Line 38...
38 
!if $i_domain=$empty or $i_keywords=$empty
 38 
!if $i_domain=$empty or $i_keywords=$empty
39 
  rep=ERROR domain_keyword $mod
 39 
  rep=ERROR domain_keyword $mod
40 
  !goto end
 40 
  !goto end
41 
!endif
 41 
!endif
42 
!if $mcnt!=3 or $m1 notitemof $zonepublishs
 42 
!if $mcnt!=3 or $m1 notitemof $zonepublishs
43 
 rep=ERROR unpublishable $mod
 43 
  rep=ERROR unpublishable $mod
44 
 unpublishable_site=$submitpublish_site
 44 
  unpublishable_site=$submitpublish_site
45 
 !reset submitpublish_site
 45 
  !reset submitpublish_site
46 
 !goto end
 46 
  !goto end
47 
!endif
 47 
!endif
48 
 
 48 
 
49 
!if $mod=$empty
 49 
!if $mod=$empty
50 
 job=modname
 50 
  job=modname
51 
 !changeto $job.proc
 51 
  !changeto $job.proc
52 
!endif
 52 
!endif
53 
 
 53 
 
54 
tmp=a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
 54 
tmp=a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
55 
tmp2=!items2words $tmp
 55 
tmp2=!items2words $tmp
56 
tmp2=!nospace $tmp2
 56 
tmp2=!nospace $tmp2
Line 63... Line 63...
63 
  l=$[100+$l]
 63 
  l=$[100+$l]
64 
  wver$k=!replace internal $l0 by $l in $(wver$k)
 64 
  wver$k=!replace internal $l0 by $l in $(wver$k)
65 
!next k
 65 
!next k
66 
!bound vcheat within yes,no default $
 66 
!bound vcheat within yes,no default $
67 
!if $wver2<$wver1
 67 
!if $wver2<$wver1
68 
 !if $vcheat=$empty
 68 
  !if $vcheat=$empty
69 
  askcheat=yes
 69 
    askcheat=yes
70 
  !exit
 70 
    !exit
71 
 !else
 - 
 
72 
  !if $vcheat=yes
 - 
 
73 
   cheatversion=$Wver2
 - 
 
74 
  !else
 71 
  !else
- 
 
 72 
    !if $vcheat=yes
- 
 
 73 
      cheatversion=$Wver2
- 
 
 74 
    !else
75 
   !setdef wims_version=$wims_version in wimshome/public_html/modules/devel/$auth_login/$mod/INDEX
 75 
      !setdef wims_version=$wims_version in wimshome/public_html/modules/devel/$auth_login/$mod/INDEX
- 
 
 76 
    !endif
76 
  !endif
 77 
  !endif
77 
 !endif
 - 
 
78 
!else
 78 
!else
79 
 !if $wver2>$wver1
 79 
  !if $wver2>$wver1
80 
  rep=ERROR antiwversion $Wver2
 80 
    rep=ERROR antiwversion $Wver2
81 
  !goto end
 81 
    !goto end
82 
 !endif
 82 
  !endif
83 
!endif
 83 
!endif
84 
 
 84 
 
85 
!if $confirm!=yes
 85 
!if $confirm!=yes
86 
 pubprep=yes
 86 
  pubprep=yes
87 
 !exit
 87 
  !exit
88 
!endif
 88 
!endif
89 
target=!translate internal ~ to / in $mod
 89 
target=!translate internal ~ to / in $mod
90 
thisver=!module version devel/$auth_login/$mod
 90 
thisver=!module version devel/$auth_login/$mod
91 
oldver=!module version $target
 91 
oldver=!module version $target
92 
!if $oldver!=$empty and $thisver <= $oldver and \
 92 
!if $oldver!=$empty and $thisver <= $oldver and \
93 
	($submittype != devel or $m1 = local)
 93 
    ($submittype != devel or $m1 = local)
94 
 rep=ERROR please-update-module-version
 94 
  rep=ERROR please-update-module-version
95 
 !goto end
 95 
  !goto end
96 
!endif
 96 
!endif
97 
 
 97 
 
98 
!default cheatversion=$wims_version
 98 
!default cheatversion=$wims_version
99 
!if $m1=local
 99 
!if $m1=local
100 
 nopublish=!items2words $wims_busyhours
 100 
  nopublish=!items2words $wims_busyhours
101 
 nopublish=!singlespace $nopublish
 101 
  nopublish=!singlespace $nopublish
102 
 nopublish=!text select 0123456789 $ in $nopublish
 102 
  nopublish=!text select 0123456789 $ in $nopublish
103 
 thishour=!char 10,11 of $wims_now
 103 
  thishour=!char 10,11 of $wims_now
104 
 !if $nopublish != $empty and $thishour iswordof $nopublish
 104 
  !if $nopublish != $empty and $thishour iswordof $nopublish
105 
  rep=ERROR badhour
 105 
    rep=ERROR badhour
106 
  !goto end
 - 
 
107 
 !endif
 - 
 
108 
 publishers=!sh cat $wims_home/log/.devpublishers
 - 
 
109 
 !if $auth_login notitemof $publishers
 - 
 
110 
  rep=ERROR nolocalright
 - 
 
111 
  !goto end
 106 
    !goto end
112 
 !endif
 - 
 
113 
 today=!char 1 to 8 of $wims_now
 - 
 
114 
 !if $oldver=$empty
 - 
 
115 
  !appendfile wimshome/modules/Changelog.new $today: $target $thisver
 - 
 
116 
 !else
 - 
 
117 
  !if $thisver>$oldver
 - 
 
118 
   !appendfile wimshome/modules/Changelog.modif $today: $target $thisver
 - 
 
119 
  !endif
 107 
  !endif
- 
 
 108 
  publishers=!sh cat $wims_home/log/.devpublishers
- 
 
 109 
  !if $auth_login notitemof $publishers
- 
 
 110 
    rep=ERROR nolocalright
- 
 
 111 
    !goto end
- 
 
 112 
  !endif
- 
 
 113 
  today=!char 1 to 8 of $wims_now
- 
 
 114 
  !if $oldver=$empty
- 
 
 115 
    !appendfile wimshome/modules/Changelog.new $today: $target $thisver
- 
 
 116 
  !else
- 
 
 117 
    !if $thisver>$oldver
- 
 
 118 
      !appendfile wimshome/modules/Changelog.modif $today: $target $thisver
- 
 
 119 
    !endif
120 
 !endif
 120 
 !endif
121 
 !sh cd modules\
 121 
 !sh cd modules\
122 
  rm -fR $target\
 122 
    rm -fR $target\
123 
  mkdir -p `dirname $target`\
 123 
    mkdir -p `dirname $target`\
124 
  cp -pR devel/$auth_login/$mod $target\
 124 
    cp -pR devel/$auth_login/$mod $target\
125 
  find $target ! \( -type f -o -type d \) -exec rm -f '{}' \;\
 125 
    find $target ! \( -type f -o -type d \) -exec rm -f '{}' \;\
126 
  cd $wims_home\
 126 
    cd $wims_home\
127 
  [ -d /wsys/wims ] && touch log/newmodules\
 127 
    [ -d /wsys/wims ] && touch log/newmodules\
128 
  date '+%Y-%m-%d.%H:%M:%S' >tmp/mkindex.log\
 128 
    date '+%Y-%m-%d.%H:%M:%S' >tmp/mkindex.log\
129 
  echo "Building module index..." >>tmp/mkindex.log\
 129 
    echo "Building module index..." >>tmp/mkindex.log\
130 
  bin/mkindex >>tmp/mkindex.log
 130 
    bin/mkindex >>tmp/mkindex.log
131 
 rep=OK copied to $target
 131 
  rep=OK copied to $target
132 
!else
 132 
!else
133 
 !if $submitauth=$empty or $submitpass=$empty
 133 
  !if $submitauth=$empty or $submitpass=$empty
134 
  pubprep=yes
 134 
    pubprep=yes
135 
  !exit
 135 
    !exit
136 
 !endif
 136 
  !endif
137 
 !read scripts/publish
 137 
  !read scripts/publish
138 
!endif
 138 
!endif
139 
 
 139 
 
140 
:end
 140 
:end
141 
status=!word 1 of $rep
 141 
status=!word 1 of $rep
142 
status2=$rep
 142 
status2=$rep
143 
!if $status notwordof OK ERROR
 143 
!if $status notwordof OK ERROR
144 
 !if length limit isin $status2
 144 
  !if length limit isin $status2
145 
   rep=ERROR lengthlimit
 145 
    rep=ERROR lengthlimit
146 
 !else
 146 
  !else
147 
   rep=ERROR noreply
 147 
    rep=ERROR noreply
148 
 !endif
 148 
  !endif
149 
 !goto end
 149 
  !goto end
150 
!endif
 150 
!endif
151 
rep=!trim $rep
 151 
rep=!trim $rep
152 
sl=!charcnt $status
 152 
sl=!charcnt $status
153 
rep2=!char $sl+1 to -1 of $rep
 153 
rep2=!char $sl+1 to -1 of $rep
154 
wims_module_log=publish $submitauth/$mod $submittype $status $submitpublish_site
 154 
wims_module_log=publish $submitauth/$mod $submittype $status $submitpublish_site