log CDN purges

The number of purges at Fastly seems very large. Logging the purges should help track down why.
metacpan · Feb 20, 2024 · 08afe6f · 08afe6f
1 parent 6041879
commit 08afe6f
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git 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
@@ -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__