From 08afe6f38f5f19a3ffaff6eecd974a0fbfbbae87 Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Tue, 20 Feb 2024 13:48:13 +0100
Subject: [PATCH] log CDN purges

The number of purges at Fastly seems very large. Logging the purges
should help track down why.
---
 lib/MetaCPAN/Role/Script.pm |  9 +++++++++
 lib/MetaCPAN/Server.pm      | 10 ++++++++++
 2 files changed, 19 insertions(+)

diff --git a/lib/MetaCPAN/Role/Script.pm b/lib/MetaCPAN/Role/Script.pm
index b3987c2d3..7ee0885e4 100644
--- a/lib/MetaCPAN/Role/Script.pm
+++ b/lib/MetaCPAN/Role/Script.pm
@@ -392,6 +392,15 @@ sub are_you_sure {
     return $iconfirmed;
 }
 
+before perform_purges => sub {
+    my ($self) = @_;
+    if ( $self->has_surrogate_keys_to_purge ) {
+        log_info {
+            "CDN Purge: " . join ', ', $self->surrogate_keys_to_purge;
+        };
+    }
+};
+
 1;
 
 __END__
diff --git a/lib/MetaCPAN/Server.pm b/lib/MetaCPAN/Server.pm
index 366cb5ffa..05523dfe0 100644
--- a/lib/MetaCPAN/Server.pm
+++ b/lib/MetaCPAN/Server.pm
@@ -150,6 +150,16 @@ sub stash_or_detach {
         ['The requested info could not be found'] );
 }
 
+before perform_purges => sub {
+    my ($self) = @_;
+    if ( $self->has_surrogate_keys_to_purge ) {
+        my $log = $c->log;
+        return
+            unless $log->is_info;
+        $log->info( "CDN Purge: " . join( ', ', @keys ) );
+    }
+};
+
 1;
 
 __END__