Subversion Repositories wimsdev

Rev

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

Rev 11405 Rev 12498
Line 12... Line 12...
12 
 
 12 
 
13 
publishsitesname=$empty
 13 
publishsitesname=$empty
14 
zonelist=$empty
 14 
zonelist=$empty
15 
levellist=$empty
 15 
levellist=$empty
16 
!for name in $mu_publish_site
 16 
!for name in $mu_publish_site
17 
 tmp=!defof publishname in wimshome/public_html/bases/sys/publishcenter/$name
 17 
  tmp=!defof publishname in wimshome/public_html/bases/sys/publishcenter/$name
18 
 tmp=!replace internal , by , in $tmp
 18 
  tmp=!replace internal , by , in $tmp
19 
 publishcentersname=!append item $tmp to $publishcentersname
 19 
  publishcentersname=!append item $tmp to $publishcentersname
20 
 tmp=!defof zonepublish,levellist in wimshome/public_html/bases/sys/publishcenter/$name
 20 
  tmp=!defof zonepublish,levellist in wimshome/public_html/bases/sys/publishcenter/$name
21 
 zonepublishs=!append item $tmp to $zonepublishs
 21 
  zonepublishs=!append item $tmp to $zonepublishs
22 
 tmp=!defof zonelist,levellist in wimshome/public_html/bases/sys/publishcenter/$name
 22 
  tmp=!defof zonelist,levellist in wimshome/public_html/bases/sys/publishcenter/$name
23 
 zonelist=!append item $tmp to $zonelist
 23 
  zonelist=!append item $tmp to $zonelist
24 
 tmp=!defof levellist in wimshome/public_html/bases/sys/publishcenter/$name
 24 
  tmp=!defof levellist in wimshome/public_html/bases/sys/publishcenter/$name
25 
 levellist=!append item $tmp to $levellist
 25 
  levellist=!append item $tmp to $levellist
26 
!next name
 26 
!next name
27 
zonelist=!listuniq $zonelist
 27 
zonelist=!listuniq $zonelist
28 
zonelist=!listuniq $zonelist
 28 
zonelist=!listuniq $zonelist
29 
zonepublishs=!listuniq $zonepublishs
 29 
zonepublishs=!listuniq $zonepublishs
30 
levellist=!listuniq $levellist
 30 
levellist=!listuniq $levellist
31 
!! read the specification of $publish_site
 31 
!! read the specification of $publish_site
32 
!if $submitpublish_site!=$empty
 32 
!if $submitpublish_site!=$empty
33 
 !read wimshome/public_html/bases/sys/publishcenter/$submitpublish_site
 33 
  !read wimshome/public_html/bases/sys/publishcenter/$submitpublish_site
34 
  zonepublishs=$zonepublish
 34 
  zonepublishs=$zonepublish
35 
!endif
 35 
!endif
36 
wims_nw=job mod existing serial_number auth_login auth_passwd \
 36 
wims_nw=job mod existing serial_number auth_login auth_passwd \
37 
	original2 originalheader empty devdir fname target
 37 
	original2 originalheader empty devdir fname target
38 
wims_nr=wims_sesrandom
 38 
wims_nr=wims_sesrandom
Line 54... Line 54...
54 
 
 54 
 
55 
wims_form_method=post
 55 
wims_form_method=post
56 
!read tabletheme
 56 
!read tabletheme
57 
 
 57 
 
58 
!if $cmd=help or robot isin $session
 58 
!if $cmd=help or robot isin $session
59 
 !exit
 59 
  !exit
60 
!endif
 60 
!endif
61 
 
 61 
 
62 
jobreq=!word 1 of $jobreq
 62 
jobreq=!word 1 of $jobreq
63 
!if $jobreq!=$empty and $jobreq iswordof $jobs
 63 
!if $jobreq!=$empty and $jobreq iswordof $jobs
64 
 job=$jobreq
 64 
  job=$jobreq
65 
!endif
 65 
!endif
66 
jobreq=
 66 
jobreq=
67 
 
 67 
 
68 
!if $wims_class!=$empty
 68 
