Support /melpa/at-least-days-old/{number}

This points to the most recent snapshot that is at least {number} days old.

Author: xuhdev

Dockerfile

@@ -33,6 +33,8 @@ RUN apk add --no-cache wget
 
 RUN wget --check-certificate https://delpa.org/melpa_snapshot_versions.json && \
     wget --check-certificate https://delpa.org/melpa_snapshot_versions.json.sha256
+# ISO date in UTC
+RUN echo $(date -I -u) | tee TODAY
 
 # Verify that melpa_snapshot_versions.json is in the sha256 checksum file and
 # verify checksum
@@ -43,6 +45,8 @@ RUN grep melpa_snapshot_versions.json melpa_snapshot_versions.json.sha256 && \
 FROM snapshot-versions-getter-base as snapshot-versions-getter-test
 
 COPY ./melpa_snapshot_versions.json .
+# Mock date to the birthday of Delpa for testing purposes.
+RUN echo 2025-01-02 > TODAY
 
 FROM snapshot-versions-getter-${snapshot_versions_type} as snapshot-versions-getter
 
@@ -52,8 +56,8 @@ FROM docker.io/node:22.12.0-alpine@sha256:6e80991f69cc7722c561e5d14d5e72ab47c0d6
 COPY package.json package-lock.json ./
 RUN npm install -g npm && npm install
 COPY . .
-COPY --from=snapshot-versions-getter ./melpa_snapshot_versions.json .
-RUN npx tsx gen_caddy.ts > Caddyfile
+COPY --from=snapshot-versions-getter ./melpa_snapshot_versions.json ./TODAY .
+RUN env TODAY="$(cat TODAY)" npx tsx gen_caddy.ts > Caddyfile
 
 FROM docker.io/caddy:2.8.4-alpine@sha256:e97e0e3f8f51be708a9d5fadbbd75e3398c22fc0eecd4b26d48561e3f7daa9eb
 

gen_caddy.ts

@@ -20,8 +20,45 @@
 
 import snapshotVersions from "./melpa_snapshot_versions.json" with { type: "json" };
 
+const today = process.env.TODAY ? new Date(process.env.TODAY) : new Date();
 const melpaSnapshotLeadingComp = "/melpa/snapshot" as const;
+const melpaAgeLeadingComp = "/melpa/at-least-days-old" as const;
 const snapshotVersionsRegexp = snapshotVersions.join("|");
+// Snapshot versions from latest to oldest.
+const maxAge = 270 as const; // We support <= 270 days old.
+
+interface SnapshotVersionWithAge {
+  version: string;
+  ageRegexp: string; // age of the snapshot in days
+}
+
+/** Create a list of snapshots and their age regexps. Sorted from most recent to
+ * least recent. */
+function createSnapshotVersionWithAges(): SnapshotVersionWithAge[] {
+  const sortedSnapshotVersions = snapshotVersions.toSorted().reverse();
+  const ageRegexps: SnapshotVersionWithAge[] = [];
+  let lastSnapshotAge = 0;
+  for (const snapshotVersion of sortedSnapshotVersions) {
+    const snapshotDate = new Date(snapshotVersion);
+    const ageOfSnapshot = Math.min(
+      maxAge,
+      Math.floor(
+        (today.getTime() - snapshotDate.getTime()) / (1000 * 60 * 60 * 24),
+      ),
+    );
+    const days = [...Array(ageOfSnapshot - lastSnapshotAge).keys()].map((i) =>
+      (lastSnapshotAge + i + 1).toString(),
+    );
+    ageRegexps.push({ ageRegexp: days.join("|"), version: snapshotVersion });
+    lastSnapshotAge = ageOfSnapshot;
+    if (lastSnapshotAge >= maxAge) {
+      break;
+    }
+  }
+  return ageRegexps;
+}
+
+const snapshotVersionWithAges = createSnapshotVersionWithAges();
 
 const caddyfile = `
 {
@@ -66,6 +103,22 @@ For more information, please visit the Delpa homepage: https://delpa.org"
       close
     }
   }
+
+  # /melpa/at-least-days-old/{number}
+  route ${melpaAgeLeadingComp}/* {
+${snapshotVersionWithAges
+  .map((snapshotVersionWithAge) => {
+    const matcherName = `@valid-age-root-${snapshotVersionWithAge.version}`;
+    return `
+    ${matcherName} path_regexp ^${melpaAgeLeadingComp}/(${snapshotVersionWithAge.ageRegexp})/*$
+    respond ${matcherName} 200 {
+      body "{re.1} days old points to snapshot version ${snapshotVersionWithAge.version}."
+      close
+    }
+    `;
+  })
+  .join("\n")}
+  }
 }
 `;
 

index.test.ts

@@ -119,3 +119,26 @@ describe("/melpa/snapshot", () => {
     });
   }
 });
+
+describe("/melpa/at-least-days-old", () => {
+  const ageLeadingPathComp = "melpa/at-least-days-old" as const;
+  for (const [name, path, snapshotVersion] of [
+    ["without a trailing slash", "1", "2024-10-10"],
+    ["with a trailing slash", "270/", "2024-03-03"],
+  ] as const) {
+    test(`Report OK with valid snapshot version at a root dir of /melpa/at-least-days-old: ${name}`, async () => {
+      const response = await fetch(
+        `${hostAddress}/${ageLeadingPathComp}/${path}`,
+        {
+          redirect: "manual",
+        },
+      );
+
+      expect(response.status).toBe(200);
+      const responseText = await response.text();
+      expect(responseText).toBe(
+        `${path.split("/")[0]} days old points to snapshot version ${snapshotVersion}.`,
+      );
+    });
+  }
+});

melpa_snapshot_versions.json

@@ -1 +1 @@
-["2024-01-01", "2024-02-02", "2024-03-03"]
+["2024-01-01", "2024-02-02", "2024-03-03", "2024-08-08", "2024-10-10"]