From dfead1d585041fbe694631964292c44fecb1caba Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Tue, 26 Aug 2025 11:08:40 +0300
Subject: [PATCH] wip, loosed auth time frame for Mailbox proto

---
 hbs2-peer/lib/HBS2/Peer/Proto/Mailbox.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/hbs2-peer/lib/HBS2/Peer/Proto/Mailbox.hs b/hbs2-peer/lib/HBS2/Peer/Proto/Mailbox.hs
index 249c7645..35b25197 100644
--- a/hbs2-peer/lib/HBS2/Peer/Proto/Mailbox.hs
+++ b/hbs2-peer/lib/HBS2/Peer/Proto/Mailbox.hs
@@ -242,6 +242,9 @@ mailboxProto inner adapter mess = deferred @p do
       --
 
       CheckMailbox _ k ->  do
+
+        debug $ red "mailbox:" <+> "CheckMailbox"
+
         creds <- mailboxGetCredentials @s adapter
 
         void $ runMaybeT do
@@ -256,6 +259,8 @@ mailboxProto inner adapter mess = deferred @p do
 
       MailboxStatus box -> do
 
+        debug $ red "mailbox:" <+> "MailboxStatus"
+
         let r = unboxSignedBox0 @(MailBoxStatusPayload s) box
 
         PeerData{..} <- ContT $ maybe1 se' none
@@ -269,7 +274,7 @@ mailboxProto inner adapter mess = deferred @p do
         --   авторизовываться по времени.
         --   возможно, надо слать нонс в CheckMailbox
         --   и тут его проверять
-        unless ( abs (now - mbsMailboxPayloadNonce) < 3 ) $ exit ()
+        unless ( abs (now - mbsMailboxPayloadNonce) < 10 ) $ exit ()
 
         -- NOTE: possible-poisoning-attack
         --  левый пир генерирует merkle tree сообщений и посылает его.