… | |
… | |
154 | |
154 | |
155 | delete $dialog{$_} for grep $pl->ob == $dialog{$_}{ob}, keys %dialog; |
155 | delete $dialog{$_} for grep $pl->ob == $dialog{$_}{ob}, keys %dialog; |
156 | }, |
156 | }, |
157 | ; |
157 | ; |
158 | |
158 | |
|
|
159 | =item ... = extcmd editor_support |
|
|
160 | |
|
|
161 | Returns the value required by clients that have an editor to download and |
|
|
162 | upload maps from/to the server. |
|
|
163 | |
|
|
164 | cvs_root => the (http) url where the cvs root for downloading is located |
|
|
165 | upload => the (http) url where clients can upload maps |
|
|
166 | server => the hostname:port of the test server the maps can be tested on |
|
|
167 | |
|
|
168 | If those values are not supplied or empty strings, the server does not |
|
|
169 | support downloading, uploading, testing, respectively. |
|
|
170 | |
|
|
171 | The upload script expects the following values in a multipart form upload: |
|
|
172 | |
|
|
173 | client: a descriptive string describing the editor and version used to upload |
|
|
174 | path: absolute server-side map path beginning with / |
|
|
175 | map: the map file itself |
|
|
176 | mapdir: the cvs root url originally used to download the map |
|
|
177 | revision: cvs-revision originally used to download the map |
|
|
178 | comment: a comment supplied by the user that documents the changes |
|
|
179 | cf_login: crossfire server login |
|
|
180 | cf_password: crossfire server password, optionally used for authentication purposes |
|
|
181 | |
|
|
182 | =cut |
|
|
183 | |
159 | cf::register_extcmd editor_support => sub { |
184 | cf::register_extcmd editor_support => sub { |
160 | my ($pl, $msg) = @_; |
185 | my ($pl, $msg) = @_; |
161 | |
186 | |
162 | ( |
187 | ( |
163 | cvs_root => $cf::CFG{editor_cvs_root}, |
188 | cvs_root => $cf::CFG{editor_cvs_root}, |
164 | upload => $cf::CFG{editor_upload}, |
189 | upload => $cf::CFG{editor_upload}, |
|
|
190 | server => $cf::CFG{editor_server}, |
165 | ) |
191 | ) |
166 | }; |
192 | }; |
167 | |
193 | |
168 | sub unload { |
194 | sub unload { |
169 | while (my ($id, $dialog) = each %dialog) { |
195 | while (my ($id, $dialog) = each %dialog) { |