feat: implement revision retention settings and pruning logic

Added functionality to handle revision retention minutes in global settings, including validation for input values. Introduced a new method to prune old revisions based on the specified retention period, ensuring that only the most recent revisions are kept. Updated the frontend to allow users to configure the revision retention setting, enhancing the management of revision lifecycles.

internal/pipeline/refresh.go

@@ -30,6 +30,10 @@ const (
 	birdFilterNameV4    = "evobgp_export_v4"
 	birdFilterNameV6    = "evobgp_export_v6"
 	auxBirdFullExpanded = "_bird_full_expanded.conf"
+	revisionTTLKey      = "revision_retention_minutes"
+	revisionMinTTLMin   = 15
+	revisionMaxTTLMin   = 30 * 24 * 60
+	revisionDefaultTTL  = 30 * 24 * time.Hour
 )
 
 // MaterializedASPrefixKey returns the revision snapshot key for an AS-only entry (not a CIDR).
@@ -83,6 +87,7 @@ func RenderTenantRevision(ctx context.Context, st store.Backend, hc *http.Client
 	if err := st.CreateRenderRevision(revisionID, tenantID, triggerModuleID, parent, hash, preview, agg); err != nil {
 		return "", err
 	}
+	applyRevisionRetention(st, tenantID)
 	return revisionID, nil
 }
 
@@ -844,6 +849,46 @@ func uint32FromSettingsMap(m map[string]any, key string) uint32 {
 	return 0
 }
 
+func intFromSettingsMap(m map[string]any, key string) int {
+	v, ok := m[key]
+	if !ok || v == nil {
+		return 0
+	}
+	switch x := v.(type) {
+	case float64:
+		return int(x)
+	case int:
+		return x
+	case int64:
+		return int(x)
+	case string:
+		n, err := strconv.Atoi(strings.TrimSpace(x))
+		if err == nil {
+			return n
+		}
+	}
+	return 0
+}
+
+func applyRevisionRetention(st store.Backend, tenantID string) {
+	settings, err := st.ListGlobalSettings(tenantID)
+	if err != nil {
+		return
+	}
+	ttl := revisionDefaultTTL
+	if minutes := intFromSettingsMap(settings, revisionTTLKey); minutes > 0 {
+		if minutes < revisionMinTTLMin {
+			minutes = revisionMinTTLMin
+		}
+		if minutes > revisionMaxTTLMin {
+			minutes = revisionMaxTTLMin
+		}
+		ttl = time.Duration(minutes) * time.Minute
+	}
+	cutoff := time.Now().UTC().Add(-ttl)
+	_, _ = st.PruneRevisionsBefore(tenantID, cutoff)
+}
+
 type peerPolicyJSON struct {
 	LocalIPv4 string  `json:"local_ipv4"`
 	LocalIPv6 string  `json:"local_ipv6"`