From eb05d0a9a2a0f8dbedc0e0fd91069e4e6b30ff2e Mon Sep 17 00:00:00 2001
From: Natalie Rose <natalie@omg.lol>
Date: Thu, 10 Sep 2026 13:44:58 +1000
Subject: [PATCH] Downgrading cache messages to debug logging

---
 lib/Lacuna/Cache.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lib/Lacuna/Cache.pm b/lib/Lacuna/Cache.pm
index 15d66d8b..e0b70951 100644
--- a/lib/Lacuna/Cache.pm
+++ b/lib/Lacuna/Cache.pm
@@ -42,6 +42,7 @@ sub fix_key {
 sub delete {
     my ($self, $namespace, $id, $retry) = @_;
     my $key = $self->fix_key($namespace, $id);
+    $log->debug("[Cache]: deleting $key");
     my $memcached = $self->memcached;
     Memcached::libmemcached::memcached_delete($memcached, $key);
     if ($memcached->errstr eq 'SYSTEM ERROR Unknown error: 0') {
@@ -92,11 +93,11 @@ sub flush {
 sub get {
     my ($self, $namespace, $id, $retry) = @_;
     my $key = $self->fix_key($namespace, $id);
-    $log->info("[Cache]: getting key $key");
+    $log->debug("[Cache]: getting key $key");
     my $memcached = $self->memcached;
     my $content = Memcached::libmemcached::memcached_get($memcached, $key);
     if ($memcached->errstr eq 'SUCCESS') {
-        $log->info("[Cache]: got value $content");
+        $log->debug("[Cache]: got value $content");
         return $content;
     }
     elsif ($memcached->errstr eq 'NOT FOUND' ) {
@@ -129,7 +130,7 @@ sub get_and_deserialize {
 sub add {
     my ($self, $namespace, $id, $value, $ttl, $retry) = @_;
     my $key = $self->fix_key($namespace, $id);
-    $log->info("[Cache]: adding $key = $value");
+    $log->debug("[Cache]: adding $key = $value");
     $ttl ||= 60;
     my $frozenValue = (ref $value) ? JSON::to_json($value) : $value; 
     my $memcached = $self->memcached;
@@ -159,7 +160,7 @@ sub add {
 sub set {
     my ($self, $namespace, $id, $value, $ttl, $retry) = @_;
     my $key = $self->fix_key($namespace, $id);
-    $log->info("[Cache]: setting $key = $value (ttl: $ttl)");
+    $log->debug("[Cache]: setting $key = $value (ttl: $ttl)");
     $ttl ||= 60;
     my $frozenValue = (ref $value) ? JSON::to_json($value) : $value; 
     my $memcached = $self->memcached;
-- 
2.51.2