feat(archive): BAK-07 gestaffelte Aufbewahrungsfrist fuer Backup-Snapshots

internal/backup.PruneTiered: reine GFS-Funktion (Tag/Woche/Monat) fuer
Datenbank-Generationen, behaelt strukturell immer die neueste Generation
(Sicherheitsnetz gegen Legal-Hold-Kollision). internal/objectbackup.
PruneTiered: duenner Wrapper um restics native --keep-daily/-weekly/
-monthly-Staffelung. Beide CLIs nutzen die Staffelung, wenn konfiguriert,
bleiben sonst abwaertskompatibel zur flachen "letzte N"-Regel. Real
gegen zeitversetzt erzeugte restic-Snapshots getestet (Fund: restics
--time-Flag erwartet eigenes Format, nicht RFC3339), Pruning-Sicherheit
nach dem Loeschen alter Snapshots ueber vollstaendigen Restore +
restic check --read-data bewiesen. Beide Rotationswege real ueber
systemd auf 131 ausgeloest.

archive/internal/objectbackup/restic.go

@@ -137,6 +137,42 @@ func Forget(ctx context.Context, cfg Config, keepLast int) error {
 	return nil
 }
 
+// RetentionPolicy ist eine gestaffelte Aufbewahrungsfrist nach
+// restic/Borg-Vorbild (BAK-07, unabhängig von RET-02s Dokumenten-
+// Retention): täglich/wöchentlich/monatlich je eine konfigurierbare
+// Anzahl Snapshots behalten, statt einer flachen "letzte N"-Regel
+// (Forget/keepLast) oder hart codierter Staffelung. Ein Feldwert 0
+// bedeutet "diese Stufe nicht anwenden" (restics eigene Konvention bei
+// `--keep-*`).
+type RetentionPolicy struct {
+	KeepDaily   int
+	KeepWeekly  int
+	KeepMonthly int
+}
+
+// PruneTiered wendet policy über restics NATIVE `--keep-daily`/
+// `--keep-weekly`/`--keep-monthly`-Staffelung an (kein Eigenbau der
+// Bucket-Logik — restic beherrscht das bereits robust) und gibt den
+// belegten Speicherplatz nicht mehr referenzierter Daten frei
+// (`--prune`). Snapshots, die keiner Stufe zugeordnet werden, entfallen
+// automatisch — restics übliche GFS-Semantik.
+func PruneTiered(ctx context.Context, cfg Config, policy RetentionPolicy) error {
+	args := []string{"forget", "--prune"}
+	if policy.KeepDaily > 0 {
+		args = append(args, "--keep-daily", fmt.Sprintf("%d", policy.KeepDaily))
+	}
+	if policy.KeepWeekly > 0 {
+		args = append(args, "--keep-weekly", fmt.Sprintf("%d", policy.KeepWeekly))
+	}
+	if policy.KeepMonthly > 0 {
+		args = append(args, "--keep-monthly", fmt.Sprintf("%d", policy.KeepMonthly))
+	}
+	if _, err := run(ctx, cfg, args...); err != nil {
+		return fmt.Errorf("objectbackup: gestaffelte rotation: %w", err)
+	}
+	return nil
+}
+
 // Restore stellt snapshotID nach targetDir wieder her (`restic restore`).
 // targetDir muss bereits existieren; Atomarität gegenüber einem eventuell
 // nicht-leeren ENDZIEL ist Aufgabe von internal/restore, nicht dieser