1 | #! perl # mandatory |
1 | #! perl # mandatory |
2 | |
2 | |
3 | # This file is licensed under the GNU Affero General Public License, see |
3 | # This file is licensed under the GNU Affero General Public License, see |
4 | # the accompanying file COPYING.Affero for details. |
4 | # the accompanying file COPYING.Affero for details. |
5 | # |
5 | # |
|
|
6 | # This file is free software: you can redistribute it and/or modify |
|
|
7 | # it under the terms of the GNU Affero General Public License as published by |
|
|
8 | # the Free Software Foundation, version 3 of the License only. |
|
|
9 | # |
|
|
10 | # This program is distributed in the hope that it will be useful, |
|
|
11 | # but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
12 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
|
13 | # GNU General Public License for more details. |
|
|
14 | # |
|
|
15 | # The authors can be reached via e-mail to <crossfire@schmorp.de> |
|
|
16 | |
6 | # The intent of this file is to provide the user of the server with |
17 | # The intent of this file is to provide the user of the server with |
7 | # a URL where he/she can download the source code of this program |
18 | # a URL where he/she can download the source code of this program |
8 | # together with any maps and archetype data used to run the server. |
19 | # together with any maps and archetype data used to run the server. |
9 | |
20 | |
10 | # the default uses the location of the pristine sources and works |
21 | # The default uses the location of the pristine release and works |
11 | # unless you modify the server, in which case you are required to |
22 | # unless you modify the server, in which case you are required to |
12 | # either update the URL here or, preferably, change the source_url_tar |
23 | # either update the URL here or, preferably, change the source_url_tar |
13 | # and source_url_cvs settings in $CONFDIR/config. |
24 | # and source_url_cvs settings in $CONFDIR/config. |
14 | our $URL_TAR = "http://dist.schmorp.de/crossfire/"; |
25 | our $URL_TAR = $cf::CFG{source_url_tar} || "http://dist.schmorp.de/crossfire/"; |
15 | our $URL_TAR_SERVER = "$URL_TAR/cfserver-" . cf::VERSION . ".tar.bz2"; |
26 | our $URL_TAR_SERVER = "$URL_TAR/cfserver-" . cf::VERSION . ".tar.bz2"; |
16 | our $URL_TAR_ARCH = "$URL_TAR/cfarch-" . cf::VERSION . ".tar.bz2"; |
27 | our $URL_TAR_ARCH = "$URL_TAR/cfarch-" . cf::VERSION . ".tar.bz2"; |
17 | our $URL_TAR_MAPS = "$URL_TAR/cfmaps-" . cf::VERSION . ".tar.bz2"; |
28 | our $URL_TAR_MAPS = "$URL_TAR/cfmaps-" . cf::VERSION . ".tar.bz2"; |
18 | our $URL_CVS_INFO = "http://software.schmorp.de/pkg/cf.schmorp.de.html"; |
29 | our $URL_CVS = $cf::CFG{source_url_cvs} || "http://software.schmorp.de/pkg/cf.schmorp.de.html"; |
19 | our $URL_CVS_HTTP = "http://cvs.schmorp.de/cf.schmorp.de/"; |
|
|
20 | |
30 | |
21 | cf::register_command sourcecode => sub { |
31 | cf::register_command sourcecode => sub { |
22 | my ($ob, $arg) = @_; |
32 | my ($ob, $arg) = @_; |
23 | |
33 | |
24 | $ob->reply (undef, <<EOF, cf::NDI_UNIQUE | cf::NDI_DK_ORANGE); |
34 | $ob->reply (undef, <<EOF, cf::NDI_UNIQUE | cf::NDI_DK_ORANGE); |
25 | If this is a (possibly modified) release version of Crossfire TRT, you can find |
35 | If this is a (possibly modified) release version of Crossfire TRT, you can find |
26 | the corresponding sources at the following location, in accordance to section |
36 | the corresponding sources at the following location, in accordance to section |
27 | 13 of the GNU Affero General Public License. |
37 | 13 of the GNU Affero General Public License, version 3. |
28 | |
38 | |
29 | all files: $URL_TAR |
39 | all files: $URL_TAR |
30 | server: $URL_TAR_SERVER |
40 | server: $URL_TAR_SERVER |
31 | arch data: $URL_TAR_ARCH |
41 | arch data: $URL_TAR_ARCH |
32 | maps: $URL_TAR_MAPS |
42 | maps: $URL_TAR_MAPS |
33 | |
43 | |
34 | |
44 | |
35 | If this is an intermediate development snapshot, the sources might |
45 | If this is an intermediate development snapshot, the sources might |
36 | alternatively be provided via both anonymous CVS as well as via HTTP, with |
46 | alternatively be provided via anonymous CVS (or another VCS) with full |
37 | full version history: |
47 | version history. Detailed instructions how to access the repository |
|
|
48 | (without unnecessary burden) are available here: |
38 | |
49 | |
39 | instructions: $URL_CVS_INFO |
50 | $URL_CVS |
40 | http-browsable: $URL_CVS_HTTP |
|
|
41 | |
51 | |
42 | EOF |
52 | EOF |
43 | |
53 | |
44 | 1 |
54 | 1 |
45 | }; |
55 | }; |