chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
timestamp processing
[ypp-sc-tools.db-test.git]
/
yarrg
/
commod-update-receiver
diff --git
a/yarrg/commod-update-receiver
b/yarrg/commod-update-receiver
index 70cf36a93bdfe96aa51446172f2b53349786439f..16a9ac65dc852e8af2b8b32672edece894fd2818 100755
(executable)
--- a/
yarrg/commod-update-receiver
+++ b/
yarrg/commod-update-receiver
@@
-25,13
+25,17
@@
# are used without permission. This program is not endorsed or
# sponsored by Three Rings.
# are used without permission. This program is not endorsed or
# sponsored by Three Rings.
-
-# Uploads contain:
-# ocean canonical mixed case
-# island canonical mixed case
+# All calls contain:
# clientname "ypp-sc-tools"
# clientversion 2.1-g2e06a26 [from git-describe --tags HEAD]
# clientfixes "lastpage" [space separated list]
# clientname "ypp-sc-tools"
# clientversion 2.1-g2e06a26 [from git-describe --tags HEAD]
# clientfixes "lastpage" [space separated list]
+#
+# Timestamp requests contain:
+# requesttimestamp
+#
+# Uploads contain:
+# ocean canonical mixed case
+# island canonical mixed case
# data filename=deduped.tsv.gz output of yarrg --tsv
# data filename=deduped.tsv.gz output of yarrg --tsv
@@
-84,6
+88,12
@@
foreach my $bug (@$clientinfo) {
$o{'clientversion'}= must_param('clientversion', "^(\\d[-+._0-9a-zA-Z]+)\$");
$o{'clientversion'}= must_param('clientversion', "^(\\d[-+._0-9a-zA-Z]+)\$");
+if (param('requesttimestamp')) {
+ my $now= time; defined $now or die;
+ print header(-type=>'text/plain', -charset=>'us-ascii'), "OK $now.\n";
+ exit(0);
+}
+
$o{'ocean'}= must_param('ocean', $re_any);
$o{'island'}= must_param('island', $re_any);
$o{'ocean'}= must_param('ocean', $re_any);
$o{'island'}= must_param('island', $re_any);