chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Allow downloading of database tree source code via dictup CGI scripts
[ypp-sc-tools.db-live.git]
/
yarrg
/
commod-update-receiver
diff --git
a/yarrg/commod-update-receiver
b/yarrg/commod-update-receiver
index d01b6de1753c3cbfac8b7751d0266c5af36a0116..cbd98f84b2e15c64b64bd4e4d1674d856f95b1b4 100755
(executable)
--- a/
yarrg/commod-update-receiver
+++ b/
yarrg/commod-update-receiver
@@
-3,22
+3,22
@@
# This script is invoked when the yarrg client uploads to
# the chiark database.
# This script is invoked when the yarrg client uploads to
# the chiark database.
-# This is part of
ypp-sc-tools, a set of third-party tools for assisting
-# players of Yohoho Puzzle Pirates.
+# This is part of
the YARRG website. YARRG is a tool and website
+#
for assisting
players of Yohoho Puzzle Pirates.
#
# Copyright (C) 2009 Ian Jackson <ijackson@chiark.greenend.org.uk>
#
# This program is free software: you can redistribute it and/or modify
#
# Copyright (C) 2009 Ian Jackson <ijackson@chiark.greenend.org.uk>
#
# This program is free software: you can redistribute it and/or modify
-# it under the terms of the GNU
General Public License as published by
-#
the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
+# it under the terms of the GNU
Affero General Public License as
+#
published by the Free Software Foundation, either version 3 of the
+#
License, or
(at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
+# GNU
Affero
General Public License for more details.
#
#
-# You should have received a copy of the GNU General Public License
+# You should have received a copy of the GNU
Affero
General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
#
# Yohoho and Puzzle Pirates are probably trademarks of Three Rings and
# along with this program. If not, see <http://www.gnu.org/licenses/>.
#
# Yohoho and Puzzle Pirates are probably trademarks of Three Rings and
@@
-41,8
+41,6
@@
our $now= time; defined $now or die $!;
my $re_any= "^(.*)\$";
my $re_any= "^(.*)\$";
-parse_info_serverside();
-
sub fail ($) {
my ($msg) = @_;
addlog("failing $msg");
sub fail ($) {
my ($msg) = @_;
addlog("failing $msg");
@@
-63,6
+61,14
@@
sub must_param ($$) {
my %o;
my %o;
+if (param('get_source')) {
+ header('application/octet-stream');
+ source_tarball('..', sub { print $_[0] or die $!; });
+ exit 0;
+}
+
+parse_info_serverside();
+
my $midtmp= "_mid-pid$$.hold";
open MIDTMP, ">$midtmp" or die "$midtmp $!";
stat MIDTMP or die $!;
my $midtmp= "_mid-pid$$.hold";
open MIDTMP, ">$midtmp" or die "$midtmp $!";
stat MIDTMP or die $!;