1 |
#! perl # mandatory |
2 |
|
3 |
# This file is licensed under the GNU Affero General Public License, see |
4 |
# the accompanying file COPYING.Affero for details. |
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 <support@deliantra.com> |
16 |
|
17 |
# The intent of this file is to provide the user of the server with |
18 |
# a URL where he/she can download the source code of this program |
19 |
# together with any maps and archetype data used to run the server. |
20 |
|
21 |
# The default uses the location of the pristine release and works |
22 |
# unless you modify the server, in which case you are required to |
23 |
# either update the URL here or, preferably, change the source_url_tar |
24 |
# and source_url_cvs settings in $CONFDIR/config. |
25 |
our $URL_TAR = $cf::CFG{source_url_tar} || "http://dist.schmorp.de/deliantra/"; |
26 |
our $URL_TAR_SERVER = "$URL_TAR/cfserver-" . cf::VERSION . ".tar.bz2"; |
27 |
our $URL_TAR_ARCH = "$URL_TAR/cfarch-" . cf::VERSION . ".tar.bz2"; |
28 |
our $URL_TAR_MAPS = "$URL_TAR/cfmaps-" . cf::VERSION . ".tar.bz2"; |
29 |
our $URL_CVS = $cf::CFG{source_url_cvs} || "http://software.schmorp.de/pkg/cf.schmorp.de.html"; |
30 |
|
31 |
cf::register_command sourcecode => sub { |
32 |
my ($ob, $arg) = @_; |
33 |
|
34 |
$ob->reply (undef, <<EOF, cf::NDI_UNIQUE | cf::NDI_DK_ORANGE); |
35 |
If this is a (possibly modified) release version of Deliantra, you can find |
36 |
the corresponding sources at the following location, in accordance to section |
37 |
13 of the GNU Affero General Public License, version 3. |
38 |
|
39 |
all files: $URL_TAR |
40 |
server: $URL_TAR_SERVER |
41 |
arch data: $URL_TAR_ARCH |
42 |
maps: $URL_TAR_MAPS |
43 |
|
44 |
|
45 |
If this is an intermediate development snapshot, the sources might |
46 |
alternatively be provided via anonymous CVS (or another VCS) with full |
47 |
version history. Detailed instructions how to access the repository |
48 |
(without unnecessary burden) are available here: |
49 |
|
50 |
$URL_CVS |
51 |
|
52 |
EOF |
53 |
|
54 |
1 |
55 |
}; |
56 |
|