#!/usr/bin/emacs --script

(defvar world2ch-offline-date "2026-01-18"
  "Date that world2ch.net went offline.")

(defun today ()
  "Return today's date as an ISO-8601 date string."
  (format-time-string "%Y-%m-%d"))

(defun days-offline ()
  "Print and return the current day of work."
  (interactive)
  (let* ((math (format "<%s> - <%s> + 1"
                       (today)
                       world2ch-offline-date))
         (answer (calc-eval math)))
    (message answer)
    (cl-parse-integer answer)))

(message "Status: 200")
(message "Content-Type: text/plain")
(message "")
(days-offline)