!if $wims_class!=$empty
69 
 !read adm/class/userdef classes,$wims_class,$wims_user
 69 
  !read adm/class/userdef classes,$wims_class,$wims_user
70 
!endif
 70 
!endif
71 
!if $wims_developer=$empty and $wims_class!=$empty and $wims_user!=$empty
 71 
!if $wims_developer=$empty and $wims_class!=$empty and $wims_user!=$empty
72 
 !if $wims_user=supervisor
 72 
  !if $wims_user=supervisor
73 
  !if $wims_sup_secure>=0
 73 
    !if $wims_sup_secure>=0
- 
 
 74 
      wims_developer=!getdef wims_developer in $userdef
- 
 
 75 
    !endif
- 
 
 76 
  !else
74 
   wims_developer=!getdef wims_developer in $userdef
 77 
    wims_developer=!getdef wims_developer in $userdef
- 
 
 78 
  !endif
- 
 
 79 
  !distribute item $wims_developer into wims_developer,devpass
- 
 
 80 
  !if $devpass=$empty
- 
 
 81 
    !reset wims_developer
75 
  !endif
 82 
  !endif
76 
 !else
 - 
 
77 
  wims_developer=!getdef wims_developer in $userdef
 - 
 
78 
 !endif
 - 
 
79 
 !distribute item $wims_developer into wims_developer,devpass
 - 
 
80 
 !if $devpass=$empty
 - 
 
81 
  !reset wims_developer
 - 
 
82 
 !endif
 - 
 
83 
!endif
 83 
!endif
84 
 
 84 
 
85 
!if $wims_ismanager>=2 and $change=yes
 85 
!if $wims_ismanager>=2 and $change=yes
86 
 wims_developer=
 86 
  wims_developer=
87 
!endif
 87 
!endif
88 
 
 88 
 
89 
!if $wims_developer!=$empty and $auth_login=$empty
 89 
!if $wims_developer!=$empty and $auth_login=$empty
90 
 n=!recordcnt wimshome/log/.developers
 90 
  n=!recordcnt wimshome/log/.developers
91 
 !for i=1 to $n
 91 
  !for i=1 to $n
92 
  r=!record $i of wimshome/log/.developers
 92 
    r=!record $i of wimshome/log/.developers
93 
  !distribute lines $r into ll,pp,nn,ee
 93 
    !distribute lines $r into ll,pp,nn,ee
94 
  pp=!passcrypt $pp
 94 
    pp=!passcrypt $pp
95 
  !if $devpass!=$empty
 95 
    !if $devpass!=$empty
96 
   devpass=!passcrypt $devpass
 96 
      devpass=!passcrypt $devpass
97 
  !endif
 97 
    !endif
98 
  !if $ll=$wims_developer and ($devpass=$empty or $devpass=$pp)
 98 
    !if $ll=$wims_developer and ($devpass=$empty or $devpass=$pp)
99 
   auth_login=$ll
 99 
      auth_login=$ll
100 
   auth_passwd=$pp
 100 
      auth_passwd=$pp
101 
   auth_name=$nn
 101 
      auth_name=$nn
102 
   auth_email=$ee
 102 
      auth_email=$ee
103 
   login=$wims_developer
 103 
      login=$wims_developer
104 
   sesdir=!translate internal _ to $ $ in $wims_sesdir
 104 
      sesdir=!translate internal _ to $ $ in $wims_sesdir
105 
   sesdir=!word 1 of $sesdir
 105 
      sesdir=!word 1 of $sesdir
106 
   !setdef wims_developer=$login in wimshome/$sesdir/var.stat
 106 
      !setdef wims_developer=$login in wimshome/$sesdir/var.stat
107 
   !if $original!=$empty and $job=$empty
 107 
      !if $original!=$empty and $job=$empty
108 
    job=copy
 108 
        job=copy
109 
   !endif
 109 
      !endif
110 
   !if $wims_developer!=$empty and $modreq!=$empty
 110 
      !if $wims_developer!=$empty and $modreq!=$empty
111 
    !default job=flist
 111 
        !default job=flist
112 
   !endif
 112 
      !endif
113 
   !default job=modname
 113 
      !default job=modname
