| 1 |
root |
1.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 |
root |
1.2 |
# 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 |
|
|
|
| 17 |
root |
1.1 |
# 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 |
root |
1.2 |
# The default uses the location of the pristine release and works |
| 22 |
root |
1.1 |
# 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 |
root |
1.2 |
our $URL_TAR = $cf::CFG{source_url_tar} || "http://dist.schmorp.de/crossfire/"; |
| 26 |
root |
1.1 |
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 |
root |
1.2 |
our $URL_CVS = $cf::CFG{source_url_cvs} || "http://software.schmorp.de/pkg/cf.schmorp.de.html"; |
| 30 |
root |
1.1 |
|
| 31 |
|
|
cf::register_command sourcecode => sub { |
| 32 |
|
|
my ($ob, $arg) = @_; |
| 33 |
|
|
|
| 34 |
|
|
$ob->reply (undef, <<EOF, cf::NDI_UNIQUE | cf::NDI_DK_ORANGE); |
| 35 |
root |
1.3 |
If this is a (possibly modified) release version of Deliantra, you can find |
| 36 |
root |
1.1 |
the corresponding sources at the following location, in accordance to section |
| 37 |
root |
1.2 |
13 of the GNU Affero General Public License, version 3. |
| 38 |
root |
1.1 |
|
| 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 |
root |
1.2 |
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 |
root |
1.1 |
|
| 50 |
root |
1.2 |
$URL_CVS |
| 51 |
root |
1.1 |
|
| 52 |
|
|
EOF |
| 53 |
|
|
|
| 54 |
|
|
1 |
| 55 |
|
|
}; |
| 56 |
|
|
|
