From f14eed01ddc782d24722b4c9813b4811da7c3c60 Mon Sep 17 00:00:00 2001
From: Alexey Kovrizhkin <lekovr@gmail.com>
Date: Wed, 7 Jun 2023 01:23:41 +0300
Subject: [PATCH] upd: MASTER -> NATIVE; add soa_upd

---
 domain.sql.sample | 43 +++++++++++++++++++++++++++++++++++++++----
 1 file changed, 39 insertions(+), 4 deletions(-)

diff --git a/domain.sql.sample b/domain.sql.sample
index 42902d1..6a30ae4 100644
--- a/domain.sql.sample
+++ b/domain.sql.sample
@@ -1,3 +1,37 @@
+
+CREATE OR REPLACE FUNCTION soa_upd(a_old TEXT) RETURNS TEXT AS $_$
+/*
+    принять SOA, проверить на "сегодня", если сегодня, то во вторую пару цифр сделать +1
+    если не сегодня, или null, то сегодня += 00
+    если SOA в принципе не по дате, к ней сделать +1
+*/
+DECLARE
+  v_soa TEXT;
+  v_id  INTEGER;
+BEGIN
+  v_soa := to_char(current_timestamp, 'YYYYMMDD');
+  IF a_old IS NULL OR a_old < v_soa || '00' THEN
+    -- SOA нет или меньше сегодняшнего
+    RETURN v_soa || '00';
+  END IF;
+  v_id := substr(a_old, length(v_soa) + 1)::INT + 1;
+  v_soa := substr(a_old, 1, length(v_soa)) || CASE WHEN v_id < 10 THEN '0' ELSE  '' END || v_id::TEXT;
+  RETURN v_soa;
+END
+$_$ LANGUAGE plpgsql;
+
+/*
+SELECT x, soa_upd(x) FROM unnest(ARRAY[
+  null
+, '2023060100'
+, '2023060600'
+, '2023060604'
+, '2023060624'
+, '2024060624'
+, '202406061100'
+]) x;
+*/
+
 DO $$
 
 -- Reload PowerDNS zone data
@@ -8,8 +42,8 @@ DECLARE
   v_ns        text := 'ns.dev.lan';       -- master DNS host
   v_ns_admin  text := 'admin.ns.dev.lan'; -- master DNS admin email
   v_domain_id integer;                    -- internal domain id
-  v_stamp     text;                       -- zone timestamp
-  v_key       text := '1';                -- zone serial suffix
+  v_stamp     text;                       -- zone SOA timestamp
+  v_stamp_old text;                       -- previous zone SOA timestamp
   v_soa       text;                       -- zone SOA
 
 BEGIN
@@ -17,12 +51,13 @@ BEGIN
   SELECT INTO v_domain_id id FROM domains WHERE name = v_domain;
   IF NOT FOUND THEN
     INSERT INTO domains (name, type) VALUES
-      (v_domain, 'MASTER')
+      (v_domain, 'NATIVE')
       RETURNING id INTO v_domain_id
     ;
   END IF;
 
-  v_stamp := to_char(current_timestamp, 'YYYYMMDD') || v_key;
+  SELECT INTO v_stamp_old split_part(content, ' ', 3) FROM records WHERE domain_id = v_domain_id AND type = 'SOA';
+  v_stamp := soa_upd(v_stamp_old);
   v_soa := concat_ws(' ', v_ns, v_ns_admin, v_stamp, '10800 3600 604800 1800');
 
   DELETE FROM records WHERE domain_id = v_domain_id;