#! perl # mandatory

# This file is licensed under the GNU Affero General Public License, see
# the accompanying file COPYING.Affero for details.
#
# The intent of this file is to provide the user of the server with
# a URL where he/she can download the source code of this program
# together with any maps and archetype data used to run the server.

# the default uses the location of the pristine sources and works
# unless you modify the server, in which case you are required to
# either update the URL here or, preferably, change the source_url_tar
# and source_url_cvs settings in $CONFDIR/config.
our $URL_TAR        = "http://dist.schmorp.de/crossfire/";
our $URL_TAR_SERVER = "$URL_TAR/cfserver-" . cf::VERSION . ".tar.bz2";
our $URL_TAR_ARCH   = "$URL_TAR/cfarch-" . cf::VERSION . ".tar.bz2";
our $URL_TAR_MAPS   = "$URL_TAR/cfmaps-" . cf::VERSION . ".tar.bz2";
our $URL_CVS_INFO   = "http://software.schmorp.de/pkg/cf.schmorp.de.html";
our $URL_CVS_HTTP   = "http://cvs.schmorp.de/cf.schmorp.de/";

cf::register_command sourcecode => sub {
   my ($ob, $arg) = @_;

   $ob->reply (undef, <<EOF, cf::NDI_UNIQUE | cf::NDI_DK_ORANGE);
If this is a (possibly modified) release version of Crossfire TRT, you can find
the corresponding sources at the following location, in accordance to section
13 of the GNU Affero General Public License.

   all files: $URL_TAR
   server:    $URL_TAR_SERVER
   arch data: $URL_TAR_ARCH
   maps:      $URL_TAR_MAPS


If this is an intermediate development snapshot, the sources might
alternatively be provided via both anonymous CVS as well as via HTTP, with
full version history:

   instructions:   $URL_CVS_INFO
   http-browsable: $URL_CVS_HTTP

EOF

   1
};