diff --git a/src/site.rkt b/src/site.rkt index 37f9609..d76b14c 100644 --- a/src/site.rkt +++ b/src/site.rkt @@ -95,6 +95,7 @@ [("json" "tag-search-completions") json-tag-search-completions] [("json" "formal-tags") json-formal-tags] [("pkgs-all.json") pkgs-all-json] + [("ping") ping-page] )) (define (on-continuation-expiry request) @@ -1469,6 +1470,11 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(define (ping-page request) + (response/full 200 #"Alive" (current-seconds) #"text/plain" '() '())) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + ;; TODO: fold the collection of this information into the package ;; database itself. (define (update-external-package-information! package-name)