114 
   !break
 114 
      !break
- 
 
 115 
    !endif
- 
 
 116 
  !next i
- 
 
 117 
  !if $auth_login=$empty
- 
 
 118 
    wims_developer=
- 
 
 119 
    job=auth
115 
  !endif
 120 
  !endif
116 
 !next i
 - 
 
117 
 !if $auth_login=$empty
 - 
 
118 
  wims_developer=
 - 
 
119 
  job=auth
 - 
 
120 
 !endif
 - 
 
121 
!endif
 121 
!endif
122 
!default job=auth
 122 
!default job=auth
123 
 
 123 
 
124 
!if $auth_login=$empty and $wims_ismanager<2
 124 
!if $auth_login=$empty and $wims_ismanager<2
125 
 job=auth
 125 
  job=auth
126 
!endif
 126 
!endif
127 
!if $auth_login!=$empty
 127 
!if $auth_login!=$empty
128 
 devdir=modules/devel/$auth_login
 128 
  devdir=modules/devel/$auth_login
129 
!endif
 129 
!endif
130 
 
 130 
 
131 
!read scripts/getindex $modreq
 131 
!read scripts/getindex $modreq
132 
!default i_translation_language=$translation_language
 132 
!default i_translation_language=$translation_language
133 
 
 133 
 
134 
deflist1=translation_language
 134 
deflist1=translation_language
135 
trans_lang=!words2items $i_translation_language
 135 
trans_lang=!words2items $i_translation_language
136 
 i_translation_language=!listintersect $trans_lang and $langlist
 136 
i_translation_language=!listintersect $trans_lang and $langlist
137 
 i_translation_language=!listcomplement $i_language in $i_translation_language
 137 
i_translation_language=!listcomplement $i_language in $i_translation_language
138 
 !for l in $(i_translation_language)
 138 
!for l in $(i_translation_language)
139 
   deflist1=!append item title_$l to $deflist1
 139 
  deflist1=!append item title_$l to $deflist1
140 
   deflist1=!append item description_$l to $deflist1
 140 
  deflist1=!append item description_$l to $deflist1
141 
   deflist1=!append item keywords_$l to $deflist1
 141 
  deflist1=!append item keywords_$l to $deflist1
142 
   deflist1=!append item translator_$l to $deflist1
 142 
  deflist1=!append item translator_$l to $deflist1
143 
   deflist1=!append item translator_address_$l to $deflist1
 143 
  deflist1=!append item translator_address_$l to $deflist1
144 
 !next
 144 
!next
145 
 
 145 
 
146 
!read $job.proc
 146 
!read $job.proc
147 
 
 147 
 
148 
!if $(name_$job)!=$empty
 148 
!if $(name_$job)!=$empty
149 
 !!module_title=$module_title - $(name_$job)
 149 
  !!module_title=$module_title - $(name_$job)
150 
 wims_title_title=$(name_$job)
 150 
  wims_title_title=$(name_$job)
151 
!endif
 151 
!endif
152 
 
 152 
 
153 
!if ~ isin $mod
 153 
!if ~ isin $mod
154 
 m=!translate internal ~ to , in $mod
 154 
  m=!translate internal ~ to , in $mod
155 
 m1=!item 1 of $m
 155 
  m1=!item 1 of $m
156 
 !reset pubtit
 156 
  !reset pubtit
157 
 !if $m1!=test and $m1 isitemof $zonelist
 157 
  !if $m1!=test and $m1 isitemof $zonelist
158 
  m=!translate internal ~ to / in $mod
 158 
    m=!translate internal ~ to / in $mod
159 
  pubtit=!module title $m
 159 
    pubtit=!module title $m
160 
  pubversion=!module version $m
 160 
    pubversion=!module version $m
161 
 !endif
 161 
  !endif
162 
!endif
 162 
!endif
163 
 
 163 
 
164 
!reset validate_out
 164 
!reset validate_out
165 
!if $validator_address!=$empty and $validation_ask!=$empty
 165 
!if $validator_address!=$empty and $validation_ask!=$empty
166 
  !read adm/validation/validate.proc
 166 
  !read adm/validation/validate.proc