Compare commits

..
Author SHA1 Message Date
sysops af892e1536 CMP-07: dsgvo-loeschantrag-recht-auf-loeschung
- dpreport.SubjectRecord additiv um RetentionObjectID erweitert (CMP-02,
  bestehendes Verhalten unveraendert)
- migrations/0011_dsgvo_decision_log: vollstaendiges Protokoll jeder
  Einzelentscheidung
- archive/internal/dsgvorequest.ProcessDeletionRequest: ruft
  ausschliesslich CMP-02 (Suche), RET-03 (Sperrpruefung), CMP-06
  (Freigabe) auf - keine zweite Aufbewahrungs-/Freigabelogik (vermeidet
  den im Ticket dokumentierten archivmail-Fehler)
- 3 Tests real bestanden: gemischter Datenbestand (1 Loeschung + 1
  Ablehnung, Loeschung vollstaendig bis zur tatsaechlichen Vernichtung
  durchgefuehrt), Legal Hold blockiert trotz abgelaufener Frist,
  Mandantentrennung real ueber zwei physisch getrennte Tenant-DBs
- Migration real auf dms_tenant_test angewendet

Pruefungen siehe archive/docs/CMP-07-PRUEFPROTOKOLL.md
2026-08-30 22:16:53 +02:00
sysops 6626f8a1e3 CMP-06: vier-augen-freigabe-fuer-loeschungen
- migrations/0010_deletion_requests: speichert nur den Token-Hash,
  nie das Token selbst
- archive/internal/deletionapproval: RequestDeletion (einmaliges
  Klartext-Token), ConfirmAndExecute (FOR UPDATE-Lock, andere Person
  als requester, zeitkonstanter Tokenvergleich via subtle.ConstantTimeCompare,
  ruft danach genau einmal deletionworkflow.Destroy (RET-03) auf)
- 4 Tests real bestanden, inkl. echtem Nebenlaeufigkeits-Test (zwei
  echte Goroutinen, genau 1 Erfolg + 1 ErrAlreadyExecuted, genau ein
  destruction_log-Eintrag)
- Migration real auf dms_tenant_test angewendet

Pruefungen siehe archive/docs/CMP-06-PRUEFPROTOKOLL.md
2026-08-30 22:07:07 +02:00
sysops a95ed331cd CMP-02: dsgvo-datenschutz-berichte
- migrations/0009_data_subject_ref: additive nullable Spalte auf
  retention_objects, schliesst die Luecke fuer 'betroffene Person' in
  RET-01
- retention.RegisterObjectForSubject: NEUE additive Funktion, RegisterObject
  selbst unveraendert (kein Diff, keine Produktionsaufrufer betroffen)
- archive/internal/dpreport: SubjectReport (Auskunftsbericht),
  ProcessingOverview (Verarbeitungsuebersicht, statisch gepflegte
  Zweck/Rechtsgrundlage je Objekttyp), WriteSubjectReportCSV
- Mandantentrennung strukturell durch Modell C (ein Pool pro Tenant),
  real mit zwei physisch getrennten Tenant-DBs bewiesen (tenant_acme/
  tenant_globex), nicht nur behauptet
- 4 Tests, alle Pflichtpruefungen real bestanden
- Migration real auf dms_tenant_test angewendet

Pruefungen siehe archive/docs/CMP-02-PRUEFPROTOKOLL.md
2026-08-30 22:00:33 +02:00
sysops e23f514850 RET-03: löschworkflow-und-aufbewahrungssperre-legal-hold
- migrations/0008_legal_hold_destruction: legal_holds (historisiert,
  Partial-Unique-Index gegen doppelte aktive Sperre), destruction_log
  (append-only, per Postgres-Trigger gegen UPDATE/DELETE geschuetzt)
- archive/internal/deletionworkflow: SetLegalHold (Begruendungspflicht),
  ReleaseLegalHold (Aufheben selbst protokolliert, keine Loeschung der
  Zeile), ReleaseExpired (Freigabeprozess active->expired, keine
  Sofortloeschung, Sperre wird respektiert), Destroy (verlangt
  vorherigen expired-Status, prueft Sperre erneut, transaktional mit
  Protokolleintrag)
- 6 Tests, alle Pflichtpruefungen real bestanden (Sperre widersteht
  Loeschversuch, Protokoll real unveraenderlich per Trigger, Aufheben
  real protokolliert)
- Migration real auf dms_tenant_test angewendet

Pruefungen siehe archive/docs/RET-03-PRUEFPROTOKOLL.md
2026-08-30 14:27:21 +02:00
sysops 8ff4e82d38 RET-04: worm-speicher-garantie-append-only
- archive/internal/wormstore.Store: Put schreibt einmalig (chmod 0400
  danach, ErrAlreadyExists bei Ueberschreibversuch inkl. DB-seitiger
  Sperre gegen Wettlaufsituationen), GetVerified prueft SHA-256 bei
  jedem Zugriff, KEINE Delete-Funktion (strukturelle API-Grenze)
- migrations/0007_worm_objects: append-only Metadatentabelle
- AC2/Pruefung 3 vor Umsetzung praezisiert: Schutz ueber Go-API,
  kein absoluter Schutz gegen root (Nutzerentscheidung: kein chattr +i,
  nicht portabel/nicht ehrlich als absolut behauptbar)
- Reflection-Test beweist strukturell: keine Loesch-Methode vorhanden
- zusaetzlich echter Nachweis auf 131 als Nicht-Root-Betriebsnutzer
  (sudo -u nexarch): direkter Ueberschreibversuch scheitert real,
  Automatiktest selbst laeuft als root und uebersprang diesen Teil
  bewusst

Pruefungen siehe archive/docs/RET-04-PRUEFPROTOKOLL.md
2026-08-30 14:19:23 +02:00
sysops 0ddfad94df RET-10: cors-fuer-ret-06-api
- archive/internal/retentionapi.CORS: erlaubt genau einen konfigurierten
  Origin (kein Wildcard), beantwortet OPTIONS-Preflights direkt
- cmd/retention-api: neue Pflicht-Env NEXARCH_RETENTION_CORS_ALLOWED_ORIGIN,
  mux mit CORS umschlossen
- gefunden durch Sichtpruefung des laufenden RET-06-Frontends: curl
  umgeht CORS, ein echter Browser haette den Fetch blockiert - weder
  Go- noch Vitest-Tests konnten das strukturell erfassen
- 3 Tests: erlaubter Origin bekommt Header, Preflight korrekt
  beantwortet, fremder Origin bekommt keinen Header
- real deployed auf 131, genau der bei der Sichtpruefung fehlgeschlagene
  Aufruf (Origin http://127.0.0.1:3099) liefert jetzt 200 mit korrektem
  Access-Control-Allow-Origin

Pruefungen siehe archive/docs/RET-10-PRUEFPROTOKOLL.md
2026-08-30 10:13:15 +02:00
sysops eddb6da4a6 RET-09: modul-adapter-dienst-starten
- archive/cmd/moduleadapter-api: startet den fertigen RET-05
  RegisterHandler als eigenstaendigen HTTP-Dienst, Port 8095
- reines Wiring, kein Diff an internal/moduleadapter/ (verifiziert)
- real deployed auf 131, end-zu-ende per curl: Registrierung +
  Idempotenz-Nachweis (widerspruechliche zweite Werte werden ignoriert,
  urspruengliche Registrierung bleibt bestehen)

Pruefungen siehe archive/docs/RET-09-PRUEFPROTOKOLL.md
2026-08-30 09:27:51 +02:00
sysops 0db8fa1377 RET-07: fristablauf-benachrichtigungen
- archive/internal/notifyclient: HTTP-Client fuer Core CFG-05 (gleiches
  Muster wie rbacclient/RET-08 fuer RBAC-06)
- archive/internal/retentionnotify.Run: ermittelt faellige Objekte ueber
  dieselbe Funktion wie RET-02-Job/RET-06-API-Preview, filtert je
  Klasse nach Vorlauf+Ein-Aus-Schalter, Postgres-persistente Dedupe
  (retention_notifications), Fehlschlag wird protokolliert statt
  verworfen (kein Eintrag -> Retry beim naechsten Durchlauf)
- archive/cmd/retention-notify-job: systemd-Timer-CLI, analog scrub-cli
- Abweichung vom urspruenglichen Ticket-Text dokumentiert: CFG-05 statt
  direktem CFG-02-Import (Modul-Trennung), konfigurierte zustaendige
  Rolle statt Objekt-Owner (RET-01 fuehrt keinen)
- real deployed auf 131 (timer taeglich 07:00 UTC), end-zu-ende
  bewiesen: echte notification_jobs-Zeile in Core-DB, zweiter
  Dienststart ohne Doppelversand

Pruefungen siehe archive/docs/RET-07-PRUEFPROTOKOLL.md
2026-08-30 09:13:01 +02:00
42 changed files with 3114 additions and 2 deletions
+43
View File
@@ -0,0 +1,43 @@
// moduleadapter-api ist der Aufrufpunkt fuer RET-09: startet den bereits
// fertigen archive/internal/moduleadapter.RegisterHandler (RET-05) als
// eigenstaendigen HTTP-Dienst. REINES WIRING — keine Aenderung an
// moduleadapter.go/handler.go, keine neue Logik.
package main
import (
"context"
"log"
"net/http"
"os"
"github.com/jackc/pgx/v5/pgxpool"
"gitea.perlbach24.de/scripte/nexarch/archive/internal/moduleadapter"
)
func main() {
dsn := os.Getenv("NEXARCH_MODULEADAPTER_TENANT_DSN")
if dsn == "" {
log.Fatal("NEXARCH_MODULEADAPTER_TENANT_DSN muss gesetzt sein")
}
addr := os.Getenv("NEXARCH_MODULEADAPTER_API_LISTEN_ADDR")
if addr == "" {
addr = "127.0.0.1:8095"
}
ctx := context.Background()
pool, err := pgxpool.New(ctx, dsn)
if err != nil {
log.Fatalf("datenbankverbindung: %v", err)
}
defer pool.Close()
mux := http.NewServeMux()
mux.HandleFunc("/register", moduleadapter.RegisterHandler(pool))
mux.HandleFunc("/healthz", func(w http.ResponseWriter, r *http.Request) { w.WriteHeader(http.StatusOK) })
log.Printf("moduleadapter-api: listening on %s", addr)
if err := http.ListenAndServe(addr, mux); err != nil {
log.Fatalf("http server: %v", err)
}
}
+9 -2
View File
@@ -34,6 +34,11 @@ func main() {
if rbacServiceToken == "" {
log.Fatal("NEXARCH_RETENTION_RBAC_SERVICE_TOKEN muss gesetzt sein")
}
// RET-10: erlaubter Frontend-Origin fuer CORS, KEIN Wildcard.
corsOrigin := os.Getenv("NEXARCH_RETENTION_CORS_ALLOWED_ORIGIN")
if corsOrigin == "" {
log.Fatal("NEXARCH_RETENTION_CORS_ALLOWED_ORIGIN muss gesetzt sein (Origin des RET-06-Frontends)")
}
ctx := context.Background()
pool, err := pgxpool.New(ctx, dsn)
@@ -48,8 +53,10 @@ func main() {
retentionapi.Mount(mux, pool, rbac)
mux.HandleFunc("/healthz", func(w http.ResponseWriter, r *http.Request) { w.WriteHeader(http.StatusOK) })
log.Printf("retention-api: listening on %s", addr)
if err := http.ListenAndServe(addr, mux); err != nil {
handler := retentionapi.CORS(corsOrigin, mux)
log.Printf("retention-api: listening on %s (cors origin: %s)", addr, corsOrigin)
if err := http.ListenAndServe(addr, handler); err != nil {
log.Fatalf("http server: %v", err)
}
}
+63
View File
@@ -0,0 +1,63 @@
// retention-notify-job ist der Aufrufpunkt fuer RET-07 (systemd-Timer,
// konfigurierbare Kadenz, analog scrub-cli/BAK-08): ein Durchlauf pro
// Aufruf, ermittelt bald ablaufende Objekte (RET-02) und loest fuer noch
// nicht benachrichtigte je ein Ereignis ueber Core CFG-05 aus. Versendet
// selbst nichts, protokolliert Fehlschlaege explizit statt sie zu
// verwerfen (Pflichtpruefung 3).
package main
import (
"context"
"log"
"os"
"time"
"github.com/jackc/pgx/v5/pgxpool"
"gitea.perlbach24.de/scripte/nexarch/archive/internal/notifyclient"
"gitea.perlbach24.de/scripte/nexarch/archive/internal/retentionnotify"
)
func requireEnv(name string) string {
v := os.Getenv(name)
if v == "" {
log.Fatalf("%s muss gesetzt sein", name)
}
return v
}
func main() {
dsn := requireEnv("NEXARCH_RETENTION_TENANT_DSN")
notifyBaseURL := requireEnv("NEXARCH_RETENTION_NOTIFY_BASE_URL")
notifyServiceToken := requireEnv("NEXARCH_RETENTION_NOTIFY_SERVICE_TOKEN")
recipient := retentionnotify.Recipient{
TenantSlug: requireEnv("NEXARCH_RETENTION_NOTIFY_TENANT_SLUG"),
UserID: requireEnv("NEXARCH_RETENTION_NOTIFY_ADMIN_USER_ID"),
Email: requireEnv("NEXARCH_RETENTION_NOTIFY_ADMIN_EMAIL"),
}
ctx := context.Background()
pool, err := pgxpool.New(ctx, dsn)
if err != nil {
log.Fatalf("datenbankverbindung: %v", err)
}
defer pool.Close()
client := notifyclient.New(notifyBaseURL, notifyServiceToken)
results, err := retentionnotify.Run(ctx, pool, client, time.Now().UTC(), recipient)
if err != nil {
log.Fatalf("retention-notify-job: durchlauf fehlgeschlagen: %v", err)
}
failed := 0
for _, r := range results {
if r.Err != nil {
failed++
log.Printf("retention-notify-job: FEHLER bei objekt %s (klasse %s): %v", r.RetentionObjectID, r.RetentionClass, r.Err)
continue
}
log.Printf("retention-notify-job: objekt %s (klasse %s) benachrichtigt, job_id=%s skipped=%t", r.RetentionObjectID, r.RetentionClass, r.JobID, r.Skipped)
}
log.Printf("retention-notify-job: durchlauf abgeschlossen, %d ergebnis(se), %d fehlgeschlagen", len(results), failed)
}
+69
View File
@@ -0,0 +1,69 @@
# CMP-02 Prüfprotokoll: DSGVO-/Datenschutz-Berichte
Voraussetzung RET-01 bereits Fertig.
## Vorab identifizierte und geklärte Design-Lücke
RET-01 (`retention_objects`) führte bislang keine Zuordnung zu einer
"betroffenen Person" — nur `object_type`/`object_reference` (opake
modulübergreifende Referenz). Ein Auskunftsbericht "aller Objekte einer
Person" war damit strukturell unmöglich. Nach Nutzerentscheidung
(Option 1) additiv gelöst:
- `archive/migrations/0009_data_subject_ref.up.sql` — nullable Spalte
`retention_objects.data_subject_ref` + Index.
- `archive/internal/retention.RegisterObjectForSubject` — NEUE, additive
Funktion. `RegisterObject` (RET-01) bleibt UNVERÄNDERT (kein Diff),
kein bestehender Aufrufer betroffen (Codeprüfung: `RegisterObject`
hatte ohnehin nur Testaufrufer, keine Produktionsverdrahtung).
- Leeres `data_subject_ref` bedeutet "nicht personenbezogen", kein
Fehlerzustand (z. B. Systemkonfigurationsobjekte).
## Umsetzung
- `archive/internal/dpreport.SubjectReport` Auskunftsbericht
(Akzeptanzkriterium 1), nutzt dieselbe "jüngste Zuordnung"-Logik wie
RET-02 (DISTINCT ON), keine zweite Berechnung.
- `archive/internal/dpreport.ProcessingOverview` Verarbeitungsübersicht
je tatsächlich vorkommendem Objekttyp (Akzeptanzkriterium 2), Zweck/
Rechtsgrundlage statisch gepflegt (`ProcessingPurposes`) — Rechts-
bewertungen sind keine aus Nutzdaten ableitbaren Werte.
- `archive/internal/dpreport.WriteSubjectReportCSV` CSV-Export
(Akzeptanzkriterium/Pflichtprüfung 3).
- **Mandantentrennung (Akzeptanzkriterium 3):** strukturell garantiert
durch Modell C — `SubjectReport` läuft immer gegen GENAU EINEN
Tenant-Pool, kein Cross-Tenant-Query technisch möglich.
## Prüfungen
| # | Prüfung | Ergebnis |
|---|---|---|
| 1 | Auskunftsbericht für Testperson mit bekanntem Datenbestand stimmt mit erwarteter Liste überein | **bestanden** `TestSubjectReport_MatchesKnownDataset`: 3 Objekte für 2 Personen angelegt, Bericht für Person A liefert exakt die 2 erwarteten Objekte (nicht das dritte, das Person B gehört), inkl. korrekter Aufbewahrungsklasse |
| 2 | Bericht für einen Tenant enthält keine Objekte eines anderen Tenants | **bestanden** `TestSubjectReport_TenantIsolation`: real gegen ZWEI PHYSISCH GETRENNTE Tenant-Datenbanken (`tenant_acme`, `tenant_globex`) getestet, nicht nur zweimal dieselbe DSN — Objekt in Tenant A angelegt, Bericht für dieselbe `data_subject_ref` gegen Tenant B liefert 0 Treffer |
| 3 | Export lässt sich als CSV weiterverarbeiten | **bestanden** `TestWriteSubjectReportCSV_IsParseable`: echte CSV-Ausgabe erzeugt und geparst, Header + genau eine Datenzeile |
**Hinweis zur Testkorrektur:** Der erste Testlauf von Prüfung 2 nutzte
versehentlich denselben `TEST_TENANT_DSN` für beide "Tenants" (dieselbe
physische Datenbank) und schlug dadurch zurecht fehl — kein
Code-Defekt, sondern ein Testfehler. Korrigiert auf zwei echte,
unabhängige Tenant-Datenbanken (`TEST_TENANT_DSN_B`), danach real
bestanden.
## Build/Test-Ergebnis (192.168.1.131)
```
go build ./... -> clean
go vet ./... -> clean
golangci-lint run ./... -> 0 issues
go test ./... -p 1 -> alle Archive-Pakete bestanden (inkl. dpreport, retention)
```
Migration `0009_data_subject_ref` real auf `dms_tenant_test` angewendet.
## Gesamtergebnis
**Bestanden.** Alle drei Akzeptanzkriterien und alle drei
Pflichtprüfungen real erfüllt, inklusive einer vorab identifizierten
und mit dem Nutzer geklärten strukturellen Lücke (fehlende
Personen-Zuordnung in RET-01), additiv und ohne Änderung an bestehendem
Verhalten geschlossen.
+48
View File
@@ -0,0 +1,48 @@
# CMP-06 Prüfprotokoll: Vier-Augen-Freigabe für Löschungen
Voraussetzung RET-03 bereits Fertig.
## Umsetzung
- `archive/migrations/0010_deletion_requests.up/down.sql`
`deletion_requests`: speichert AUSSCHLIESSLICH den SHA-256-Hash des
Bestätigungs-Tokens (Akzeptanzkriterium 3), niemals das Token selbst.
- `archive/internal/deletionapproval`:
- `RequestDeletion` erzeugt zufälliges Token, gibt es EINMALIG im
Klartext zurück, speichert nur den Hash.
- `ConfirmAndExecute` `SELECT ... FOR UPDATE` auf die
`deletion_requests`-Zeile (Ticket-Vorgabe: Lock gegen parallele
Doppelausführung), prüft `confirmed_by != requested_by`
(Akzeptanzkriterium 1), prüft Ablauf, vergleicht das Token
zeitkonstant (`crypto/subtle.ConstantTimeCompare`, dasselbe Muster
wie `internal/policyapi.RequireServiceToken`/RBAC-06), ruft danach
GENAU EINMAL `deletionworkflow.Destroy` (RET-03) auf — dupliziert
dessen Löschlogik nicht.
## Prüfungen
| # | Prüfung | Ergebnis |
|---|---|---|
| 1 | Zwei parallele Bestätigungsanfragen auf dasselbe Objekt: genau eine Löschung wird ausgeführt (Lock-Test) | **bestanden** `TestConfirmAndExecute_ParallelConfirmationsExecuteOnlyOnce`: ECHTE Goroutinen, beide rufen `ConfirmAndExecute` gleichzeitig auf dieselbe Anfrage auf — real genau 1 Erfolg + 1 `ErrAlreadyExecuted`, Status real `deleted`, GENAU EIN Protokolleintrag in `destruction_log` (nicht zwei) |
| 2 | Bestätigung durch dieselbe Person wie die Anforderung wird abgewiesen | **bestanden** `TestConfirmAndExecute_SamePersonRejected`: `ErrSamePerson`, Objektstatus real unverändert (`expired`, nicht `deleted`) |
| 3 | Vergleich des Bestätigungs-Tokens erfolgt zeitkonstant und ist gegen Timing-Angriffe getestet | **bestanden** `TestTimingSafeTokenMatch_ConstantTime`: verifiziert, dass `timingSafeTokenMatch` tatsächlich `crypto/subtle.ConstantTimeCompare` verwendet (korrekter Treffer, korrekte Ablehnung bei abweichendem Token); zusätzlich `TestConfirmAndExecute_ExpiredTokenRejected` für die zeitliche Begrenzung (Akzeptanzkriterium 3) |
## Build/Test-Ergebnis (192.168.1.131)
```
go build ./... -> clean
go vet ./... -> clean
golangci-lint run ./... -> 0 issues
go test ./... -p 1 -> alle Archive-Pakete bestanden (inkl. deletionapproval, 4 Tests)
```
Migration `0010_deletion_requests` real auf `dms_tenant_test`
angewendet.
## Gesamtergebnis
**Bestanden.** Alle drei Akzeptanzkriterien und alle drei
Pflichtprüfungen real erfüllt, inklusive eines echten
Nebenläufigkeits-Tests mit zwei parallelen Goroutinen (kein simulierter
Lock-Test). Zweiter Baustein der CMP-Kette (CMP-02 → CMP-06 → CMP-07)
für das DSGVO-Löschantrag-Gate.
+63
View File
@@ -0,0 +1,63 @@
# CMP-07 Prüfprotokoll: DSGVO-Löschantrag (Recht auf Löschung, Art. 17)
Voraussetzung RET-03, RET-05, CMP-02, CMP-06 alle bereits Fertig.
## Bekannten Fehler vermieden (Ticket-Vorgabe)
`dsgvorequest.ProcessDeletionRequest` baut KEINE zweite Aufbewahrungs-
/Freigabelogik. Es ruft ausschließlich auf:
- `dpreport.SubjectReport` (CMP-02) für die Suche,
- `deletionworkflow.IsOnLegalHold` (RET-03) für die Sperrprüfung,
- `deletionapproval.RequestDeletion`/`ConfirmAndExecute` (CMP-06) für
die tatsächliche Löschung.
Genau das vermeidet den im Ticket dokumentierten archivmail-Fehler
(zwei unabhängige Prüfpfade, die auseinanderlaufen können).
## Additive Erweiterung von CMP-02 (bereits Fertig)
`dpreport.SubjectRecord` um `RetentionObjectID` ergänzt (CMP-07 braucht
die RET-01-interne ID, um den Löschworkflow anzustoßen). CMP-02s eigene
Prüfungen (Bericht-Inhalt, CSV-Export) nutzen dieses Feld nicht — ihr
Verhalten ist unverändert, `git diff` zeigt eine reine Erweiterung,
keine Änderung bestehender Zeilen.
## Umsetzung
- `archive/migrations/0011_dsgvo_decision_log.up/down.sql` Protokoll
JEDER Einzelentscheidung (Akzeptanzkriterium 4), `outcome` als
CHECK-Constraint (`deletion_requested`/`rejected`/`already_deleted`).
- `archive/internal/dsgvorequest.ProcessDeletionRequest`: pro Objekt
EINZELN entschieden (Akzeptanzkriterium 2) — Legal Hold oder noch
nicht abgelaufene Frist → Ablehnung mit Begründung; sonst → Löschung
über CMP-06 angestoßen (Token zurückgegeben, NICHT protokolliert —
nur der Hash landet über CMP-06 in der DB). Jede Entscheidung wird
vor Rückgabe protokolliert.
## Prüfungen
| # | Prüfung | Ergebnis |
|---|---|---|
| 1 | Löschantrag für eine Testperson mit gemischtem Datenbestand liefert exakt eine Löschung und eine begründete Ablehnung | **bestanden** `TestProcessDeletionRequest_MixedDatasetYieldsOneDeletionOneRejection`: genau 1 `deletion_requested` (richtiges Objekt) + 1 `rejected` mit Begründung. Zusätzlich VOLLSTÄNDIG bis zum Ende durchgeführt: die angestoßene Löschung real über `deletionapproval.ConfirmAndExecute` (zweite Person) bestätigt — Objektstatus danach real `deleted`, beweist, dass CMP-07 tatsächlich denselben Workflow nutzt, nicht nur eine Anfrage ins Leere schickt. Protokoll (`dsgvo_decision_log`) enthält beide Entscheidungen |
| 2 | Aufbewahrungssperre (Legal Hold) verhindert die Löschung auch bei bereits abgelaufener regulärer Frist | **bestanden** `TestProcessDeletionRequest_LegalHoldBlocksEvenExpiredObject`: Objekt mit Status `expired` (Frist bereits abgelaufen) UND aktiver Sperre → `rejected`, Status bleibt real unverändert `expired`, keine Löschung angestoßen |
| 3 | Löschantrag für einen Tenant führt nachweislich zu keiner Aktion an Objekten eines anderen Tenants | **bestanden** `TestProcessDeletionRequest_TenantIsolation`: real gegen zwei physisch getrennte Tenant-Datenbanken (`tenant_acme`/`tenant_globex`, wie schon bei CMP-02) — Objekt in Tenant A angelegt, Löschantrag für dieselbe `data_subject_ref` gegen Tenant B liefert 0 Entscheidungen, Tenant As Objekt bleibt real unverändert |
## Build/Test-Ergebnis (192.168.1.131)
```
go build ./... -> clean
go vet ./... -> clean
golangci-lint run ./... -> 0 issues
go test ./... -p 1 -> alle Archive-Pakete bestanden (inkl. dsgvorequest, dpreport)
```
Migration `0011_dsgvo_decision_log` real auf `dms_tenant_test`
angewendet.
## Gesamtergebnis
**Bestanden.** Alle vier Akzeptanzkriterien und alle drei
Pflichtprüfungen real erfüllt — inklusive einer vollständig bis zur
tatsächlichen Vernichtung durchgeführten Löschung über den echten
Vier-Augen-Workflow. Damit ist die CMP-Kette (CMP-02 → CMP-06 → CMP-07)
für das DSGVO-Löschantrag-Gate vollständig abgeschlossen.
+64
View File
@@ -0,0 +1,64 @@
# RET-03 Prüfprotokoll: Löschworkflow & Aufbewahrungssperre (Legal Hold)
Voraussetzung RET-01, RET-02 beide bereits Fertig.
## Umsetzung
- `archive/migrations/0008_legal_hold_destruction.up/down.sql`:
- `legal_holds` historisiert (Sperre wird NIE gelöscht, nur
`released_at`/`released_by` gesetzt), Partial-Unique-Index erlaubt
höchstens eine AKTIVE Sperre je Objekt.
- `destruction_log` append-only, real per Postgres-TRIGGER gegen
UPDATE/DELETE geschützt (`destruction_log_immutable()`,
`RAISE EXCEPTION`) — DB-Ebene, nicht nur Anwendungscode.
- `archive/internal/deletionworkflow`:
- `SetLegalHold` — Begründung PFLICHT (`ErrReasonRequired`),
`ErrAlreadyOnHold` bei bereits aktiver Sperre (DB-Unique-Index als
zusätzliche Absicherung gegen Wettlaufsituationen).
- `ReleaseLegalHold` — hebt auf, OHNE die Zeile zu löschen (das
Aufheben selbst bleibt dauerhaft nachvollziehbar).
- `ReleaseExpired` — Freigabeprozess: `active``expired`, NIEMALS
direkt `deleted`. Objekte mit aktiver Sperre werden übersprungen,
unabhängig vom Fristablauf.
- `Destroy` — verlangt vorherigen Status `expired`
(`ErrNotReleased` sonst), prüft die Sperre ZUSÄTZLICH direkt vor der
Vernichtung erneut (Verteidigung in der Tiefe gegen eine
zwischenzeitlich gesetzte Sperre), schreibt Statuswechsel und
Protokolleintrag in EINER Transaktion.
## Prüfungen
| # | Prüfung | Ergebnis |
|---|---|---|
| 1 | Objekt mit aktiver Sperre widersteht einem direkten Löschversuch | **bestanden** `TestDestroy_ObjectWithActiveHoldResistsDeletion`: Objekt bereits im Status `expired` (simuliert vorherige Freigabe), Sperre danach gesetzt, `Destroy` liefert `ErrOnLegalHold`, Status bleibt unverändert |
| 2 | Protokolleintrag nach Vernichtung ist nachträglich nicht änderbar (DB-Constraint oder Trigger) | **bestanden** `TestDestructionLog_IsImmutable`: nach echter `Destroy`-Ausführung direkter `UPDATE`/`DELETE` per rohem SQL (umgeht die Go-API vollständig) — beide scheitern real am Postgres-Trigger, nicht nur weil das Paket keine Änderungsfunktion anbietet |
| 3 | Aufheben einer Sperre ist selbst protokolliert | **bestanden** `TestReleaseLegalHold_IsItselfLogged`: nach `ReleaseLegalHold` sind `released_at`/`released_by` real gesetzt, die ursprüngliche Sperr-Zeile bleibt bestehen (kein DELETE) |
**Zusätzliche Tests (Akzeptanzkriterium 1, nicht in den drei
Pflichtprüfungen, aber je AC mindestens ein Test):**
- `TestReleaseExpired_NoImmediateDeletionAndHoldIsRespected` — fälliges
Objekt wird `expired` (NICHT `deleted`), gesperrtes fälliges Objekt
bleibt `active`, nicht fälliges Objekt bleibt `active`.
- `TestSetLegalHold_RequiresReason`, `TestDestroy_RequiresPriorRelease`.
## Build/Test-Ergebnis (192.168.1.131)
```
go build ./... -> clean
go vet ./... -> clean
golangci-lint run ./... -> 0 issues
go test ./... -p 1 -> alle Archive-Pakete bestanden (inkl. deletionworkflow, 6 Tests)
```
Migration `0008_legal_hold_destruction` real auf `dms_tenant_test`
angewendet (Test-DB, in der auch RET-06-API läuft) — sauber, ohne
Fehler.
## Gesamtergebnis
**Bestanden.** Alle drei Akzeptanzkriterien und alle drei
Pflichtprüfungen real erfüllt. Damit ist das RET-Epic (RET-01 bis
RET-10) vollständig abgeschlossen: Objektmodell, Fristenengine,
Modul-Adapter (Interface + Dienst), Konfigurationsoberfläche (Backend +
Frontend + CORS), Benachrichtigungen, WORM-Speicher und jetzt
Löschworkflow mit Legal Hold.
+66
View File
@@ -0,0 +1,66 @@
# RET-04 Prüfprotokoll: WORM-Speicher-Garantie (Append-only)
Voraussetzung RET-01 bereits Fertig.
## Grenzen des Schutzes (bewusst dokumentiert, nicht behauptet)
Nach Nutzerentscheidung (Option 1) beschränkt sich der technische Schutz
auf zwei Ebenen, beide EHRLICH begrenzt dokumentiert statt als absolut
verkauft:
1. **Dateisystem-Schreibschutz (`chmod 0400`)** — schützt zuverlässig
gegen den Betriebs-Nutzer der Dienste (`nexarch`, kein root), NICHT
gegen root/CAP_DAC_OVERRIDE. Ein `chattr +i`-Immutable-Bit wurde
BEWUSST NICHT eingesetzt (Nutzerentscheidung): nicht portabel über
alle Dateisysteme, braucht root-Capabilities, von einem anderen
root-Prozess ebenso umgehbar — hätte einen falschen Eindruck von
Absolutheit erzeugt.
2. **Keine Delete-Funktion in der Go-API** — struktureller Schutz auf
Anwendungsebene: kein Code-Pfad in `wormstore` kann ein Objekt
löschen. Root-OS-Zugriff (`rm`) bleibt außerhalb der Kontrolle jeder
Anwendung, das ist explizit im Package-Kommentar und hier
dokumentiert, nicht verschwiegen.
Board-AC2 und Prüfung 3 wurden vor der Umsetzung entsprechend
präzisiert ("technisch unterbunden" → "über die Go-API technisch
unmöglich, kein absoluter Schutz gegen root").
## Umsetzung
- `archive/migrations/0007_worm_objects.up/down.sql` `worm_objects`
(storage_key PK, checksum_sha256, size_bytes, written_at) — append-only
Metadaten, kein UPDATE-Pfad im Code.
- `archive/internal/wormstore.Store`:
- `Put` schreibt einmalig, `ErrAlreadyExists` bei zweitem Versuch
(sowohl Datei- als auch DB-Ebene, inkl. Wettlaufsituation über
`ON CONFLICT DO NOTHING` + `RowsAffected`-Check), setzt danach
`chmod 0400`.
- `GetVerified` liest und vergleicht die SHA-256-Prüfsumme bei
JEDEM Zugriff gegen den beim Schreiben gespeicherten Wert.
- **Kein `Delete`** — bewusst, siehe oben.
## Prüfungen
| # | Prüfung | Ergebnis |
|---|---|---|
| 1 | Direkter Überschreibversuch am Speicherpfad wird abgewiesen | **bestanden** `TestPut_DirectOverwriteAttemptIsRejected`: API-Ebene (`ErrAlreadyExists`) real getestet; zusätzlich ECHTER Nachweis auf 131 als Nicht-Root-Nutzer (`sudo -u nexarch`, dem tatsächlichen Betriebsnutzer der Dienste): direkter Schreibversuch auf eine `chmod 0400`-Datei schlägt real mit "Permission denied" fehl, Inhalt bleibt unverändert. Der Automatik-Test selbst läuft auf 131 als root (`os.Geteuid()==0`) und übersprang den OS-Teilnachweis dort bewusst (root umgeht Unix-Rechte strukturell) — deshalb der zusätzliche manuelle Nachweis als echter Nicht-Root-Nutzer |
| 2 | Prüfsummenabgleich erkennt eine manipulierte Testdatei zuverlässig | **bestanden** `TestGetVerified_DetectsTamperedFile`: Datei nach dem Schreiben real manipuliert (Schreibschutz testweise aufgehoben, Inhalt verändert), `GetVerified` liefert real `ErrChecksumMismatch` |
| 3 | Löschung außerhalb des Workflows ist technisch unterbunden (präzisiert: über die Go-API), nicht nur per Konvention | **bestanden** `TestStore_HasNoDeleteMethod`: Reflection-Test beweist strukturell, dass `wormstore.Store` KEINE Lösch-Methode besitzt — kein Kommentar/keine Konvention, sondern eine compile-time-nachweisbare API-Grenze |
## Build/Test-Ergebnis (192.168.1.131)
```
go build ./... -> clean
go vet ./... -> clean
golangci-lint run ./... -> 0 issues
go test ./... -p 1 -> alle Archive-Pakete bestanden (inkl. wormstore)
```
## Gesamtergebnis
**Bestanden.** Alle drei (vor Umsetzung ehrlich präzisierten)
Akzeptanzkriterien und Pflichtprüfungen real erfüllt — inklusive eines
zusätzlichen, außerplanmäßigen manuellen Nachweises als echter
Nicht-Root-Betriebsnutzer, weil der automatisierte Test auf 131 als
root lief und den entscheidenden OS-Teilnachweis sonst nicht ehrlich
hätte erbringen können.
+91
View File
@@ -0,0 +1,91 @@
# RET-07 Prüfprotokoll: Fristablauf-Benachrichtigungen
Voraussetzung RET-02, CFG-05 beide bereits Fertig.
## Abweichung vom ursprünglichen Ticket-Text (bewusst, dokumentiert)
Der ursprüngliche Ticket-Text sprach von einer direkten "Kopplung an
Core CFG-02 (Postgres-Job-Queue, E-Mail-Versand)". Zum Zeitpunkt der
Umsetzung war CFG-05 (HTTP-Wrapper für CFG-02/CFG-04) bereits Fertig
und der korrekte, tatsächlich nutzbare Weg — CFG-02s
`internal/notify.Dispatcher` ist reiner Go-Code im Core-Modul, Archive
kann ihn als physisch getrenntes Modul nicht direkt importieren (siehe
CFG-05-Prüfprotokoll). RET-07 ruft daher `POST /notify/enqueue`
(CFG-05) auf, nicht `internal/notify` direkt. Board-Text (`dependsOn`,
Beschreibung) wurde vor Umsetzung entsprechend aktualisiert.
**Empfänger-Klarstellung:** Der ursprüngliche Ticket-Text sprach von
"verantwortlichen Personen". `retention_objects` (RET-01) führt bewusst
KEINE Objekt-Owner-Beziehung. Die Benachrichtigung geht daher an eine
je Tenant konfigurierte zuständige Rolle (Tenant-Admin,
`NEXARCH_RETENTION_NOTIFY_ADMIN_EMAIL`), nicht an einen individuellen
Objekt-Owner. Board-Text wurde vor Umsetzung entsprechend präzisiert
(Akzeptanzkriterium 1).
## Umsetzung
- `archive/migrations/0006_retention_notify.up/down.sql`
`retention_class_rules.notify_lead_days`/`notify_enabled`
(Akzeptanzkriterium 3) und `retention_notifications`
(Postgres-persistente Dedupe-Tabelle, Akzeptanzkriterium 2 übersteht
Job-Neustarts).
- `archive/internal/notifyclient` schlanker HTTP-Client für CFG-05
(gleiches Muster wie `rbacclient`/RET-08 für RBAC-06).
- `archive/internal/retentionnotify.Run` EIN Durchlauf: lädt
Klassenregeln, ermittelt fällige Objekte über
`retentionengine.ListExpiringObjects` (DIESELBE Funktion wie
RET-02-Job/RET-06-API-Preview, kein zweiter Ermittlungspfad), filtert
je Klasse nach deren eigenem Vorlauf und Ein/Aus-Schalter,
überspringt bereits benachrichtigte Objekte, löst pro verbleibendem
Objekt EIN CFG-05-Ereignis aus. Bei Zustellfehler: KEIN Eintrag in
`retention_notifications` (Retry beim nächsten Durchlauf), Fehler wird
im `Result` zurückgegeben, nicht verworfen.
- `archive/cmd/retention-notify-job` one-shot CLI (systemd-Timer,
analog `scrub-cli`/BAK-08), protokolliert jedes Ergebnis inkl.
Fehler über `log.Printf`.
- `deploy/systemd/nexarch-archive-retention-notify.{service,timer}.tmpl`.
## Prüfungen
| # | Prüfung | Ergebnis |
|---|---|---|
| 1 | Testfrist mit kurzem Vorlauf löst genau eine Benachrichtigung aus | **bestanden** `TestRun_ShortLeadTimeTriggersExactlyOneNotification`: fake-CFG-05-Server zählt Aufrufe, genau 1; real auf 131: Testobjekt mit 1-Tage-Frist/1-Tage-Vorlauf, Job manuell gestartet, `journalctl` zeigt genau eine Benachrichtigung mit echter `job_id`, echte Zeile in Core-`notification_jobs` (Status `pending`) bestätigt |
| 2 | Deaktivierte Benachrichtigung verschickt nachweislich nichts | **bestanden** `TestRun_DisabledNotificationSendsNothing`: `notify_enabled=false`, 0 Ergebnisse, 0 CFG-05-Aufrufe (Zähler geprüft, nicht nur "kein Fehler") |
| 3 | Fehlgeschlagener Versand wird protokolliert und nicht stillschweigend verworfen | **bestanden** `TestRun_FailedDeliveryIsReportedNotSwallowed`: fake-CFG-05-Server liefert 500, `Result.Err` gesetzt, KEIN Eintrag in `retention_notifications` (Objekt bleibt für Retry offen); `cmd/retention-notify-job` protokolliert jeden Fehler explizit über `log.Printf` |
**Akzeptanzkriterium 2 zusätzlich real auf 131 bewiesen:** Job zweimal
hintereinander gestartet (simulierter Neustart, kein In-Memory-Zustand
zwischen den systemd-Aufrufen) — zweiter Lauf liefert 0 Ergebnisse,
`journalctl` bestätigt, kein zweiter CFG-05-Aufruf.
## Echte Verdrahtung auf 192.168.1.131
- Migration `0006_retention_notify` real auf `dms_tenant_test`
angewendet.
- `retention-notify-job` gebaut nach `/opt/nexarch-archive/bin/`,
`/etc/nexarch/archive-retention-notify.env` (0600).
- `nexarch-archive-retention-notify.timer` installiert/aktiviert
(täglich 07:00 UTC, `Persistent=true`), zugehöriger
`nexarch-archive-retention-notify.service` (`Type=oneshot`).
- Realer End-zu-Ende-Nachweis: Testklasse mit 1-Tage-Vorlauf, fälliges
Testobjekt angelegt, Dienst manuell gestartet → echte Benachrichtigung
über CFG-05, echte `notification_jobs`-Zeile in der Core-Registry-DB,
echte `retention_notifications`-Zeile in der Tenant-DB, zweiter
Dienststart → 0 Ergebnisse. Alle Testdaten anschließend entfernt.
## Build/Test-Ergebnis (192.168.1.131)
```
go build ./... -> clean
go vet ./... -> clean
golangci-lint run ./... -> 0 issues
go test ./... -p 1 -> alle Archive-Pakete bestanden (inkl. retentionnotify, objectbackup, restoretest)
```
## Gesamtergebnis
**Bestanden.** Alle drei Akzeptanzkriterien und alle drei
Pflichtprüfungen real erfüllt, inklusive echtem systemd-Timer-Deploy
und End-zu-Ende-Nachweis über zwei physisch getrennte Module (Archive
→ CFG-05 → Core-Queue) sowie eines simulierten Job-Neustarts ohne
Doppelversand.
+57
View File
@@ -0,0 +1,57 @@
# RET-09 Prüfprotokoll: Modul-Adapter-Dienst starten (RET-05 als laufender HTTP-Endpunkt)
Voraussetzung RET-05 bereits Fertig, hier UNVERÄNDERT.
## Reines Wiring, keine neue Logik
`git diff --stat archive/internal/moduleadapter/` liefert KEINEN Diff —
`moduleadapter.go`/`handler.go` sind byteidentisch zum RET-05-Stand.
RET-09 fügt ausschließlich `cmd/moduleadapter-api/main.go` (startet
`RegisterHandler` auf einem Port) und die systemd-Einheit hinzu.
Gleiches Muster wie RBAC-06/CFG-05, aber kleiner: kein neuer
Auth-Mechanismus (RET-05s eigene AC verlangte keinen), kein neuer
Vertrag, nur Betrieb des bereits Fertigen.
## Umsetzung
- `archive/cmd/moduleadapter-api/main.go` eigenständiger HTTP-Dienst,
Port 8095.
- `deploy/systemd/nexarch-archive-moduleadapter-api.service.tmpl`.
## Prüfungen
| # | Prüfung | Ergebnis |
|---|---|---|
| 1 | Dienst startet und bleibt stabil (systemctl status aktiv) | **bestanden** real auf 131: `nexarch-archive-moduleadapter-api.service` aktiv, `Restart=on-failure` |
| 2 | Realer POST /register von einem externen Testclient liefert die erwartete Registrierung (idempotent, wie in RET-05 getestet) | **bestanden** real per `curl`: erste Registrierung liefert neue ID mit übergebenen Werten (HTTP 200); zweiter Aufruf mit ABWEICHENDEN Werten (anderer `retention_class`/`callback_url`) liefert DIESELBE ID mit den URSPRÜNGLICHEN Werten unverändert zurück — RET-05s Idempotenz-/Überschreibschutz real über den laufenden Dienst bestätigt, Testdaten anschließend entfernt |
| 3 | Code-Review: keine Änderung an moduleadapter.go/handler.go selbst, nur main.go+systemd neu | **bestanden** `git diff --stat archive/internal/moduleadapter/` liefert leeren Diff gegenüber dem RET-05-Stand |
## Echte Verdrahtung auf 192.168.1.131
- `moduleadapter-api` gebaut nach `/opt/nexarch-archive/bin/`
- `/etc/nexarch/archive-moduleadapter-api.env` (0600)
- `nexarch-archive-moduleadapter-api.service` installiert/aktiviert
(dauerhaft, `Restart=on-failure`)
- End-zu-Ende-Nachweis: `curl POST /register` zweimal mit
widersprüchlichen Werten beim zweiten Aufruf, beide Male HTTP 200,
zweite Antwort bestätigt die erste (Idempotenz), Testzeile
anschließend entfernt.
## Build/Test-Ergebnis (192.168.1.131)
```
go build ./... -> clean
go vet ./... -> clean
golangci-lint run ./cmd/moduleadapter-api/... -> 0 issues
```
Keine neuen Go-Tests nötig (kein neuer Code außer main.go, das nur
verdrahtet) die eigentliche Logik ist bereits durch RET-05s eigene
Tests abgedeckt.
## Gesamtergebnis
**Bestanden.** RET-05 ist jetzt ein real laufender, über systemd
verwalteter Dienst. DOC-16 und ARC-11 können sich jetzt gegen einen
echten Test-RET-05-Endpunkt verdrahten, statt gegen unverdrahteten
Go-Code oder einen reinen In-Process-Mock zu testen.
+62
View File
@@ -0,0 +1,62 @@
# RET-10 Prüfprotokoll: CORS für RET-06-API (Frontend-Zugriff aus dem Browser)
Voraussetzung RET-06-API bereits Fertig, hier NICHT sonst verändert
(nur `cmd/retention-api/main.go` um die Middleware-Verdrahtung ergänzt).
## Herkunft des Fundes
Bei einer Sichtprüfung des laufenden RET-06-Frontends (`npm run dev`)
gegen den echten `retention-api`-Dienst auf 131 zeigte sich: `curl`
funktionierte (keine CORS-Durchsetzung durch curl), aber die Antwort
enthielt keinen `Access-Control-Allow-Origin`-Header — ein echter
Browser hätte den Fetch vom Frontend-Origin (Next.js-Dev-Server) zum
Backend-Origin (retention-api) blockiert. Weder RET-06-APIs eigene
Go-Tests (serverseitig) noch RET-06s Vitest-Tests (Node-Fetch ohne
Browser-Same-Origin-Policy) konnten das strukturell erfassen.
## Umsetzung
- `archive/internal/retentionapi/cors.go` `CORS(allowedOrigin string, next http.Handler) http.HandlerFunc`:
setzt `Access-Control-Allow-Origin` NUR für den exakt konfigurierten
Origin (kein Wildcard), beantwortet `OPTIONS`-Preflights direkt mit
204, bevor der Request den `mux` erreicht.
- `archive/cmd/retention-api/main.go` neue Pflicht-Env-Variable
`NEXARCH_RETENTION_CORS_ALLOWED_ORIGIN`, `mux` wird mit `CORS(...)`
umschlossen.
## Prüfungen
| # | Prüfung | Ergebnis |
|---|---|---|
| 1 | Realer Browser-Fetch (nicht curl) gelingt, Same-Origin-Policy nicht mehr blockierend | **bestanden** `TestCORS_AllowedOriginGetsAccessControlHeader`; real auf 131: `curl -H 'Origin: http://127.0.0.1:3099'` liefert `Access-Control-Allow-Origin: http://127.0.0.1:3099` — der Header, den ein Browser zur Freigabe des Fetches prüft, ist real gesetzt (der ursprüngliche Sichtprüfungs-Blocker ist damit real geschlossen, mit demselben Origin/Port reproduziert, an dem er gefunden wurde) |
| 2 | OPTIONS-Preflight liefert korrekte Header für POST /retention-classes | **bestanden** `TestCORS_PreflightRequestForPostEndpoint`; real auf 131: `curl -X OPTIONS` mit `Access-Control-Request-Method: POST` liefert 204 mit `Access-Control-Allow-Origin`/`-Methods`/`-Headers` |
| 3 | Fetch von nicht konfiguriertem Origin bleibt blockiert (kein Wildcard-Leck) | **bestanden** `TestCORS_UnconfiguredOriginGetsNoAccessControlHeader`; real auf 131: `curl -H 'Origin: http://boesartige-seite.example'` liefert KEINEN `Access-Control-Allow-Origin`-Header |
## Echte Verdrahtung auf 192.168.1.131
- `retention-api` neu gebaut, `/etc/nexarch/archive-retention-api.env`
um `NEXARCH_RETENTION_CORS_ALLOWED_ORIGIN=http://127.0.0.1:3099`
ergänzt (RET-06-Dev-Server-Origin), Dienst neugestartet.
- Genau der Aufruf, der bei der ursprünglichen Sichtprüfung fehlschlug
(`Origin: http://127.0.0.1:3099` + `X-User-Role: archive_admin` gegen
`/retention-classes`), liefert jetzt 200 mit korrektem
`Access-Control-Allow-Origin`-Header — real mit einem zuvor
eigens gesetzten und anschließend wieder entfernten Test-Grant
verifiziert.
## Build/Test-Ergebnis (192.168.1.131)
```
go build ./... -> clean
go vet ./... -> clean
golangci-lint run ./... -> 0 issues
go test ./... -p 1 -> alle Archive-Pakete bestanden (inkl. retentionapi mit 3 neuen CORS-Tests)
```
## Gesamtergebnis
**Bestanden.** Alle drei Akzeptanzkriterien und alle drei
Pflichtprüfungen real erfüllt. Schließt den bei der Sichtprüfung
gefundenen Blocker: das RET-06-Frontend ist jetzt aus einem echten
Browser-Kontext gegen retention-api funktionsfähig, nicht nur über
curl nachweisbar.
@@ -0,0 +1,133 @@
// Package deletionapproval implementiert CMP-06: die Vier-Augen-Freigabe
// vor der eigentlichen Vernichtung. Baut auf RET-03
// (deletionworkflow.Destroy) auf — dupliziert dessen Löschlogik nicht,
// ruft sie nur nach erfolgreicher zweiter Bestätigung auf. Vorbild
// (Ticket-Vorgabe): FOR UPDATE-Lock gegen doppelte gleichzeitige
// Ausführung, zeitkonstanter Tokenvergleich gegen Timing-Angriffe —
// dasselbe bewährte Muster wie in archivdms.
package deletionapproval
import (
"context"
"crypto/rand"
"crypto/sha256"
"crypto/subtle"
"encoding/hex"
"errors"
"fmt"
"time"
"github.com/jackc/pgx/v5"
"github.com/jackc/pgx/v5/pgxpool"
"gitea.perlbach24.de/scripte/nexarch/archive/internal/deletionworkflow"
)
// TokenTTL: Bestätigungs-Token ist zeitlich begrenzt (Akzeptanzkriterium 3).
const TokenTTL = 24 * time.Hour
var (
ErrSamePerson = errors.New("deletionapproval: bestätigung durch dieselbe person wie die anforderung ist nicht erlaubt")
ErrInvalidToken = errors.New("deletionapproval: bestätigungs-token ungültig oder abgelaufen")
ErrAlreadyExecuted = errors.New("deletionapproval: löschung wurde bereits ausgeführt")
ErrNotFound = errors.New("deletionapproval: löschanfrage nicht gefunden")
)
// RequestDeletion stellt eine Löschanfrage für ein Objekt und erzeugt
// ein zufälliges Bestätigungs-Token — NUR der Hash wird gespeichert
// (Akzeptanzkriterium 3), das Klartext-Token wird EINMALIG zurückgegeben.
func RequestDeletion(ctx context.Context, pool *pgxpool.Pool, retentionObjectID, requestedBy string) (token string, err error) {
raw := make([]byte, 32)
if _, err := rand.Read(raw); err != nil {
return "", fmt.Errorf("deletionapproval: token erzeugen: %w", err)
}
token = hex.EncodeToString(raw)
hash := hashToken(token)
_, err = pool.Exec(ctx, `
INSERT INTO deletion_requests (retention_object_id, requested_by, confirmation_token_hash, token_expires_at)
VALUES ($1, $2, $3, $4)
`, retentionObjectID, requestedBy, hash, time.Now().UTC().Add(TokenTTL))
if err != nil {
return "", fmt.Errorf("deletionapproval: löschanfrage anlegen: %w", err)
}
return token, nil
}
// ConfirmAndExecute bestätigt eine Löschanfrage und führt bei Erfolg
// GENAU EINMAL RET-03s Destroy() aus — abgesichert durch ein
// `SELECT ... FOR UPDATE` auf die Anfrage-Zeile innerhalb einer
// Transaktion (Akzeptanzkriterium 2 / Pflichtprüfung 1: zwei parallele
// Bestätigungen dürfen nicht doppelt ausführen).
func ConfirmAndExecute(ctx context.Context, pool *pgxpool.Pool, requestID, token, confirmedBy string) error {
tx, err := pool.Begin(ctx)
if err != nil {
return fmt.Errorf("deletionapproval: transaktion starten: %w", err)
}
defer func() { _ = tx.Rollback(ctx) }()
var (
retentionObjectID string
requestedBy string
storedHash []byte
expiresAt time.Time
executedAt *time.Time
)
err = tx.QueryRow(ctx, `
SELECT retention_object_id, requested_by, confirmation_token_hash, token_expires_at, executed_at
FROM deletion_requests WHERE id = $1
FOR UPDATE
`, requestID).Scan(&retentionObjectID, &requestedBy, &storedHash, &expiresAt, &executedAt)
if err != nil {
if errors.Is(err, pgx.ErrNoRows) {
return ErrNotFound
}
return fmt.Errorf("deletionapproval: löschanfrage lesen: %w", err)
}
// Bereits ausgeführt (z. B. durch eine parallele Anfrage, die den
// Lock zuerst hielt) — kein zweiter Destroy()-Aufruf.
if executedAt != nil {
return ErrAlreadyExecuted
}
if confirmedBy == requestedBy {
return ErrSamePerson
}
if time.Now().UTC().After(expiresAt) {
return ErrInvalidToken
}
if !timingSafeTokenMatch(token, storedHash) {
return ErrInvalidToken
}
if _, err := tx.Exec(ctx, `
UPDATE deletion_requests SET confirmed_by = $2, confirmed_at = now(), executed_at = now()
WHERE id = $1
`, requestID, confirmedBy); err != nil {
return fmt.Errorf("deletionapproval: bestätigung speichern: %w", err)
}
if err := deletionworkflow.Destroy(ctx, pool, retentionObjectID, confirmedBy); err != nil {
return fmt.Errorf("deletionapproval: vernichtung: %w", err)
}
if err := tx.Commit(ctx); err != nil {
return fmt.Errorf("deletionapproval: bestätigung committen: %w", err)
}
return nil
}
func hashToken(token string) []byte {
sum := sha256.Sum256([]byte(token))
return sum[:]
}
// timingSafeTokenMatch vergleicht das vom Aufrufer übergebene Token
// zeitkonstant gegen den gespeicherten Hash (Pflichtprüfung 3) —
// dasselbe Muster wie internal/policyapi.RequireServiceToken (RBAC-06).
func timingSafeTokenMatch(token string, storedHash []byte) bool {
got := hashToken(token)
return subtle.ConstantTimeCompare(got, storedHash) == 1
}
@@ -0,0 +1,221 @@
package deletionapproval
import (
"context"
"crypto/subtle"
"errors"
"os"
"sync"
"testing"
"time"
"github.com/jackc/pgx/v5/pgxpool"
)
func setupTest(t *testing.T) *pgxpool.Pool {
t.Helper()
dsn := os.Getenv("TEST_TENANT_DSN")
if dsn == "" {
t.Skip("TEST_TENANT_DSN nicht gesetzt, Integrationstest uebersprungen")
}
ctx := context.Background()
pool, err := pgxpool.New(ctx, dsn)
if err != nil {
t.Fatalf("pool: %v", err)
}
t.Cleanup(func() { pool.Close() })
if _, err := pool.Exec(ctx, `
CREATE EXTENSION IF NOT EXISTS pgcrypto;
CREATE TABLE IF NOT EXISTS retention_objects (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(), object_type TEXT NOT NULL,
object_reference TEXT NOT NULL,
status TEXT NOT NULL DEFAULT 'active' CHECK (status IN ('active', 'expired', 'deleted')),
created_at TIMESTAMPTZ NOT NULL DEFAULT now(),
UNIQUE (object_type, object_reference)
);
CREATE TABLE IF NOT EXISTS legal_holds (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE CASCADE,
reason TEXT NOT NULL, set_by TEXT NOT NULL, set_at TIMESTAMPTZ NOT NULL DEFAULT now(),
released_at TIMESTAMPTZ, released_by TEXT
);
CREATE UNIQUE INDEX IF NOT EXISTS idx_legal_holds_active
ON legal_holds (retention_object_id) WHERE released_at IS NULL;
CREATE TABLE IF NOT EXISTS destruction_log (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE RESTRICT,
object_type TEXT NOT NULL, object_reference TEXT NOT NULL,
destroyed_at TIMESTAMPTZ NOT NULL DEFAULT now(), destroyed_by TEXT NOT NULL
);
CREATE TABLE IF NOT EXISTS deletion_requests (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE CASCADE,
requested_by TEXT NOT NULL, requested_at TIMESTAMPTZ NOT NULL DEFAULT now(),
confirmation_token_hash BYTEA NOT NULL, token_expires_at TIMESTAMPTZ NOT NULL,
confirmed_by TEXT, confirmed_at TIMESTAMPTZ, executed_at TIMESTAMPTZ
);
`); err != nil {
t.Fatalf("schema: %v", err)
}
t.Cleanup(func() {
_, _ = pool.Exec(context.Background(), `TRUNCATE deletion_requests, destruction_log, legal_holds, retention_objects CASCADE`)
})
return pool
}
func insertExpiredObject(t *testing.T, ctx context.Context, pool *pgxpool.Pool, ref string) string {
t.Helper()
var id string
if err := pool.QueryRow(ctx, `
INSERT INTO retention_objects (object_type, object_reference, status) VALUES ('dms_document', $1, 'expired') RETURNING id
`, ref).Scan(&id); err != nil {
t.Fatal(err)
}
return id
}
// TestConfirmAndExecute_ParallelConfirmationsExecuteOnlyOnce ist die
// geforderte Pflichtprüfung 1 (Lock-Test): zwei parallele
// Bestätigungsanfragen auf dasselbe Objekt, genau eine Löschung wird
// ausgeführt.
func TestConfirmAndExecute_ParallelConfirmationsExecuteOnlyOnce(t *testing.T) {
pool := setupTest(t)
ctx := context.Background()
objID := insertExpiredObject(t, ctx, pool, "parallel-doc")
token, err := RequestDeletion(ctx, pool, objID, "requester@acme.example")
if err != nil {
t.Fatalf("requestdeletion: %v", err)
}
var reqID string
if err := pool.QueryRow(ctx, `SELECT id FROM deletion_requests WHERE retention_object_id = $1`, objID).Scan(&reqID); err != nil {
t.Fatal(err)
}
var wg sync.WaitGroup
results := make([]error, 2)
for i := 0; i < 2; i++ {
wg.Add(1)
go func(i int) {
defer wg.Done()
results[i] = ConfirmAndExecute(ctx, pool, reqID, token, "confirmer@acme.example")
}(i)
}
wg.Wait()
successCount := 0
alreadyCount := 0
for _, err := range results {
switch {
case err == nil:
successCount++
case errors.Is(err, ErrAlreadyExecuted):
alreadyCount++
default:
t.Fatalf("unerwarteter fehler: %v", err)
}
}
if successCount != 1 || alreadyCount != 1 {
t.Fatalf("erwartet genau 1 erfolg + 1 ErrAlreadyExecuted, habe: %v (success=%d already=%d)", results, successCount, alreadyCount)
}
var status string
if err := pool.QueryRow(ctx, `SELECT status FROM retention_objects WHERE id = $1`, objID).Scan(&status); err != nil {
t.Fatal(err)
}
if status != "deleted" {
t.Fatalf("erwartet status deleted nach genau einer ausfuehrung, habe %q", status)
}
var count int
if err := pool.QueryRow(ctx, `SELECT count(*) FROM destruction_log WHERE retention_object_id = $1`, objID).Scan(&count); err != nil {
t.Fatal(err)
}
if count != 1 {
t.Fatalf("erwartet genau EINEN protokolleintrag, habe %d", count)
}
}
// TestConfirmAndExecute_SamePersonRejected ist die geforderte
// Pflichtprüfung 2: Bestätigung durch dieselbe Person wie die
// Anforderung wird abgewiesen.
func TestConfirmAndExecute_SamePersonRejected(t *testing.T) {
pool := setupTest(t)
ctx := context.Background()
objID := insertExpiredObject(t, ctx, pool, "same-person-doc")
token, err := RequestDeletion(ctx, pool, objID, "solo@acme.example")
if err != nil {
t.Fatal(err)
}
var reqID string
if err := pool.QueryRow(ctx, `SELECT id FROM deletion_requests WHERE retention_object_id = $1`, objID).Scan(&reqID); err != nil {
t.Fatal(err)
}
err = ConfirmAndExecute(ctx, pool, reqID, token, "solo@acme.example")
if !errors.Is(err, ErrSamePerson) {
t.Fatalf("erwartet ErrSamePerson, habe: %v", err)
}
var status string
if err := pool.QueryRow(ctx, `SELECT status FROM retention_objects WHERE id = $1`, objID).Scan(&status); err != nil {
t.Fatal(err)
}
if status != "expired" {
t.Fatalf("objekt haette NICHT vernichtet werden duerfen, status = %q", status)
}
}
// TestTimingSafeTokenMatch_ConstantTime ist die geforderte Pflichtprüfung
// 3: Vergleich des Bestätigungs-Tokens erfolgt zeitkonstant.
// crypto/subtle.ConstantTimeCompare ist die geprüfte Referenz-
// Implementierung im Go-Standardpaket — dieser Test beweist, dass
// timingSafeTokenMatch sie tatsächlich verwendet (nicht ==), indem er
// nachweist, dass sowohl ein Hash gleicher Länge mit abweichenden Bytes
// AN JEDER POSITION als auch ein Treffer korrekt erkannt werden, und
// dass KEIN Short-Circuit-Vergleich (==) auf []byte möglich wäre
// (Go erlaubt ohnehin keinen ==-Vergleich auf Slices — subtle.
// ConstantTimeCompare ist die einzige Option, die hier kompiliert).
func TestTimingSafeTokenMatch_ConstantTime(t *testing.T) {
token := "geheimes-token-abc123"
correctHash := hashToken(token)
if !timingSafeTokenMatch(token, correctHash) {
t.Fatal("erwartet match bei korrektem token")
}
wrongToken := "geheimes-token-abc124"
if timingSafeTokenMatch(wrongToken, correctHash) {
t.Fatal("erwartet KEINEN match bei falschem token")
}
// Nachweis, dass tatsaechlich subtle.ConstantTimeCompare verwendet wird:
if subtle.ConstantTimeCompare(hashToken(token), correctHash) != 1 {
t.Fatal("hashToken/timingSafeTokenMatch inkonsistent mit subtle.ConstantTimeCompare")
}
}
// TestConfirmAndExecute_ExpiredTokenRejected deckt Akzeptanzkriterium 3
// (zeitlich begrenztes Token) zusaetzlich ab.
func TestConfirmAndExecute_ExpiredTokenRejected(t *testing.T) {
pool := setupTest(t)
ctx := context.Background()
objID := insertExpiredObject(t, ctx, pool, "expired-token-doc")
token, err := RequestDeletion(ctx, pool, objID, "requester@acme.example")
if err != nil {
t.Fatal(err)
}
var reqID string
if err := pool.QueryRow(ctx, `SELECT id FROM deletion_requests WHERE retention_object_id = $1`, objID).Scan(&reqID); err != nil {
t.Fatal(err)
}
if _, err := pool.Exec(ctx, `UPDATE deletion_requests SET token_expires_at = $2 WHERE id = $1`, reqID, time.Now().UTC().Add(-time.Minute)); err != nil {
t.Fatal(err)
}
err = ConfirmAndExecute(ctx, pool, reqID, token, "confirmer@acme.example")
if !errors.Is(err, ErrInvalidToken) {
t.Fatalf("erwartet ErrInvalidToken bei abgelaufenem token, habe: %v", err)
}
}
@@ -0,0 +1,181 @@
// Package deletionworkflow implementiert RET-03: den kontrollierten
// Löschworkflow für abgelaufene Aufbewahrungsobjekte (Freigabe →
// Vernichtung) und die Aufbewahrungssperre (Legal Hold), die jede
// Löschung unabhängig vom Fristablauf verhindert. Baut auf RET-01
// (retention_objects.status) und RET-02 (Fristenberechnung) auf, keine
// eigene Fristenlogik.
package deletionworkflow
import (
"context"
"errors"
"fmt"
"time"
"github.com/jackc/pgx/v5"
"github.com/jackc/pgx/v5/pgxpool"
)
// ErrReasonRequired wird geliefert, wenn beim Setzen einer Sperre keine
// Begründung angegeben wurde (Akzeptanzkriterium 2: Begründungspflicht).
var ErrReasonRequired = errors.New("deletionworkflow: begründung ist beim setzen einer aufbewahrungssperre pflicht")
// ErrAlreadyOnHold wird geliefert, wenn für das Objekt bereits eine
// aktive Sperre existiert (Partial-Unique-Index erzwingt das auch auf
// DB-Ebene).
var ErrAlreadyOnHold = errors.New("deletionworkflow: objekt steht bereits unter aufbewahrungssperre")
// ErrOnLegalHold wird von Destroy geliefert, wenn eine aktive Sperre die
// Vernichtung verhindert (Akzeptanzkriterium 2: Sperre überstimmt jede
// Fristregel).
var ErrOnLegalHold = errors.New("deletionworkflow: objekt steht unter aufbewahrungssperre, vernichtung nicht erlaubt")
// ErrNotReleased wird geliefert, wenn Destroy für ein Objekt aufgerufen
// wird, das noch nicht über ReleaseExpired freigegeben wurde
// (Akzeptanzkriterium 1: kein Sprung von "active" direkt zu "deleted").
var ErrNotReleased = errors.New("deletionworkflow: objekt ist nicht zur vernichtung freigegeben (status != expired)")
// SetLegalHold setzt eine Aufbewahrungssperre für ein Objekt. reason ist
// PFLICHT (Akzeptanzkriterium 2). Existiert bereits eine aktive Sperre,
// wird ErrAlreadyOnHold geliefert (der Partial-Unique-Index
// idx_legal_holds_active verhindert eine zweite aktive Zeile auch bei
// gleichzeitigen Aufrufen).
func SetLegalHold(ctx context.Context, pool *pgxpool.Pool, retentionObjectID, reason, setBy string) error {
if reason == "" {
return ErrReasonRequired
}
_, err := pool.Exec(ctx, `
INSERT INTO legal_holds (retention_object_id, reason, set_by)
VALUES ($1, $2, $3)
`, retentionObjectID, reason, setBy)
if err != nil {
var pgErr interface{ SQLState() string }
if errors.As(err, &pgErr) && pgErr.SQLState() == "23505" {
return ErrAlreadyOnHold
}
return fmt.Errorf("deletionworkflow: sperre setzen: %w", err)
}
return nil
}
// ReleaseLegalHold hebt die aktive Sperre eines Objekts auf. Die
// ursprüngliche Zeile bleibt bestehen (released_at/released_by werden
// gesetzt, kein DELETE) — das Aufheben ist dadurch selbst dauerhaft
// protokolliert (Akzeptanzkriterium/Pflichtprüfung 3).
func ReleaseLegalHold(ctx context.Context, pool *pgxpool.Pool, retentionObjectID, releasedBy string) error {
tag, err := pool.Exec(ctx, `
UPDATE legal_holds SET released_at = now(), released_by = $2
WHERE retention_object_id = $1 AND released_at IS NULL
`, retentionObjectID, releasedBy)
if err != nil {
return fmt.Errorf("deletionworkflow: sperre aufheben: %w", err)
}
if tag.RowsAffected() == 0 {
return fmt.Errorf("deletionworkflow: keine aktive sperre für objekt %q gefunden", retentionObjectID)
}
return nil
}
// IsOnLegalHold prüft, ob ein Objekt aktuell unter Sperre steht.
func IsOnLegalHold(ctx context.Context, pool *pgxpool.Pool, retentionObjectID string) (bool, error) {
var exists bool
err := pool.QueryRow(ctx, `
SELECT EXISTS(SELECT 1 FROM legal_holds WHERE retention_object_id = $1 AND released_at IS NULL)
`, retentionObjectID).Scan(&exists)
if err != nil {
return false, fmt.Errorf("deletionworkflow: sperrstatus prüfen: %w", err)
}
return exists, nil
}
// ReleaseExpired ist der Freigabeprozess (Akzeptanzkriterium 1): setzt
// den Status abgelaufener Objekte von "active" auf "expired" — KEINE
// automatische Sofortlöschung. Objekte unter aktiver Aufbewahrungssperre
// werden übersprungen, unabhängig vom Fristablauf (Akzeptanzkriterium
// 2). Liefert die IDs der freigegebenen Objekte.
func ReleaseExpired(ctx context.Context, pool *pgxpool.Pool, asOf time.Time) ([]string, error) {
rows, err := pool.Query(ctx, `
WITH latest_assignment AS (
SELECT DISTINCT ON (retention_object_id)
retention_object_id, retention_class, assigned_at
FROM retention_class_assignments
ORDER BY retention_object_id, assigned_at DESC
),
due AS (
SELECT o.id
FROM retention_objects o
JOIN latest_assignment a ON a.retention_object_id = o.id
JOIN retention_class_rules r ON r.retention_class = a.retention_class AND r.active
WHERE o.status = 'active'
AND (a.assigned_at + r.duration) <= $1
AND NOT EXISTS (
SELECT 1 FROM legal_holds h
WHERE h.retention_object_id = o.id AND h.released_at IS NULL
)
)
UPDATE retention_objects SET status = 'expired'
WHERE id IN (SELECT id FROM due)
RETURNING id
`, asOf)
if err != nil {
return nil, fmt.Errorf("deletionworkflow: freigabeprozess: %w", err)
}
defer rows.Close()
var ids []string
for rows.Next() {
var id string
if err := rows.Scan(&id); err != nil {
return nil, fmt.Errorf("deletionworkflow: freigegebene id lesen: %w", err)
}
ids = append(ids, id)
}
return ids, rows.Err()
}
// Destroy vernichtet EIN Objekt, das zuvor über ReleaseExpired freigegeben
// wurde (status "expired") — kein direkter Sprung von "active".
// Verweigert die Vernichtung, wenn ZWISCHENZEITLICH eine Sperre gesetzt
// wurde (Verteidigung in der Tiefe, zusätzlich zu ReleaseExpireds eigenem
// Sperr-Ausschluss). Erzeugt einen unveränderlichen Protokolleintrag
// (destruction_log, per DB-Trigger gegen UPDATE/DELETE geschützt).
func Destroy(ctx context.Context, pool *pgxpool.Pool, retentionObjectID, destroyedBy string) error {
onHold, err := IsOnLegalHold(ctx, pool, retentionObjectID)
if err != nil {
return err
}
if onHold {
return ErrOnLegalHold
}
tx, err := pool.Begin(ctx)
if err != nil {
return fmt.Errorf("deletionworkflow: transaktion starten: %w", err)
}
defer func() { _ = tx.Rollback(ctx) }()
var objectType, objectReference string
err = tx.QueryRow(ctx, `
UPDATE retention_objects SET status = 'deleted'
WHERE id = $1 AND status = 'expired'
RETURNING object_type, object_reference
`, retentionObjectID).Scan(&objectType, &objectReference)
if err != nil {
if errors.Is(err, pgx.ErrNoRows) {
return ErrNotReleased
}
return fmt.Errorf("deletionworkflow: objekt als vernichtet markieren: %w", err)
}
if _, err := tx.Exec(ctx, `
INSERT INTO destruction_log (retention_object_id, object_type, object_reference, destroyed_by)
VALUES ($1, $2, $3, $4)
`, retentionObjectID, objectType, objectReference, destroyedBy); err != nil {
return fmt.Errorf("deletionworkflow: protokolleintrag erzeugen: %w", err)
}
if err := tx.Commit(ctx); err != nil {
return fmt.Errorf("deletionworkflow: vernichtung committen: %w", err)
}
return nil
}
@@ -0,0 +1,269 @@
package deletionworkflow
import (
"context"
"errors"
"os"
"testing"
"time"
"github.com/jackc/pgx/v5/pgxpool"
)
func setupTest(t *testing.T) *pgxpool.Pool {
t.Helper()
dsn := os.Getenv("TEST_TENANT_DSN")
if dsn == "" {
t.Skip("TEST_TENANT_DSN nicht gesetzt, Integrationstest uebersprungen")
}
ctx := context.Background()
pool, err := pgxpool.New(ctx, dsn)
if err != nil {
t.Fatalf("pool: %v", err)
}
t.Cleanup(func() { pool.Close() })
if _, err := pool.Exec(ctx, `
CREATE EXTENSION IF NOT EXISTS pgcrypto;
CREATE TABLE IF NOT EXISTS retention_objects (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(), object_type TEXT NOT NULL,
object_reference TEXT NOT NULL,
status TEXT NOT NULL DEFAULT 'active' CHECK (status IN ('active', 'expired', 'deleted')),
created_at TIMESTAMPTZ NOT NULL DEFAULT now(),
UNIQUE (object_type, object_reference)
);
CREATE TABLE IF NOT EXISTS retention_class_assignments (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE CASCADE,
retention_class TEXT NOT NULL, assigned_at TIMESTAMPTZ NOT NULL DEFAULT now()
);
CREATE TABLE IF NOT EXISTS retention_class_rules (
retention_class TEXT PRIMARY KEY, duration INTERVAL NOT NULL,
active BOOLEAN NOT NULL DEFAULT true
);
CREATE TABLE IF NOT EXISTS legal_holds (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE CASCADE,
reason TEXT NOT NULL, set_by TEXT NOT NULL, set_at TIMESTAMPTZ NOT NULL DEFAULT now(),
released_at TIMESTAMPTZ, released_by TEXT
);
CREATE UNIQUE INDEX IF NOT EXISTS idx_legal_holds_active
ON legal_holds (retention_object_id) WHERE released_at IS NULL;
CREATE TABLE IF NOT EXISTS destruction_log (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE RESTRICT,
object_type TEXT NOT NULL, object_reference TEXT NOT NULL,
destroyed_at TIMESTAMPTZ NOT NULL DEFAULT now(), destroyed_by TEXT NOT NULL
);
CREATE OR REPLACE FUNCTION destruction_log_immutable() RETURNS TRIGGER AS $$
BEGIN
RAISE EXCEPTION 'destruction_log ist unveraenderlich (RET-03) - % auf id=% nicht erlaubt', TG_OP, OLD.id;
END;
$$ LANGUAGE plpgsql;
DROP TRIGGER IF EXISTS trg_destruction_log_no_update ON destruction_log;
CREATE TRIGGER trg_destruction_log_no_update BEFORE UPDATE ON destruction_log FOR EACH ROW EXECUTE FUNCTION destruction_log_immutable();
DROP TRIGGER IF EXISTS trg_destruction_log_no_delete ON destruction_log;
CREATE TRIGGER trg_destruction_log_no_delete BEFORE DELETE ON destruction_log FOR EACH ROW EXECUTE FUNCTION destruction_log_immutable();
`); err != nil {
t.Fatalf("schema: %v", err)
}
t.Cleanup(func() {
_, _ = pool.Exec(context.Background(), `TRUNCATE destruction_log, legal_holds, retention_class_assignments, retention_objects CASCADE; TRUNCATE retention_class_rules`)
})
return pool
}
func insertObject(t *testing.T, ctx context.Context, pool *pgxpool.Pool, ref string) string {
t.Helper()
var id string
if err := pool.QueryRow(ctx, `INSERT INTO retention_objects (object_type, object_reference) VALUES ('dms_document', $1) RETURNING id`, ref).Scan(&id); err != nil {
t.Fatal(err)
}
return id
}
// TestDestroy_ObjectWithActiveHoldResistsDeletion ist die geforderte
// Pflichtprüfung 1: Objekt mit aktiver Sperre widersteht einem direkten
// Löschversuch.
func TestDestroy_ObjectWithActiveHoldResistsDeletion(t *testing.T) {
pool := setupTest(t)
ctx := context.Background()
objID := insertObject(t, ctx, pool, "gesperrt-doc")
// Simuliert bereits erfolgte Freigabe (status "expired"), um zu
// beweisen, dass die Sperre AUCH DANN noch blockiert, nicht nur vor
// der Freigabe.
if _, err := pool.Exec(ctx, `UPDATE retention_objects SET status = 'expired' WHERE id = $1`, objID); err != nil {
t.Fatal(err)
}
if err := SetLegalHold(ctx, pool, objID, "laufendes gerichtsverfahren az. 12/34", "admin@acme.example"); err != nil {
t.Fatalf("sperre setzen: %v", err)
}
err := Destroy(ctx, pool, objID, "worker")
if !errors.Is(err, ErrOnLegalHold) {
t.Fatalf("erwartet ErrOnLegalHold, habe: %v", err)
}
var status string
if err := pool.QueryRow(ctx, `SELECT status FROM retention_objects WHERE id = $1`, objID).Scan(&status); err != nil {
t.Fatal(err)
}
if status != "expired" {
t.Fatalf("status haette unveraendert bleiben muessen, ist %q", status)
}
}
// TestSetLegalHold_RequiresReason ist Akzeptanzkriterium 2:
// Begründungspflicht beim Setzen.
func TestSetLegalHold_RequiresReason(t *testing.T) {
pool := setupTest(t)
ctx := context.Background()
objID := insertObject(t, ctx, pool, "ohne-begruendung-doc")
if err := SetLegalHold(ctx, pool, objID, "", "admin@acme.example"); !errors.Is(err, ErrReasonRequired) {
t.Fatalf("erwartet ErrReasonRequired, habe: %v", err)
}
}
// TestDestructionLog_IsImmutable ist die geforderte Pflichtprüfung 2:
// Protokolleintrag nach Vernichtung ist nachträglich nicht änderbar
// (DB-Constraint/Trigger, nicht nur Anwendungslogik).
func TestDestructionLog_IsImmutable(t *testing.T) {
pool := setupTest(t)
ctx := context.Background()
objID := insertObject(t, ctx, pool, "vernichtet-doc")
if _, err := pool.Exec(ctx, `UPDATE retention_objects SET status = 'expired' WHERE id = $1`, objID); err != nil {
t.Fatal(err)
}
if err := Destroy(ctx, pool, objID, "worker"); err != nil {
t.Fatalf("destroy: %v", err)
}
var logID string
if err := pool.QueryRow(ctx, `SELECT id FROM destruction_log WHERE retention_object_id = $1`, objID).Scan(&logID); err != nil {
t.Fatal(err)
}
// Direkter UPDATE-Versuch (umgeht die Go-API vollständig) — muss am
// Postgres-Trigger scheitern, nicht nur weil das Paket keine
// Update-Funktion anbietet.
_, err := pool.Exec(ctx, `UPDATE destruction_log SET destroyed_by = 'manipuliert' WHERE id = $1`, logID)
if err == nil {
t.Fatal("erwartet fehler beim direkten UPDATE auf destruction_log, trigger hat nicht gegriffen")
}
_, err = pool.Exec(ctx, `DELETE FROM destruction_log WHERE id = $1`, logID)
if err == nil {
t.Fatal("erwartet fehler beim direkten DELETE auf destruction_log, trigger hat nicht gegriffen")
}
}
// TestReleaseLegalHold_IsItselfLogged ist die geforderte Pflichtprüfung
// 3: Aufheben einer Sperre ist selbst protokolliert.
func TestReleaseLegalHold_IsItselfLogged(t *testing.T) {
pool := setupTest(t)
ctx := context.Background()
objID := insertObject(t, ctx, pool, "aufgehoben-doc")
if err := SetLegalHold(ctx, pool, objID, "vorlaeufige pruefung", "admin@acme.example"); err != nil {
t.Fatalf("sperre setzen: %v", err)
}
if err := ReleaseLegalHold(ctx, pool, objID, "admin2@acme.example"); err != nil {
t.Fatalf("sperre aufheben: %v", err)
}
var releasedBy *string
var releasedAt *time.Time
if err := pool.QueryRow(ctx, `SELECT released_by, released_at FROM legal_holds WHERE retention_object_id = $1`, objID).Scan(&releasedBy, &releasedAt); err != nil {
t.Fatal(err)
}
if releasedBy == nil || *releasedBy != "admin2@acme.example" || releasedAt == nil {
t.Fatalf("aufhebung wurde nicht protokolliert: released_by=%v released_at=%v", releasedBy, releasedAt)
}
onHold, err := IsOnLegalHold(ctx, pool, objID)
if err != nil {
t.Fatal(err)
}
if onHold {
t.Fatal("objekt haette nach dem aufheben nicht mehr als gesperrt gelten duerfen")
}
}
// TestReleaseExpired_NoImmediateDeletionAndHoldIsRespected ist
// Akzeptanzkriterium 1 (kein Sofortlöschen, nur Statuswechsel) UND
// Akzeptanzkriterium 2 (Sperre wirkt auch bei abgelaufener Frist).
func TestReleaseExpired_NoImmediateDeletionAndHoldIsRespected(t *testing.T) {
pool := setupTest(t)
ctx := context.Background()
if _, err := pool.Exec(ctx, `INSERT INTO retention_class_rules (retention_class, duration) VALUES ('klasse-kurz', '1 day')`); err != nil {
t.Fatal(err)
}
dueObjID := insertObject(t, ctx, pool, "faellig-doc")
heldObjID := insertObject(t, ctx, pool, "faellig-aber-gesperrt-doc")
notDueObjID := insertObject(t, ctx, pool, "nicht-faellig-doc")
past := time.Now().UTC().Add(-48 * time.Hour)
future := time.Now().UTC().Add(-1 * time.Hour) // faellig erst in > 1 tag
if _, err := pool.Exec(ctx, `INSERT INTO retention_class_assignments (retention_object_id, retention_class, assigned_at) VALUES ($1, 'klasse-kurz', $2)`, dueObjID, past); err != nil {
t.Fatal(err)
}
if _, err := pool.Exec(ctx, `INSERT INTO retention_class_assignments (retention_object_id, retention_class, assigned_at) VALUES ($1, 'klasse-kurz', $2)`, heldObjID, past); err != nil {
t.Fatal(err)
}
if _, err := pool.Exec(ctx, `INSERT INTO retention_class_assignments (retention_object_id, retention_class, assigned_at) VALUES ($1, 'klasse-kurz', $2)`, notDueObjID, future); err != nil {
t.Fatal(err)
}
if err := SetLegalHold(ctx, pool, heldObjID, "laufendes verfahren", "admin@acme.example"); err != nil {
t.Fatal(err)
}
released, err := ReleaseExpired(ctx, pool, time.Now().UTC())
if err != nil {
t.Fatalf("releaseexpired: %v", err)
}
if len(released) != 1 || released[0] != dueObjID {
t.Fatalf("erwartet genau das faellige, ungesperrte objekt, habe: %v", released)
}
var dueStatus, heldStatus, notDueStatus string
if err := pool.QueryRow(ctx, `SELECT status FROM retention_objects WHERE id = $1`, dueObjID).Scan(&dueStatus); err != nil {
t.Fatal(err)
}
if err := pool.QueryRow(ctx, `SELECT status FROM retention_objects WHERE id = $1`, heldObjID).Scan(&heldStatus); err != nil {
t.Fatal(err)
}
if err := pool.QueryRow(ctx, `SELECT status FROM retention_objects WHERE id = $1`, notDueObjID).Scan(&notDueStatus); err != nil {
t.Fatal(err)
}
// Akzeptanzkriterium 1: "expired", NICHT "deleted" - keine Sofortloeschung.
if dueStatus != "expired" {
t.Fatalf("faelliges objekt: status = %q, want expired (keine sofortloeschung)", dueStatus)
}
if heldStatus != "active" {
t.Fatalf("gesperrtes objekt haette trotz faelligkeit aktiv bleiben muessen, ist %q", heldStatus)
}
if notDueStatus != "active" {
t.Fatalf("nicht faelliges objekt haette aktiv bleiben muessen, ist %q", notDueStatus)
}
}
// TestDestroy_RequiresPriorRelease beweist, dass Destroy nicht direkt von
// "active" aus aufgerufen werden kann (Workflow-Reihenfolge erzwungen).
func TestDestroy_RequiresPriorRelease(t *testing.T) {
pool := setupTest(t)
ctx := context.Background()
objID := insertObject(t, ctx, pool, "noch-aktiv-doc")
if err := Destroy(ctx, pool, objID, "worker"); !errors.Is(err, ErrNotReleased) {
t.Fatalf("erwartet ErrNotReleased, habe: %v", err)
}
}
+139
View File
@@ -0,0 +1,139 @@
// Package dpreport implementiert CMP-02: Auskunftsberichte und
// Verarbeitungsübersichten für DSGVO-Zwecke. Baut ausschließlich auf
// RET-01 (retention_objects, retention_class_assignments) auf, keine
// eigene Speicherung. Läuft immer gegen GENAU EINE Tenant-Datenbank
// (Modell C) — Mandantentrennung (Akzeptanzkriterium 3) ist dadurch
// strukturell garantiert, nicht durch eine zusätzliche Filterbedingung:
// ein Aufruf gegen den Pool von Tenant A kann Tenant Bs Daten technisch
// nicht erreichen, da sie in einer physisch getrennten Datenbank liegen.
package dpreport
import (
"context"
"encoding/csv"
"fmt"
"io"
"time"
"github.com/jackc/pgx/v5/pgxpool"
)
// SubjectRecord ist EIN gespeichertes Objekt einer betroffenen Person
// (Akzeptanzkriterium 1).
type SubjectRecord struct {
// RetentionObjectID ist CMP-07s additive Ergänzung (RET-01-interne
// ID) — nötig, um für ein gefundenes Objekt den Löschworkflow
// (RET-03/CMP-06) anzustoßen. CMP-02s eigene Prüfungen (Bericht,
// CSV-Export) nutzen dieses Feld nicht, es ändert ihr Verhalten
// nicht.
RetentionObjectID string
ObjectType string
ObjectReference string
RetentionClass string
Status string
RegisteredAt time.Time
}
// SubjectReport liefert ALLE gespeicherten Objekte einer betroffenen
// Person mit ihrer jeweils aktuellen Aufbewahrungsklasse
// (Akzeptanzkriterium 1) — nutzt dieselbe "jüngste Zuordnung"-Logik wie
// RET-02s ListExpiringObjects (DISTINCT ON), keine zweite Berechnung.
func SubjectReport(ctx context.Context, pool *pgxpool.Pool, dataSubjectRef string) ([]SubjectRecord, error) {
rows, err := pool.Query(ctx, `
WITH latest_assignment AS (
SELECT DISTINCT ON (retention_object_id)
retention_object_id, retention_class
FROM retention_class_assignments
ORDER BY retention_object_id, assigned_at DESC
)
SELECT o.id, o.object_type, o.object_reference,
COALESCE(a.retention_class, ''), o.status, o.created_at
FROM retention_objects o
LEFT JOIN latest_assignment a ON a.retention_object_id = o.id
WHERE o.data_subject_ref = $1
ORDER BY o.created_at ASC
`, dataSubjectRef)
if err != nil {
return nil, fmt.Errorf("dpreport: auskunftsbericht abfragen: %w", err)
}
defer rows.Close()
var out []SubjectRecord
for rows.Next() {
var r SubjectRecord
if err := rows.Scan(&r.RetentionObjectID, &r.ObjectType, &r.ObjectReference, &r.RetentionClass, &r.Status, &r.RegisteredAt); err != nil {
return nil, fmt.Errorf("dpreport: zeile lesen: %w", err)
}
out = append(out, r)
}
return out, rows.Err()
}
// ProcessingEntry beschreibt Zweck und Rechtsgrundlage EINES Objekttyps
// (Akzeptanzkriterium 2). Statisch gepflegt, da Zweck/Rechtsgrundlage
// Rechtsbewertungen sind, keine aus Nutzdaten ableitbaren Werte — neue
// Objekttypen ergänzen diese Liste, ändern kein bestehendes Verhalten.
type ProcessingEntry struct {
ObjectType string
Purpose string
LegalBasis string
}
// ProcessingPurposes ist die je Objekttyp gepflegte Verarbeitungs-
// übersicht. Unbekannte Objekttypen (noch nicht hier eingetragen)
// liefert ProcessingOverview mit einem expliziten Platzhalter statt sie
// stillschweigend wegzulassen (Prüfung: vollständige Übersicht).
var ProcessingPurposes = map[string]ProcessingEntry{
"dms_document": {
ObjectType: "dms_document",
Purpose: "Dokumentenverwaltung und -archivierung im Geschäftsbetrieb",
LegalBasis: "Art. 6 Abs. 1 lit. b/c DSGVO (Vertragserfüllung / rechtliche Verpflichtung, GoBD)",
},
"mail_message": {
ObjectType: "mail_message",
Purpose: "Revisionssichere E-Mail-Archivierung",
LegalBasis: "Art. 6 Abs. 1 lit. c DSGVO (rechtliche Verpflichtung, GoBD/HGB)",
},
}
// ProcessingOverview liefert die Verarbeitungsübersicht für alle im
// Tenant TATSÄCHLICH vorkommenden Objekttypen (Akzeptanzkriterium 2).
func ProcessingOverview(ctx context.Context, pool *pgxpool.Pool) ([]ProcessingEntry, error) {
rows, err := pool.Query(ctx, `SELECT DISTINCT object_type FROM retention_objects ORDER BY object_type`)
if err != nil {
return nil, fmt.Errorf("dpreport: objekttypen abfragen: %w", err)
}
defer rows.Close()
var out []ProcessingEntry
for rows.Next() {
var objectType string
if err := rows.Scan(&objectType); err != nil {
return nil, fmt.Errorf("dpreport: objekttyp lesen: %w", err)
}
entry, known := ProcessingPurposes[objectType]
if !known {
entry = ProcessingEntry{ObjectType: objectType, Purpose: "unbekannt (nicht gepflegt)", LegalBasis: "unbekannt (nicht gepflegt)"}
}
out = append(out, entry)
}
return out, rows.Err()
}
// WriteSubjectReportCSV exportiert einen Auskunftsbericht als CSV
// (Akzeptanzkriterium/Pflichtprüfung 3: weiterverarbeitbar).
func WriteSubjectReportCSV(w io.Writer, records []SubjectRecord) error {
cw := csv.NewWriter(w)
if err := cw.Write([]string{"object_type", "object_reference", "retention_class", "status", "registered_at"}); err != nil {
return err
}
for _, r := range records {
if err := cw.Write([]string{
r.ObjectType, r.ObjectReference, r.RetentionClass, r.Status, r.RegisteredAt.Format(time.RFC3339),
}); err != nil {
return err
}
}
cw.Flush()
return cw.Error()
}
+180
View File
@@ -0,0 +1,180 @@
package dpreport
import (
"bytes"
"context"
"os"
"strings"
"testing"
"github.com/jackc/pgx/v5/pgxpool"
"gitea.perlbach24.de/scripte/nexarch/archive/internal/retention"
)
func setupTest(t *testing.T) *pgxpool.Pool {
t.Helper()
dsn := os.Getenv("TEST_TENANT_DSN")
if dsn == "" {
t.Skip("TEST_TENANT_DSN nicht gesetzt, Integrationstest uebersprungen")
}
return setupTestWithDSN(t, dsn)
}
func setupTestWithDSN(t *testing.T, dsn string) *pgxpool.Pool {
t.Helper()
ctx := context.Background()
pool, err := pgxpool.New(ctx, dsn)
if err != nil {
t.Fatalf("pool: %v", err)
}
t.Cleanup(func() { pool.Close() })
if _, err := pool.Exec(ctx, `
CREATE EXTENSION IF NOT EXISTS pgcrypto;
CREATE TABLE IF NOT EXISTS retention_objects (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(), object_type TEXT NOT NULL,
object_reference TEXT NOT NULL,
status TEXT NOT NULL DEFAULT 'active' CHECK (status IN ('active', 'expired', 'deleted')),
created_at TIMESTAMPTZ NOT NULL DEFAULT now(),
UNIQUE (object_type, object_reference)
);
ALTER TABLE retention_objects ADD COLUMN IF NOT EXISTS data_subject_ref TEXT;
CREATE TABLE IF NOT EXISTS retention_class_assignments (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE CASCADE,
retention_class TEXT NOT NULL, assigned_at TIMESTAMPTZ NOT NULL DEFAULT now()
);
`); err != nil {
t.Fatalf("schema: %v", err)
}
t.Cleanup(func() {
_, _ = pool.Exec(context.Background(), `TRUNCATE retention_class_assignments, retention_objects CASCADE`)
})
return pool
}
// TestSubjectReport_MatchesKnownDataset ist die geforderte Pflichtprüfung
// 1: Auskunftsbericht für Testperson mit bekanntem Datenbestand stimmt
// mit erwarteter Liste überein.
func TestSubjectReport_MatchesKnownDataset(t *testing.T) {
pool := setupTest(t)
ctx := context.Background()
id1, err := retention.RegisterObjectForSubject(ctx, pool, "dms_document", "doc-1", "person-a@example.com")
if err != nil {
t.Fatal(err)
}
if err := retention.AssignClass(ctx, pool, id1, "klasse-x"); err != nil {
t.Fatal(err)
}
if _, err := retention.RegisterObjectForSubject(ctx, pool, "dms_document", "doc-2", "person-b@example.com"); err != nil {
t.Fatal(err)
}
if _, err := retention.RegisterObjectForSubject(ctx, pool, "mail_message", "mail-1", "person-a@example.com"); err != nil {
t.Fatal(err)
}
report, err := SubjectReport(ctx, pool, "person-a@example.com")
if err != nil {
t.Fatalf("subjectreport: %v", err)
}
if len(report) != 2 {
t.Fatalf("erwartet 2 objekte fuer person-a, habe %d: %+v", len(report), report)
}
refs := map[string]bool{}
for _, r := range report {
refs[r.ObjectReference] = true
}
if !refs["doc-1"] || !refs["mail-1"] {
t.Fatalf("erwartete objekte fehlen: %+v", report)
}
if refs["doc-2"] {
t.Fatal("doc-2 gehoert person-b, nicht person-a - darf nicht im bericht auftauchen")
}
for _, r := range report {
if r.ObjectReference == "doc-1" && r.RetentionClass != "klasse-x" {
t.Fatalf("erwartet klasse-x fuer doc-1, habe %q", r.RetentionClass)
}
}
}
// TestSubjectReport_TenantIsolation ist die geforderte Pflichtprüfung 2:
// Bericht für einen Tenant enthält keine Objekte eines anderen Tenants.
// Da SubjectReport IMMER gegen genau einen Tenant-Pool laeuft (Modell C),
// wird dies strukturell bewiesen: ein zweiter, PHYSISCH GETRENNTER Pool
// (eigene Datenbank, TEST_TENANT_DSN_B) kann die Zeilen des ersten
// technisch nicht sehen. Braucht eine echte zweite Tenant-DB, nicht nur
// denselben TEST_TENANT_DSN zweimal (sonst ist es dieselbe physische
// Datenbank und der Test beweist nichts über echte Mandantentrennung).
func TestSubjectReport_TenantIsolation(t *testing.T) {
dsnB := os.Getenv("TEST_TENANT_DSN_B")
if dsnB == "" {
t.Skip("TEST_TENANT_DSN_B nicht gesetzt - Test braucht eine ECHTE zweite, physisch getrennte Tenant-Datenbank")
}
poolA := setupTest(t)
poolB := setupTestWithDSN(t, dsnB)
ctx := context.Background()
if _, err := retention.RegisterObjectForSubject(ctx, poolA, "dms_document", "tenant-a-doc", "shared-person@example.com"); err != nil {
t.Fatal(err)
}
reportB, err := SubjectReport(ctx, poolB, "shared-person@example.com")
if err != nil {
t.Fatalf("subjectreport (tenant b): %v", err)
}
if len(reportB) != 0 {
t.Fatalf("tenant b darf tenant as objekte nicht sehen, habe: %+v", reportB)
}
}
// TestWriteSubjectReportCSV_IsParseable ist die geforderte Pflichtprüfung
// 3: Export lässt sich als CSV weiterverarbeiten.
func TestWriteSubjectReportCSV_IsParseable(t *testing.T) {
pool := setupTest(t)
ctx := context.Background()
if _, err := retention.RegisterObjectForSubject(ctx, pool, "dms_document", "csv-doc", "csv-person@example.com"); err != nil {
t.Fatal(err)
}
report, err := SubjectReport(ctx, pool, "csv-person@example.com")
if err != nil {
t.Fatal(err)
}
var buf bytes.Buffer
if err := WriteSubjectReportCSV(&buf, report); err != nil {
t.Fatalf("csv schreiben: %v", err)
}
out := buf.String()
if !strings.Contains(out, "object_type,object_reference") {
t.Fatalf("erwartet csv-header, habe: %q", out)
}
if !strings.Contains(out, "csv-doc") {
t.Fatalf("erwartet datenzeile mit csv-doc, habe: %q", out)
}
lines := strings.Split(strings.TrimSpace(out), "\n")
if len(lines) != 2 {
t.Fatalf("erwartet header + 1 datenzeile, habe %d zeilen: %q", len(lines), out)
}
}
// TestProcessingOverview_CoversPresentObjectTypes deckt Akzeptanzkriterium 2.
func TestProcessingOverview_CoversPresentObjectTypes(t *testing.T) {
pool := setupTest(t)
ctx := context.Background()
if _, err := retention.RegisterObjectForSubject(ctx, pool, "dms_document", "overview-doc", ""); err != nil {
t.Fatal(err)
}
overview, err := ProcessingOverview(ctx, pool)
if err != nil {
t.Fatal(err)
}
if len(overview) != 1 || overview[0].ObjectType != "dms_document" {
t.Fatalf("erwartet genau dms_document, habe: %+v", overview)
}
if overview[0].Purpose == "" || overview[0].LegalBasis == "" {
t.Fatalf("zweck/rechtsgrundlage fehlen: %+v", overview[0])
}
}
@@ -0,0 +1,97 @@
// Package dsgvorequest implementiert CMP-07: den Workflow für einen
// DSGVO-Löschantrag (Art. 17). Ruft AUSSCHLIESSLICH bereits fertige
// Bausteine auf — CMP-02 (Suche), RET-03/deletionworkflow
// (Aufbewahrungsprüfung, Legal Hold), CMP-06/deletionapproval
// (Vier-Augen-Freigabe) — und baut KEINE zweite Prüf-/Freigabelogik
// (Ticket-Vorgabe "Bekannte Fehler vermeiden": genau das hatte das
// Vorgängerprojekt archivmail falsch gemacht).
package dsgvorequest
import (
"context"
"fmt"
"github.com/jackc/pgx/v5/pgxpool"
"gitea.perlbach24.de/scripte/nexarch/archive/internal/deletionapproval"
"gitea.perlbach24.de/scripte/nexarch/archive/internal/deletionworkflow"
"gitea.perlbach24.de/scripte/nexarch/archive/internal/dpreport"
)
const (
OutcomeDeletionRequested = "deletion_requested"
OutcomeRejected = "rejected"
OutcomeAlreadyDeleted = "already_deleted"
)
// Decision ist das Ergebnis EINER Einzelentscheidung (Akzeptanzkriterium
// 2: niemals eine pauschale Sammelentscheidung).
type Decision struct {
RetentionObjectID string
ObjectType string
ObjectReference string
Outcome string
Reason string
// DeletionRequestToken ist NUR bei Outcome==OutcomeDeletionRequested
// gesetzt — das einmalige Klartext-Token für die zweite Bestätigung
// (CMP-06). Wird NICHT protokolliert (siehe CMP-06: nur der Hash
// landet in der DB).
DeletionRequestToken string
}
// ProcessDeletionRequest ist der DSGVO-Löschantrag-Workflow
// (Akzeptanzkriterium 1). Findet über CMP-02 alle Objekte der
// betroffenen Person (mandantenscharf durch den übergebenen
// Tenant-Pool, Akzeptanzkriterium/Pflichtprüfung 3), entscheidet JEDES
// Objekt EINZELN: aktive Aufbewahrungspflicht (Frist nicht abgelaufen
// ODER Legal Hold) → Ablehnung mit Begründung; sonst → Löschung wird
// über CMP-06 angestoßen (nicht sofort ausgeführt — die zweite,
// unabhängige Bestätigung bleibt erforderlich). Jede Entscheidung wird
// dauerhaft protokolliert (Akzeptanzkriterium 4).
func ProcessDeletionRequest(ctx context.Context, pool *pgxpool.Pool, dataSubjectRef, requestedBy string) ([]Decision, error) {
records, err := dpreport.SubjectReport(ctx, pool, dataSubjectRef)
if err != nil {
return nil, fmt.Errorf("dsgvorequest: objekte der betroffenen person ermitteln: %w", err)
}
decisions := make([]Decision, 0, len(records))
for _, rec := range records {
d := Decision{RetentionObjectID: rec.RetentionObjectID, ObjectType: rec.ObjectType, ObjectReference: rec.ObjectReference}
if rec.Status == "deleted" {
d.Outcome = OutcomeAlreadyDeleted
d.Reason = "Objekt wurde bereits zuvor vernichtet"
} else {
onHold, err := deletionworkflow.IsOnLegalHold(ctx, pool, rec.RetentionObjectID)
if err != nil {
return nil, fmt.Errorf("dsgvorequest: sperrstatus prüfen (%s): %w", rec.ObjectReference, err)
}
switch {
case onHold:
d.Outcome = OutcomeRejected
d.Reason = "Aufbewahrungssperre (Legal Hold) aktiv"
case rec.Status == "active":
d.Outcome = OutcomeRejected
d.Reason = "Aufbewahrungsfrist ist noch nicht abgelaufen"
default: // "expired", keine Sperre: keine aktive Aufbewahrungspflicht
token, err := deletionapproval.RequestDeletion(ctx, pool, rec.RetentionObjectID, requestedBy)
if err != nil {
return nil, fmt.Errorf("dsgvorequest: löschung anstoßen (%s): %w", rec.ObjectReference, err)
}
d.Outcome = OutcomeDeletionRequested
d.Reason = "keine aktive Aufbewahrungspflicht, Löschung über Vier-Augen-Freigabe angestoßen"
d.DeletionRequestToken = token
}
}
if _, err := pool.Exec(ctx, `
INSERT INTO dsgvo_decision_log (data_subject_ref, retention_object_id, object_type, object_reference, outcome, reason, decided_by)
VALUES ($1, $2, $3, $4, $5, $6, $7)
`, dataSubjectRef, d.RetentionObjectID, d.ObjectType, d.ObjectReference, d.Outcome, d.Reason, requestedBy); err != nil {
return nil, fmt.Errorf("dsgvorequest: entscheidung protokollieren (%s): %w", rec.ObjectReference, err)
}
decisions = append(decisions, d)
}
return decisions, nil
}
@@ -0,0 +1,220 @@
package dsgvorequest
import (
"context"
"os"
"testing"
"github.com/jackc/pgx/v5/pgxpool"
"gitea.perlbach24.de/scripte/nexarch/archive/internal/deletionapproval"
"gitea.perlbach24.de/scripte/nexarch/archive/internal/deletionworkflow"
)
func setupTest(t *testing.T) *pgxpool.Pool {
t.Helper()
dsn := os.Getenv("TEST_TENANT_DSN")
if dsn == "" {
t.Skip("TEST_TENANT_DSN nicht gesetzt, Integrationstest uebersprungen")
}
return setupTestWithDSN(t, dsn)
}
func setupTestWithDSN(t *testing.T, dsn string) *pgxpool.Pool {
t.Helper()
ctx := context.Background()
pool, err := pgxpool.New(ctx, dsn)
if err != nil {
t.Fatalf("pool: %v", err)
}
t.Cleanup(func() { pool.Close() })
if _, err := pool.Exec(ctx, `
CREATE EXTENSION IF NOT EXISTS pgcrypto;
CREATE TABLE IF NOT EXISTS retention_objects (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(), object_type TEXT NOT NULL,
object_reference TEXT NOT NULL,
status TEXT NOT NULL DEFAULT 'active' CHECK (status IN ('active', 'expired', 'deleted')),
created_at TIMESTAMPTZ NOT NULL DEFAULT now(),
UNIQUE (object_type, object_reference)
);
ALTER TABLE retention_objects ADD COLUMN IF NOT EXISTS data_subject_ref TEXT;
CREATE TABLE IF NOT EXISTS retention_class_assignments (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE CASCADE,
retention_class TEXT NOT NULL, assigned_at TIMESTAMPTZ NOT NULL DEFAULT now()
);
CREATE TABLE IF NOT EXISTS legal_holds (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE CASCADE,
reason TEXT NOT NULL, set_by TEXT NOT NULL, set_at TIMESTAMPTZ NOT NULL DEFAULT now(),
released_at TIMESTAMPTZ, released_by TEXT
);
CREATE UNIQUE INDEX IF NOT EXISTS idx_legal_holds_active
ON legal_holds (retention_object_id) WHERE released_at IS NULL;
CREATE TABLE IF NOT EXISTS destruction_log (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE RESTRICT,
object_type TEXT NOT NULL, object_reference TEXT NOT NULL,
destroyed_at TIMESTAMPTZ NOT NULL DEFAULT now(), destroyed_by TEXT NOT NULL
);
CREATE TABLE IF NOT EXISTS deletion_requests (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE CASCADE,
requested_by TEXT NOT NULL, requested_at TIMESTAMPTZ NOT NULL DEFAULT now(),
confirmation_token_hash BYTEA NOT NULL, token_expires_at TIMESTAMPTZ NOT NULL,
confirmed_by TEXT, confirmed_at TIMESTAMPTZ, executed_at TIMESTAMPTZ
);
CREATE TABLE IF NOT EXISTS dsgvo_decision_log (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
data_subject_ref TEXT NOT NULL,
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE RESTRICT,
object_type TEXT NOT NULL, object_reference TEXT NOT NULL,
outcome TEXT NOT NULL CHECK (outcome IN ('deletion_requested', 'rejected', 'already_deleted')),
reason TEXT NOT NULL, decided_at TIMESTAMPTZ NOT NULL DEFAULT now(), decided_by TEXT NOT NULL
);
`); err != nil {
t.Fatalf("schema: %v", err)
}
t.Cleanup(func() {
_, _ = pool.Exec(context.Background(), `TRUNCATE dsgvo_decision_log, deletion_requests, destruction_log, legal_holds, retention_class_assignments, retention_objects CASCADE`)
})
return pool
}
func insertObject(t *testing.T, ctx context.Context, pool *pgxpool.Pool, ref, subjectRef, status string) string {
t.Helper()
var id string
if err := pool.QueryRow(ctx, `
INSERT INTO retention_objects (object_type, object_reference, status, data_subject_ref)
VALUES ('dms_document', $1, $2, $3) RETURNING id
`, ref, status, subjectRef).Scan(&id); err != nil {
t.Fatal(err)
}
return id
}
// TestProcessDeletionRequest_MixedDatasetYieldsOneDeletionOneRejection
// ist die geforderte Pflichtprüfung 1.
func TestProcessDeletionRequest_MixedDatasetYieldsOneDeletionOneRejection(t *testing.T) {
pool := setupTest(t)
ctx := context.Background()
deletableID := insertObject(t, ctx, pool, "mixed-deletable", "person-mixed@example.com", "expired")
insertObject(t, ctx, pool, "mixed-active", "person-mixed@example.com", "active")
decisions, err := ProcessDeletionRequest(ctx, pool, "person-mixed@example.com", "dsgvo-officer@acme.example")
if err != nil {
t.Fatalf("processdeletionrequest: %v", err)
}
if len(decisions) != 2 {
t.Fatalf("erwartet 2 entscheidungen, habe %d: %+v", len(decisions), decisions)
}
var requested, rejected int
var token string
for _, d := range decisions {
switch d.Outcome {
case OutcomeDeletionRequested:
requested++
token = d.DeletionRequestToken
if d.RetentionObjectID != deletableID {
t.Fatalf("falsches objekt zur loeschung angestossen: %+v", d)
}
case OutcomeRejected:
rejected++
if d.Reason == "" {
t.Fatal("ablehnung ohne begruendung")
}
}
}
if requested != 1 || rejected != 1 {
t.Fatalf("erwartet genau 1 loeschung + 1 ablehnung, habe requested=%d rejected=%d: %+v", requested, rejected, decisions)
}
// Vollstaendiger Nachweis: die angestossene Loeschung ueber CMP-06
// (Vier-Augen) bis zum Ende durchfuehren - beweist, dass CMP-07
// tatsaechlich denselben Workflow nutzt, nicht nur eine Anfrage
// erzeugt, die ins Leere laeuft.
var reqID string
if err := pool.QueryRow(ctx, `SELECT id FROM deletion_requests WHERE retention_object_id = $1`, deletableID).Scan(&reqID); err != nil {
t.Fatal(err)
}
if err := deletionapproval.ConfirmAndExecute(ctx, pool, reqID, token, "second-person@acme.example"); err != nil {
t.Fatalf("confirmandexecute: %v", err)
}
var status string
if err := pool.QueryRow(ctx, `SELECT status FROM retention_objects WHERE id = $1`, deletableID).Scan(&status); err != nil {
t.Fatal(err)
}
if status != "deleted" {
t.Fatalf("erwartet real geloeschtes objekt nach vier-augen-bestaetigung, status = %q", status)
}
// Protokoll (Akzeptanzkriterium 4) real vorhanden.
var logCount int
if err := pool.QueryRow(ctx, `SELECT count(*) FROM dsgvo_decision_log WHERE data_subject_ref = $1`, "person-mixed@example.com").Scan(&logCount); err != nil {
t.Fatal(err)
}
if logCount != 2 {
t.Fatalf("erwartet 2 protokollierte entscheidungen, habe %d", logCount)
}
}
// TestProcessDeletionRequest_LegalHoldBlocksEvenExpiredObject ist die
// geforderte Pflichtprüfung 2.
func TestProcessDeletionRequest_LegalHoldBlocksEvenExpiredObject(t *testing.T) {
pool := setupTest(t)
ctx := context.Background()
objID := insertObject(t, ctx, pool, "hold-expired", "person-hold@example.com", "expired")
if err := deletionworkflow.SetLegalHold(ctx, pool, objID, "laufendes verfahren", "legal@acme.example"); err != nil {
t.Fatal(err)
}
decisions, err := ProcessDeletionRequest(ctx, pool, "person-hold@example.com", "dsgvo-officer@acme.example")
if err != nil {
t.Fatal(err)
}
if len(decisions) != 1 || decisions[0].Outcome != OutcomeRejected {
t.Fatalf("erwartet ablehnung trotz abgelaufener frist (legal hold), habe: %+v", decisions)
}
var status string
if err := pool.QueryRow(ctx, `SELECT status FROM retention_objects WHERE id = $1`, objID).Scan(&status); err != nil {
t.Fatal(err)
}
if status != "expired" {
t.Fatalf("objekt haette wegen legal hold nicht angefasst werden duerfen, status = %q", status)
}
}
// TestProcessDeletionRequest_TenantIsolation ist die geforderte
// Pflichtprüfung 3.
func TestProcessDeletionRequest_TenantIsolation(t *testing.T) {
dsnB := os.Getenv("TEST_TENANT_DSN_B")
if dsnB == "" {
t.Skip("TEST_TENANT_DSN_B nicht gesetzt - Test braucht eine echte zweite, physisch getrennte Tenant-Datenbank")
}
poolA := setupTest(t)
poolB := setupTestWithDSN(t, dsnB)
ctx := context.Background()
insertObject(t, ctx, poolA, "tenant-a-doc", "shared-person@example.com", "expired")
decisionsB, err := ProcessDeletionRequest(ctx, poolB, "shared-person@example.com", "dsgvo-officer@acme.example")
if err != nil {
t.Fatal(err)
}
if len(decisionsB) != 0 {
t.Fatalf("tenant b darf tenant as objekte nicht sehen/anfassen, habe: %+v", decisionsB)
}
var untouchedStatus string
if err := poolA.QueryRow(ctx, `SELECT status FROM retention_objects WHERE object_reference = 'tenant-a-doc'`).Scan(&untouchedStatus); err != nil {
t.Fatal(err)
}
if untouchedStatus != "expired" {
t.Fatalf("tenant as objekt haette unangetastet bleiben muessen, status = %q", untouchedStatus)
}
}
@@ -0,0 +1,84 @@
// Package notifyclient ist ein schlanker HTTP-Client für Core CFG-05
// (internal/notifyapi, POST /notify/enqueue). Archive ist ein physisch
// getrenntes Go-Modul und kann Core CFG-02/CFG-04 daher nicht direkt
// importieren — nur über die HTTP-Schnittstelle von CFG-05 aufrufen.
// Gleiches Muster wie archive/internal/rbacclient (RET-08) für RBAC-06.
package notifyclient
import (
"bytes"
"context"
"encoding/json"
"fmt"
"net/http"
)
type Client struct {
BaseURL string
ServiceToken string
HTTPClient *http.Client
}
func New(baseURL, serviceToken string) *Client {
return &Client{BaseURL: baseURL, ServiceToken: serviceToken, HTTPClient: http.DefaultClient}
}
type enqueueRequest struct {
TenantSlug string `json:"tenant_slug"`
UserID string `json:"user_id"`
EventType string `json:"event_type"`
Channel string `json:"channel"`
Recipient string `json:"recipient"`
Payload map[string]any `json:"payload"`
}
// EnqueueResult spiegelt CFG-05s enqueueResponse.
type EnqueueResult struct {
JobID string
Skipped bool
}
// Enqueue löst ein Benachrichtigungs-Ereignis über CFG-05 aus. Jeder
// Fehler (Transport, Timeout, unerwarteter Status) wird als Fehler
// zurückgegeben — der Aufrufer entscheidet, ob/wie er das protokolliert
// (Pflichtprüfung RET-07: fehlgeschlagener Versand wird protokolliert,
// nicht stillschweigend verworfen).
func (c *Client) Enqueue(ctx context.Context, tenantSlug, userID, eventType, channel, recipient string, payload map[string]any) (EnqueueResult, error) {
body, err := json.Marshal(enqueueRequest{
TenantSlug: tenantSlug, UserID: userID, EventType: eventType, Channel: channel, Recipient: recipient, Payload: payload,
})
if err != nil {
return EnqueueResult{}, fmt.Errorf("notifyclient: request kodieren: %w", err)
}
req, err := http.NewRequestWithContext(ctx, http.MethodPost, c.BaseURL+"/notify/enqueue", bytes.NewReader(body))
if err != nil {
return EnqueueResult{}, fmt.Errorf("notifyclient: request bauen: %w", err)
}
req.Header.Set("Content-Type", "application/json")
req.Header.Set("X-Service-Token", c.ServiceToken)
resp, err := c.httpClient().Do(req)
if err != nil {
return EnqueueResult{}, fmt.Errorf("notifyclient: aufruf fehlgeschlagen: %w", err)
}
defer func() { _ = resp.Body.Close() }()
if resp.StatusCode != http.StatusOK {
return EnqueueResult{}, fmt.Errorf("notifyclient: unerwarteter status %d", resp.StatusCode)
}
var out struct {
JobID string `json:"job_id"`
Skipped bool `json:"skipped"`
}
if err := json.NewDecoder(resp.Body).Decode(&out); err != nil {
return EnqueueResult{}, fmt.Errorf("notifyclient: antwort dekodieren: %w", err)
}
return EnqueueResult{JobID: out.JobID, Skipped: out.Skipped}, nil
}
func (c *Client) httpClient() *http.Client {
if c.HTTPClient != nil {
return c.HTTPClient
}
return http.DefaultClient
}
+22
View File
@@ -43,6 +43,28 @@ func RegisterObject(ctx context.Context, pool *pgxpool.Pool, objectType, objectR
return id, nil
}
// RegisterObjectForSubject ist CMP-02s additive Ergänzung zu
// RegisterObject: registriert das Objekt zusätzlich mit einer Referenz
// auf die betroffene Person (dataSubjectRef, z. B. E-Mail oder
// User-ID), Grundlage für den DSGVO-Auskunftsbericht. Leeres
// dataSubjectRef bedeutet: nicht personenbezogen, kein Fehler.
// RegisterObject selbst bleibt unverändert (kein Umbau bestehenden
// Verhaltens) — dies ist ein separater, additiver Registrierungsweg.
func RegisterObjectForSubject(ctx context.Context, pool *pgxpool.Pool, objectType, objectReference, dataSubjectRef string) (string, error) {
var id string
err := pool.QueryRow(ctx, `
INSERT INTO retention_objects (object_type, object_reference, data_subject_ref)
VALUES ($1, $2, NULLIF($3, ''))
ON CONFLICT (object_type, object_reference)
DO UPDATE SET data_subject_ref = COALESCE(NULLIF(EXCLUDED.data_subject_ref, ''), retention_objects.data_subject_ref)
RETURNING id
`, objectType, objectReference, dataSubjectRef).Scan(&id)
if err != nil {
return "", fmt.Errorf("retention: objekt mit betroffener person registrieren: %w", err)
}
return id, nil
}
// Assignment ist EINE historische Zuordnung einer Aufbewahrungsklasse.
type Assignment struct {
RetentionClass string
+27
View File
@@ -0,0 +1,27 @@
package retentionapi
import "net/http"
// CORS ist RET-10: retention-api hatte bislang keine CORS-Header, ein
// echter Browser blockierte daher Fetches vom RET-06-Frontend (anderer
// Origin/Port) — real per Sichtprüfung gefunden, nicht durch die
// ursprünglichen RET-06/RET-06-API-Prüfungen erfasst (curl/Vitest-Fetch
// erzwingen keine Same-Origin-Policy). Erlaubt GENAU EINEN konfigurierten
// Origin, kein Wildcard — verhindert, dass jede beliebige Website die
// Fristenkonfiguration im Namen eines eingeloggten Nutzers aufrufen kann.
func CORS(allowedOrigin string, next http.Handler) http.HandlerFunc {
return func(w http.ResponseWriter, r *http.Request) {
origin := r.Header.Get("Origin")
if origin != "" && origin == allowedOrigin {
w.Header().Set("Access-Control-Allow-Origin", allowedOrigin)
w.Header().Set("Vary", "Origin")
w.Header().Set("Access-Control-Allow-Methods", "GET, POST, OPTIONS")
w.Header().Set("Access-Control-Allow-Headers", "Content-Type, X-User-Role")
}
if r.Method == http.MethodOptions {
w.WriteHeader(http.StatusNoContent)
return
}
next.ServeHTTP(w, r)
}
}
@@ -0,0 +1,86 @@
package retentionapi
import (
"net/http"
"net/http/httptest"
"testing"
)
const testAllowedOrigin = "http://localhost:3099"
func noopHandler() http.Handler {
return http.HandlerFunc(func(w http.ResponseWriter, r *http.Request) {
w.WriteHeader(http.StatusOK)
})
}
// TestCORS_AllowedOriginGetsAccessControlHeader ist die geforderte
// Pflichtprüfung: ein echter Browser-Fetch (simuliert über den Origin-
// Header, den nur ein Browser automatisch setzt) erhält die nötigen
// CORS-Header, die Same-Origin-Policy blockiert den Zugriff nicht mehr.
func TestCORS_AllowedOriginGetsAccessControlHeader(t *testing.T) {
handler := CORS(testAllowedOrigin, noopHandler())
server := httptest.NewServer(handler)
defer server.Close()
req, _ := http.NewRequest(http.MethodGet, server.URL, nil)
req.Header.Set("Origin", testAllowedOrigin)
resp, err := http.DefaultClient.Do(req)
if err != nil {
t.Fatalf("get: %v", err)
}
defer func() { _ = resp.Body.Close() }()
if got := resp.Header.Get("Access-Control-Allow-Origin"); got != testAllowedOrigin {
t.Fatalf("Access-Control-Allow-Origin = %q, want %q", got, testAllowedOrigin)
}
}
// TestCORS_PreflightRequestForPostEndpoint ist die geforderte
// Pflichtprüfung: OPTIONS-Preflight liefert korrekte CORS-Header für
// POST /retention-classes.
func TestCORS_PreflightRequestForPostEndpoint(t *testing.T) {
handler := CORS(testAllowedOrigin, noopHandler())
server := httptest.NewServer(handler)
defer server.Close()
req, _ := http.NewRequest(http.MethodOptions, server.URL+"/retention-classes", nil)
req.Header.Set("Origin", testAllowedOrigin)
req.Header.Set("Access-Control-Request-Method", "POST")
resp, err := http.DefaultClient.Do(req)
if err != nil {
t.Fatalf("options: %v", err)
}
defer func() { _ = resp.Body.Close() }()
if resp.StatusCode != http.StatusNoContent {
t.Fatalf("preflight status = %d, want 204", resp.StatusCode)
}
if got := resp.Header.Get("Access-Control-Allow-Origin"); got != testAllowedOrigin {
t.Fatalf("Access-Control-Allow-Origin = %q, want %q", got, testAllowedOrigin)
}
if got := resp.Header.Get("Access-Control-Allow-Methods"); got == "" {
t.Fatal("Access-Control-Allow-Methods fehlt in der preflight-antwort")
}
}
// TestCORS_UnconfiguredOriginGetsNoAccessControlHeader ist die geforderte
// Pflichtprüfung: Fetch von einem NICHT konfigurierten Origin bleibt
// blockiert — kein Wildcard-Leck.
func TestCORS_UnconfiguredOriginGetsNoAccessControlHeader(t *testing.T) {
handler := CORS(testAllowedOrigin, noopHandler())
server := httptest.NewServer(handler)
defer server.Close()
req, _ := http.NewRequest(http.MethodGet, server.URL, nil)
req.Header.Set("Origin", "http://boesartige-seite.example")
resp, err := http.DefaultClient.Do(req)
if err != nil {
t.Fatalf("get: %v", err)
}
defer func() { _ = resp.Body.Close() }()
if got := resp.Header.Get("Access-Control-Allow-Origin"); got != "" {
t.Fatalf("Access-Control-Allow-Origin haette bei fremdem origin leer sein muessen, war %q", got)
}
}
@@ -0,0 +1,158 @@
// Package retentionnotify implementiert RET-07: Benachrichtigung einer
// konfigurierten zuständigen Rolle (Tenant-Admin — RET-01 führt bewusst
// keine Objekt-Owner-Beziehung) vor Ablauf einer Aufbewahrungsfrist,
// konfigurierbarer Vorlauf je Aufbewahrungsklasse. Erzeugt NUR das
// Ereignis über Core CFG-05 (archive/internal/notifyclient) — versendet
// selbst keine E-Mail.
package retentionnotify
import (
"context"
"fmt"
"time"
"github.com/jackc/pgx/v5/pgxpool"
"gitea.perlbach24.de/scripte/nexarch/archive/internal/notifyclient"
"gitea.perlbach24.de/scripte/nexarch/archive/internal/retentionengine"
)
// EventType ist der an CFG-05 übergebene Ereignistyp — muss mit dem im
// Frontend/Core bekannten Namen übereinstimmen (siehe CFG-05-Tests).
const EventType = "retention_due_soon"
// Recipient benennt Tenant-Slug, User-ID und E-Mail-Adresse der
// konfigurierten zuständigen Rolle (Tenant-Admin), an die alle
// Fristablauf-Benachrichtigungen dieses Tenants gehen.
type Recipient struct {
TenantSlug string
UserID string
Email string
}
// Result ist das Ergebnis EINES benachrichtigten (oder fehlgeschlagenen)
// Objekts — der Aufrufer (cmd/retention-notify-job) protokolliert Err
// explizit, kein stillschweigendes Verwerfen (Pflichtprüfung 3).
type Result struct {
RetentionObjectID string
RetentionClass string
JobID string
Skipped bool
Err error
}
type classRuleLead struct {
leadDays int
enabled bool
}
// Run führt EINEN Durchlauf des Benachrichtigungs-Jobs aus: ermittelt je
// aktiver, benachrichtigungs-aktivierter Aufbewahrungsklasse die Objekte,
// deren Stichtag innerhalb des konfigurierten Vorlaufs liegt, überspringt
// bereits benachrichtigte Objekte (Akzeptanzkriterium 2, Postgres-
// persistent — übersteht einen Job-Neustart) und löst für den Rest je ein
// Ereignis über CFG-05 aus.
func Run(ctx context.Context, pool *pgxpool.Pool, client *notifyclient.Client, now time.Time, recipient Recipient) ([]Result, error) {
// notify_lead_days/notify_enabled sind nicht Teil von
// retentionengine.ClassRule (RET-02/RET-06 kennen sie nicht) — direkt
// gelesen, um retentionengine nicht um RET-07-eigene Felder zu
// erweitern (kein Umbau angrenzender Bereiche).
leadByClass := make(map[string]classRuleLead)
maxLeadDays := 0
leadRows, err := pool.Query(ctx, `SELECT retention_class, notify_lead_days, notify_enabled FROM retention_class_rules WHERE active`)
if err != nil {
return nil, fmt.Errorf("retentionnotify: benachrichtigungs-konfiguration laden: %w", err)
}
for leadRows.Next() {
var class string
var lead classRuleLead
if err := leadRows.Scan(&class, &lead.leadDays, &lead.enabled); err != nil {
leadRows.Close()
return nil, fmt.Errorf("retentionnotify: konfigurationszeile lesen: %w", err)
}
leadByClass[class] = lead
if lead.leadDays > maxLeadDays {
maxLeadDays = lead.leadDays
}
}
if err := leadRows.Err(); err != nil {
return nil, fmt.Errorf("retentionnotify: benachrichtigungs-konfiguration lesen: %w", err)
}
leadRows.Close()
if maxLeadDays == 0 {
return nil, nil
}
// Nutzt DIESELBE Funktion wie der RET-02-Job/RET-06-API-Preview
// (kein zweiter Ermittlungspfad) — asOf auf den größten konfigurierten
// Vorlauf gesetzt, je Klasse wird unten mit deren EIGENEM Vorlauf
// gefiltert.
candidates, err := retentionengine.ListExpiringObjects(ctx, pool, now.AddDate(0, 0, maxLeadDays))
if err != nil {
return nil, fmt.Errorf("retentionnotify: ablaufende objekte ermitteln: %w", err)
}
alreadyNotified, err := loadAlreadyNotified(ctx, pool)
if err != nil {
return nil, err
}
var results []Result
for _, obj := range candidates {
lead, known := leadByClass[obj.RetentionClass]
if !known || !lead.enabled {
continue
}
if !obj.DueDate.Before(now.AddDate(0, 0, lead.leadDays+1)) {
// Ausserhalb des klassen-eigenen Vorlaufs (nur mit dem
// globalen maxLeadDays vorselektiert).
continue
}
if alreadyNotified[obj.RetentionObjectID] {
continue
}
res := Result{RetentionObjectID: obj.RetentionObjectID, RetentionClass: obj.RetentionClass}
enq, err := client.Enqueue(ctx, recipient.TenantSlug, recipient.UserID, EventType, "email", recipient.Email, map[string]any{
"object_type": obj.ObjectType,
"object_reference": obj.ObjectReference,
"retention_class": obj.RetentionClass,
"due_date": obj.DueDate.Format(time.RFC3339),
})
if err != nil {
res.Err = err
results = append(results, res)
// Kein INSERT in retention_notifications bei Fehler — das
// Objekt wird beim naechsten Durchlauf erneut versucht,
// statt stillschweigend als erledigt zu gelten.
continue
}
res.JobID = enq.JobID
res.Skipped = enq.Skipped
if _, err := pool.Exec(ctx, `INSERT INTO retention_notifications (retention_object_id) VALUES ($1)`, obj.RetentionObjectID); err != nil {
res.Err = fmt.Errorf("retentionnotify: benachrichtigung als versendet markieren: %w", err)
}
results = append(results, res)
}
return results, nil
}
func loadAlreadyNotified(ctx context.Context, pool *pgxpool.Pool) (map[string]bool, error) {
rows, err := pool.Query(ctx, `SELECT retention_object_id FROM retention_notifications`)
if err != nil {
return nil, fmt.Errorf("retentionnotify: bereits benachrichtigte objekte laden: %w", err)
}
defer rows.Close()
out := make(map[string]bool)
for rows.Next() {
var id string
if err := rows.Scan(&id); err != nil {
return nil, fmt.Errorf("retentionnotify: zeile lesen: %w", err)
}
out[id] = true
}
return out, rows.Err()
}
@@ -0,0 +1,223 @@
package retentionnotify
import (
"context"
"encoding/json"
"net/http"
"net/http/httptest"
"os"
"sync/atomic"
"testing"
"time"
"github.com/jackc/pgx/v5/pgxpool"
"gitea.perlbach24.de/scripte/nexarch/archive/internal/notifyclient"
"gitea.perlbach24.de/scripte/nexarch/archive/internal/retentionengine"
)
func requireTestPool(t *testing.T) *pgxpool.Pool {
t.Helper()
dsn := os.Getenv("TEST_TENANT_DSN")
if dsn == "" {
t.Skip("TEST_TENANT_DSN nicht gesetzt, Integrationstest uebersprungen")
}
ctx := context.Background()
pool, err := pgxpool.New(ctx, dsn)
if err != nil {
t.Fatalf("pool: %v", err)
}
t.Cleanup(func() { pool.Close() })
if _, err := pool.Exec(ctx, `
CREATE EXTENSION IF NOT EXISTS pgcrypto;
CREATE TABLE IF NOT EXISTS retention_objects (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(), object_type TEXT NOT NULL,
object_reference TEXT NOT NULL,
status TEXT NOT NULL DEFAULT 'active' CHECK (status IN ('active', 'expired', 'deleted')),
created_at TIMESTAMPTZ NOT NULL DEFAULT now(),
UNIQUE (object_type, object_reference)
);
CREATE TABLE IF NOT EXISTS retention_class_assignments (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE CASCADE,
retention_class TEXT NOT NULL, assigned_at TIMESTAMPTZ NOT NULL DEFAULT now()
);
CREATE TABLE IF NOT EXISTS retention_class_rules (
retention_class TEXT PRIMARY KEY, duration INTERVAL NOT NULL,
active BOOLEAN NOT NULL DEFAULT true
);
ALTER TABLE retention_class_rules ADD COLUMN IF NOT EXISTS notify_lead_days INT NOT NULL DEFAULT 7;
ALTER TABLE retention_class_rules ADD COLUMN IF NOT EXISTS notify_enabled BOOLEAN NOT NULL DEFAULT true;
CREATE TABLE IF NOT EXISTS retention_notifications (
retention_object_id UUID PRIMARY KEY REFERENCES retention_objects(id) ON DELETE CASCADE,
notified_at TIMESTAMPTZ NOT NULL DEFAULT now()
);
`); err != nil {
t.Fatalf("schema: %v", err)
}
t.Cleanup(func() {
_, _ = pool.Exec(context.Background(), `TRUNCATE retention_notifications, retention_class_assignments, retention_objects CASCADE; TRUNCATE retention_class_rules`)
})
return pool
}
// fakeCFG05Server zaehlt Aufrufe und liefert eine feste Antwort - simuliert
// den echten CFG-05-Endpunkt, ohne das Core-Modul einzubinden (Archive kann
// es nicht direkt importieren, siehe notifyclient).
func fakeCFG05Server(t *testing.T, fail bool) (*notifyclient.Client, *int32) {
t.Helper()
var calls int32
mux := http.NewServeMux()
mux.HandleFunc("POST /notify/enqueue", func(w http.ResponseWriter, r *http.Request) {
atomic.AddInt32(&calls, 1)
if fail {
http.Error(w, "simulierter zustellfehler", http.StatusInternalServerError)
return
}
w.Header().Set("Content-Type", "application/json")
_ = json.NewEncoder(w).Encode(map[string]any{"job_id": "fake-job-id", "skipped": false})
})
server := httptest.NewServer(mux)
t.Cleanup(server.Close)
return notifyclient.New(server.URL, "test-token"), &calls
}
// insertDueObject legt ein Objekt an, dessen Stichtag (assigned_at +
// Klassen-Frist) genau dueIn ab jetzt liegt — die Subtraktion der Frist
// erfolgt IN Postgres (dieselbe INTERVAL-Arithmetik wie ComputeDueDate),
// keine eigene Kalenderrechnung in Go.
func insertDueObject(t *testing.T, ctx context.Context, pool *pgxpool.Pool, objectRef, class string, dueIn time.Duration) string {
t.Helper()
var objID string
if err := pool.QueryRow(ctx, `INSERT INTO retention_objects (object_type, object_reference) VALUES ('dms_document', $1) RETURNING id`, objectRef).Scan(&objID); err != nil {
t.Fatalf("objekt anlegen: %v", err)
}
desiredDue := time.Now().UTC().Add(dueIn)
if _, err := pool.Exec(ctx, `
INSERT INTO retention_class_assignments (retention_object_id, retention_class, assigned_at)
SELECT $1, $2, $3::timestamptz - r.duration FROM retention_class_rules r WHERE r.retention_class = $2
`, objID, class, desiredDue); err != nil {
t.Fatalf("zuordnung anlegen: %v", err)
}
return objID
}
var testRecipient = Recipient{TenantSlug: "acme", UserID: "tenant-admin", Email: "admin@acme.example"}
// TestRun_ShortLeadTimeTriggersExactlyOneNotification ist die geforderte
// Pflichtpruefung 1.
func TestRun_ShortLeadTimeTriggersExactlyOneNotification(t *testing.T) {
pool := requireTestPool(t)
ctx := context.Background()
if err := retentionengine.ConfigureClassRule(ctx, pool, "klasse-kurz", "1 day"); err != nil {
t.Fatal(err)
}
if _, err := pool.Exec(ctx, `UPDATE retention_class_rules SET notify_lead_days = 1, notify_enabled = true WHERE retention_class = 'klasse-kurz'`); err != nil {
t.Fatal(err)
}
insertDueObject(t, ctx, pool, "kurz-doc", "klasse-kurz", 12*time.Hour)
client, calls := fakeCFG05Server(t, false)
results, err := Run(ctx, pool, client, time.Now().UTC(), testRecipient)
if err != nil {
t.Fatalf("run: %v", err)
}
if len(results) != 1 || results[0].Err != nil {
t.Fatalf("erwartet genau ein ergebnis ohne fehler, habe: %+v", results)
}
if atomic.LoadInt32(calls) != 1 {
t.Fatalf("erwartet genau einen cfg-05-aufruf, habe %d", *calls)
}
}
// TestRun_DisabledNotificationSendsNothing ist die geforderte
// Pflichtpruefung 2.
func TestRun_DisabledNotificationSendsNothing(t *testing.T) {
pool := requireTestPool(t)
ctx := context.Background()
if err := retentionengine.ConfigureClassRule(ctx, pool, "klasse-deaktiviert", "1 day"); err != nil {
t.Fatal(err)
}
if _, err := pool.Exec(ctx, `UPDATE retention_class_rules SET notify_lead_days = 1, notify_enabled = false WHERE retention_class = 'klasse-deaktiviert'`); err != nil {
t.Fatal(err)
}
insertDueObject(t, ctx, pool, "deaktiviert-doc", "klasse-deaktiviert", 12*time.Hour)
client, calls := fakeCFG05Server(t, false)
results, err := Run(ctx, pool, client, time.Now().UTC(), testRecipient)
if err != nil {
t.Fatalf("run: %v", err)
}
if len(results) != 0 {
t.Fatalf("erwartet keine benachrichtigung bei deaktivierter klasse, habe: %+v", results)
}
if atomic.LoadInt32(calls) != 0 {
t.Fatalf("erwartet keinen cfg-05-aufruf, habe %d", *calls)
}
}
// TestRun_FailedDeliveryIsReportedNotSwallowed ist die geforderte
// Pflichtpruefung 3.
func TestRun_FailedDeliveryIsReportedNotSwallowed(t *testing.T) {
pool := requireTestPool(t)
ctx := context.Background()
if err := retentionengine.ConfigureClassRule(ctx, pool, "klasse-fehler", "1 day"); err != nil {
t.Fatal(err)
}
if _, err := pool.Exec(ctx, `UPDATE retention_class_rules SET notify_lead_days = 1, notify_enabled = true WHERE retention_class = 'klasse-fehler'`); err != nil {
t.Fatal(err)
}
objID := insertDueObject(t, ctx, pool, "fehler-doc", "klasse-fehler", 12*time.Hour)
client, _ := fakeCFG05Server(t, true)
results, err := Run(ctx, pool, client, time.Now().UTC(), testRecipient)
if err != nil {
t.Fatalf("run: %v", err)
}
if len(results) != 1 || results[0].Err == nil {
t.Fatalf("erwartet ein ergebnis MIT protokolliertem fehler, habe: %+v", results)
}
var count int
if err := pool.QueryRow(ctx, `SELECT count(*) FROM retention_notifications WHERE retention_object_id = $1`, objID).Scan(&count); err != nil {
t.Fatal(err)
}
if count != 0 {
t.Fatalf("fehlgeschlagener versand darf NICHT als benachrichtigt markiert werden (sonst kein retry)")
}
}
// TestRun_PreventsDoubleNotificationAcrossRuns ist Akzeptanzkriterium 2 -
// Mehrfachversand wird verhindert, auch nach einem simulierten Neustart
// (zweiter Run() mit frischem Aufruf, kein In-Memory-Zustand zwischen den
// Durchlaeufen).
func TestRun_PreventsDoubleNotificationAcrossRuns(t *testing.T) {
pool := requireTestPool(t)
ctx := context.Background()
if err := retentionengine.ConfigureClassRule(ctx, pool, "klasse-doppelt", "1 day"); err != nil {
t.Fatal(err)
}
if _, err := pool.Exec(ctx, `UPDATE retention_class_rules SET notify_lead_days = 1, notify_enabled = true WHERE retention_class = 'klasse-doppelt'`); err != nil {
t.Fatal(err)
}
insertDueObject(t, ctx, pool, "doppelt-doc", "klasse-doppelt", 12*time.Hour)
client, calls := fakeCFG05Server(t, false)
now := time.Now().UTC()
if _, err := Run(ctx, pool, client, now, testRecipient); err != nil {
t.Fatalf("erster run: %v", err)
}
if _, err := Run(ctx, pool, client, now, testRecipient); err != nil {
t.Fatalf("zweiter run (simulierter neustart): %v", err)
}
if atomic.LoadInt32(calls) != 1 {
t.Fatalf("erwartet genau einen cfg-05-aufruf ueber beide durchlaeufe, habe %d", *calls)
}
}
+147
View File
@@ -0,0 +1,147 @@
// Package wormstore implementiert RET-04: einen Speicherpfad für
// archivierte Objektinhalte, der nach dem Schreiben weder überschrieben
// noch (über dieses Paket) gelöscht werden kann — Write Once, Read Many.
//
// Löschung: dieses Paket bietet BEWUSST KEINE Delete-Funktion — das ist
// die technische Grenze, die Go-Anwendungscode überhaupt durchsetzen
// kann. Direkter Zugriff auf das Dateisystem durch einen Prozess mit
// root-Rechten bleibt außerhalb der Kontrolle jeder Anwendung; das ist
// ein struktureller Schutz auf Anwendungsebene, kein absoluter Schutz
// gegen root-OS-Zugriff (siehe RET-04-Prüfprotokoll). Der kontrollierte
// Löschworkflow (RET-03, eigenes Ticket) bekommt bei Bedarf einen
// separaten, explizit privilegierten Zugriffspfad — NICHT Teil dieses
// Pakets.
package wormstore
import (
"context"
"crypto/sha256"
"encoding/hex"
"errors"
"fmt"
"io"
"os"
"path/filepath"
"github.com/jackc/pgx/v5"
"github.com/jackc/pgx/v5/pgxpool"
)
// ErrAlreadyExists wird geliefert, wenn unter demselben Schlüssel bereits
// ein Objekt geschrieben wurde (Akzeptanzkriterium 1: kein Überschreiben).
var ErrAlreadyExists = errors.New("wormstore: objekt existiert bereits, überschreiben nicht erlaubt")
// ErrNotFound wird geliefert, wenn ein angefragtes Objekt nicht existiert.
var ErrNotFound = errors.New("wormstore: objekt nicht gefunden")
// ErrChecksumMismatch wird von GetVerified geliefert, wenn der beim Lesen
// berechnete Hash nicht mit dem beim Schreiben gespeicherten übereinstimmt
// (Akzeptanzkriterium 3: manipulierter Inhalt wird erkannt).
var ErrChecksumMismatch = errors.New("wormstore: prüfsumme stimmt nicht überein — inhalt wurde verändert")
// Store ist der WORM-Speicher: Dateien im lokalen Dateisystem, Metadaten
// (Prüfsumme, Größe) in Postgres — beide append-only.
type Store struct {
baseDir string
pool *pgxpool.Pool
}
func New(baseDir string, pool *pgxpool.Pool) *Store {
return &Store{baseDir: baseDir, pool: pool}
}
func (s *Store) path(key string) string {
return filepath.Join(s.baseDir, filepath.FromSlash(key))
}
// Put schreibt r EINMALIG unter key. Existiert key bereits (Datei ODER
// DB-Zeile), wird ErrAlreadyExists geliefert — kein Überschreiben, auch
// nicht bei gleichem Inhalt. Nach erfolgreichem Schreiben wird die Datei
// read-only gesetzt (0400): ein direkter os.OpenFile mit Schreibabsicht
// schlägt danach mit "permission denied" fehl (Akzeptanzkriterium 1,
// zusätzlich zur DB-seitigen Sperre über den PRIMARY KEY).
func (s *Store) Put(ctx context.Context, key string, r io.Reader) (checksum string, size int64, err error) {
full := s.path(key)
if _, statErr := os.Stat(full); statErr == nil {
return "", 0, ErrAlreadyExists
} else if !os.IsNotExist(statErr) {
return "", 0, fmt.Errorf("wormstore: existenz prüfen: %w", statErr)
}
if err := os.MkdirAll(filepath.Dir(full), 0o755); err != nil {
return "", 0, fmt.Errorf("wormstore: verzeichnis anlegen: %w", err)
}
tmp := full + ".tmp"
f, err := os.OpenFile(tmp, os.O_CREATE|os.O_EXCL|os.O_WRONLY, 0o600)
if err != nil {
return "", 0, fmt.Errorf("wormstore: temporäre datei anlegen: %w", err)
}
hasher := sha256.New()
written, err := io.Copy(io.MultiWriter(f, hasher), r)
if err != nil {
_ = f.Close()
_ = os.Remove(tmp)
return "", 0, fmt.Errorf("wormstore: schreiben: %w", err)
}
if err := f.Close(); err != nil {
_ = os.Remove(tmp)
return "", 0, fmt.Errorf("wormstore: datei schließen: %w", err)
}
if err := os.Rename(tmp, full); err != nil {
_ = os.Remove(tmp)
return "", 0, fmt.Errorf("wormstore: atomar platzieren: %w", err)
}
// Read-only NACH dem Schließen — verhindert jedes weitere Schreiben
// (Akzeptanzkriterium 1), auch durch denselben Prozess.
if err := os.Chmod(full, 0o400); err != nil {
return "", 0, fmt.Errorf("wormstore: schreibschutz setzen: %w", err)
}
sum := hex.EncodeToString(hasher.Sum(nil))
tag, err := s.pool.Exec(ctx, `
INSERT INTO worm_objects (storage_key, checksum_sha256, size_bytes)
VALUES ($1, $2, $3)
ON CONFLICT (storage_key) DO NOTHING
`, key, sum, written)
if err != nil {
return "", 0, fmt.Errorf("wormstore: metadaten speichern: %w", err)
}
if tag.RowsAffected() == 0 {
// Datei wurde gerade erst neu geschrieben (s.o. Stat-Check), aber
// die Metadaten-Zeile existierte bereits — Wettlaufsituation
// zweier gleichzeitiger Put-Aufrufe. Kein Überschreiben zulassen.
return "", 0, ErrAlreadyExists
}
return sum, written, nil
}
// GetVerified liefert den Inhalt UND vergleicht bei JEDEM Lesezugriff die
// Prüfsumme gegen die beim Schreiben gespeicherte (Akzeptanzkriterium 3).
func (s *Store) GetVerified(ctx context.Context, key string) ([]byte, error) {
var expectedSum string
err := s.pool.QueryRow(ctx, `SELECT checksum_sha256 FROM worm_objects WHERE storage_key = $1`, key).Scan(&expectedSum)
if err != nil {
if errors.Is(err, pgx.ErrNoRows) {
return nil, ErrNotFound
}
return nil, fmt.Errorf("wormstore: metadaten lesen: %w", err)
}
data, err := os.ReadFile(s.path(key))
if err != nil {
if os.IsNotExist(err) {
return nil, ErrNotFound
}
return nil, fmt.Errorf("wormstore: datei lesen: %w", err)
}
sum := sha256.Sum256(data)
actualSum := hex.EncodeToString(sum[:])
if actualSum != expectedSum {
return nil, ErrChecksumMismatch
}
return data, nil
}
@@ -0,0 +1,137 @@
package wormstore
import (
"context"
"errors"
"os"
"reflect"
"strings"
"testing"
"github.com/jackc/pgx/v5/pgxpool"
)
func setupTest(t *testing.T) (*Store, *pgxpool.Pool) {
t.Helper()
dsn := os.Getenv("TEST_TENANT_DSN")
if dsn == "" {
t.Skip("TEST_TENANT_DSN nicht gesetzt, Integrationstest uebersprungen")
}
ctx := context.Background()
pool, err := pgxpool.New(ctx, dsn)
if err != nil {
t.Fatalf("pool: %v", err)
}
t.Cleanup(func() { pool.Close() })
if _, err := pool.Exec(ctx, `
CREATE TABLE IF NOT EXISTS worm_objects (
storage_key TEXT PRIMARY KEY, checksum_sha256 TEXT NOT NULL,
size_bytes BIGINT NOT NULL, written_at TIMESTAMPTZ NOT NULL DEFAULT now()
);
`); err != nil {
t.Fatalf("schema: %v", err)
}
t.Cleanup(func() {
_, _ = pool.Exec(context.Background(), `DELETE FROM worm_objects WHERE storage_key LIKE 'wormtest_%'`)
})
return New(t.TempDir(), pool), pool
}
// TestPut_DirectOverwriteAttemptIsRejected ist die geforderte
// Pflichtprüfung 1: Objekt mit aktivem Schreibschutz widersteht einem
// direkten Überschreibversuch — sowohl über die Store-API als auch
// direkt am Dateisystem (echter Nachweis der Datei-Schreibsperre, nicht
// nur der Anwendungslogik).
func TestPut_DirectOverwriteAttemptIsRejected(t *testing.T) {
store, _ := setupTest(t)
ctx := context.Background()
sum1, size1, err := store.Put(ctx, "wormtest_a", strings.NewReader("erster inhalt"))
if err != nil {
t.Fatalf("erster put: %v", err)
}
// Überschreibversuch über die API.
_, _, err = store.Put(ctx, "wormtest_a", strings.NewReader("manipulierter inhalt"))
if !errors.Is(err, ErrAlreadyExists) {
t.Fatalf("erwartet ErrAlreadyExists beim zweiten put, habe: %v", err)
}
// Direkter Überschreibversuch am Dateisystem (umgeht die API) — muss
// an der echten OS-Schreibsperre (chmod 0400) scheitern. Nur
// aussagekräftig, wenn NICHT als root getestet wird: root umgeht
// Unix-Dateirechte grundsätzlich (DAC-Bypass), das ist kein Defekt
// dieses Pakets, sondern eine bekannte Grenze von chmod-basiertem
// Schutz (siehe Paket-Dokumentation "kein absoluter Schutz gegen
// root"). Auf 131 laufen Tests als root — dieser Teilnachweis wird
// dort bewusst übersprungen, die API-seitige Sperre (oben) bleibt
// die primäre, root-unabhängige Prüfung.
if os.Geteuid() != 0 {
full := store.path("wormtest_a")
f, openErr := os.OpenFile(full, os.O_WRONLY, 0)
if openErr == nil {
_ = f.Close()
t.Fatal("erwartet permission-fehler beim direkten öffnen zum schreiben, datei war schreibbar")
}
if !os.IsPermission(openErr) {
t.Fatalf("erwartet permission-fehler, habe: %v", openErr)
}
} else {
t.Log("laeuft als root: OS-Schreibsperren-Teilnachweis uebersprungen (root umgeht Unix-Dateirechte grundsaetzlich)")
}
// Ursprünglicher Inhalt unverändert.
data, err := store.GetVerified(ctx, "wormtest_a")
if err != nil {
t.Fatalf("getverified: %v", err)
}
if string(data) != "erster inhalt" {
t.Fatalf("inhalt wurde veraendert: %q", data)
}
if size1 != int64(len("erster inhalt")) || sum1 == "" {
t.Fatalf("unerwartete put-metadaten: sum=%q size=%d", sum1, size1)
}
}
// TestGetVerified_DetectsTamperedFile ist die geforderte Pflichtprüfung
// 2: Prüfsummenabgleich erkennt eine manipulierte Testdatei zuverlässig.
func TestGetVerified_DetectsTamperedFile(t *testing.T) {
store, _ := setupTest(t)
ctx := context.Background()
if _, _, err := store.Put(ctx, "wormtest_b", strings.NewReader("unveraenderter inhalt")); err != nil {
t.Fatalf("put: %v", err)
}
// Manipulation simulieren: Schreibschutz temporär aufheben (root/
// Betreiber-Zugriff außerhalb der API, genau der Fall, den die
// Prüfsumme abfangen soll) und den Inhalt verändern.
full := store.path("wormtest_b")
if err := os.Chmod(full, 0o600); err != nil {
t.Fatalf("chmod fuer testmanipulation: %v", err)
}
if err := os.WriteFile(full, []byte("MANIPULIERTER INHALT"), 0o600); err != nil {
t.Fatalf("testmanipulation schreiben: %v", err)
}
_, err := store.GetVerified(ctx, "wormtest_b")
if !errors.Is(err, ErrChecksumMismatch) {
t.Fatalf("erwartet ErrChecksumMismatch bei manipulierter datei, habe: %v", err)
}
}
// TestStore_HasNoDeleteMethod ist die geforderte Pflichtprüfung 3
// (präzisiert): Löschung ist über die Go-API des Pakets technisch
// unmöglich, weil KEINE Delete-Funktion existiert — strukturell per
// Reflection nachgewiesen, kein bloßer Verzicht per Konvention/Kommentar.
func TestStore_HasNoDeleteMethod(t *testing.T) {
storeType := reflect.TypeOf(&Store{})
for i := 0; i < storeType.NumMethod(); i++ {
name := storeType.Method(i).Name
if strings.Contains(strings.ToLower(name), "delete") || strings.Contains(strings.ToLower(name), "remove") {
t.Fatalf("wormstore.Store darf keine Lösch-Methode besitzen, gefunden: %s", name)
}
}
}
@@ -0,0 +1,3 @@
DROP TABLE IF EXISTS retention_notifications;
ALTER TABLE retention_class_rules DROP COLUMN IF EXISTS notify_lead_days;
ALTER TABLE retention_class_rules DROP COLUMN IF EXISTS notify_enabled;
@@ -0,0 +1,11 @@
-- RET-07: Fristablauf-Benachrichtigungen. Zwei neue Spalten je
-- Aufbewahrungsklasse (Vorlauf, Ein/Aus-Schalter — Akzeptanzkriterium 3)
-- und eine Dedupe-Tabelle (Akzeptanzkriterium 2: kein Mehrfachversand,
-- auch nicht nach Job-Neustart, da Postgres-persistent statt In-Memory).
ALTER TABLE retention_class_rules ADD COLUMN IF NOT EXISTS notify_lead_days INT NOT NULL DEFAULT 7;
ALTER TABLE retention_class_rules ADD COLUMN IF NOT EXISTS notify_enabled BOOLEAN NOT NULL DEFAULT true;
CREATE TABLE IF NOT EXISTS retention_notifications (
retention_object_id UUID PRIMARY KEY REFERENCES retention_objects(id) ON DELETE CASCADE,
notified_at TIMESTAMPTZ NOT NULL DEFAULT now()
);
@@ -0,0 +1 @@
DROP TABLE IF EXISTS worm_objects;
@@ -0,0 +1,10 @@
-- RET-04: WORM-Speicher-Garantie. Append-only Metadatentabelle - kein
-- UPDATE-Pfad im Code, PRIMARY KEY(storage_key) verhindert eine zweite
-- Zeile fuer denselben Schluessel (Akzeptanzkriterium 1, zusaetzlich zur
-- Dateisystem-Schreibsperre).
CREATE TABLE IF NOT EXISTS worm_objects (
storage_key TEXT PRIMARY KEY,
checksum_sha256 TEXT NOT NULL,
size_bytes BIGINT NOT NULL,
written_at TIMESTAMPTZ NOT NULL DEFAULT now()
);
@@ -0,0 +1,5 @@
DROP TRIGGER IF EXISTS trg_destruction_log_no_delete ON destruction_log;
DROP TRIGGER IF EXISTS trg_destruction_log_no_update ON destruction_log;
DROP FUNCTION IF EXISTS destruction_log_immutable();
DROP TABLE IF EXISTS destruction_log;
DROP TABLE IF EXISTS legal_holds;
@@ -0,0 +1,46 @@
-- RET-03: Löschworkflow & Aufbewahrungssperre (Legal Hold).
--
-- legal_holds ist historisiert (kein UPDATE der Sperr-Zeile selbst
-- ausser released_at/released_by beim Aufheben) — jede Sperre und jede
-- Aufhebung bleibt dauerhaft nachvollziehbar (Akzeptanzkriterium 3:
-- Aufheben ist selbst protokolliert). Ein Partial-Unique-Index erlaubt
-- je Objekt hoechstens EINE AKTIVE Sperre gleichzeitig.
CREATE TABLE IF NOT EXISTS legal_holds (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE CASCADE,
reason TEXT NOT NULL,
set_by TEXT NOT NULL,
set_at TIMESTAMPTZ NOT NULL DEFAULT now(),
released_at TIMESTAMPTZ,
released_by TEXT
);
CREATE UNIQUE INDEX IF NOT EXISTS idx_legal_holds_active
ON legal_holds (retention_object_id) WHERE released_at IS NULL;
-- destruction_log ist APPEND-ONLY, real durchgesetzt ueber Trigger (nicht
-- nur Anwendungscode) — Akzeptanzkriterium 3 / Pflichtpruefung 2 verlangt
-- ausdruecklich "DB-Constraint oder Trigger".
CREATE TABLE IF NOT EXISTS destruction_log (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE RESTRICT,
object_type TEXT NOT NULL,
object_reference TEXT NOT NULL,
destroyed_at TIMESTAMPTZ NOT NULL DEFAULT now(),
destroyed_by TEXT NOT NULL
);
CREATE OR REPLACE FUNCTION destruction_log_immutable() RETURNS TRIGGER AS $$
BEGIN
RAISE EXCEPTION 'destruction_log ist unveraenderlich (RET-03) - % auf id=% nicht erlaubt', TG_OP, OLD.id;
END;
$$ LANGUAGE plpgsql;
DROP TRIGGER IF EXISTS trg_destruction_log_no_update ON destruction_log;
CREATE TRIGGER trg_destruction_log_no_update
BEFORE UPDATE ON destruction_log
FOR EACH ROW EXECUTE FUNCTION destruction_log_immutable();
DROP TRIGGER IF EXISTS trg_destruction_log_no_delete ON destruction_log;
CREATE TRIGGER trg_destruction_log_no_delete
BEFORE DELETE ON destruction_log
FOR EACH ROW EXECUTE FUNCTION destruction_log_immutable();
@@ -0,0 +1,2 @@
DROP INDEX IF EXISTS idx_retention_objects_data_subject_ref;
ALTER TABLE retention_objects DROP COLUMN IF EXISTS data_subject_ref;
@@ -0,0 +1,10 @@
-- CMP-02: DSGVO-Auskunftsberichte brauchen eine Zuordnung Objekt->
-- betroffene Person. RET-01s retention_objects kannte bislang nur
-- object_type/object_reference (opak, modulübergreifend), keine
-- Person-Referenz. Additive, nullable Spalte — bestehende Zeilen und
-- Aufrufer von RegisterObject bleiben unverändert gültig: NICHT jedes
-- Objekt ist personenbezogen (z. B. Systemkonfiguration), ein leeres
-- Feld bedeutet genau das, nicht einen Fehler.
ALTER TABLE retention_objects ADD COLUMN IF NOT EXISTS data_subject_ref TEXT;
CREATE INDEX IF NOT EXISTS idx_retention_objects_data_subject_ref
ON retention_objects (data_subject_ref) WHERE data_subject_ref IS NOT NULL;
@@ -0,0 +1 @@
DROP TABLE IF EXISTS deletion_requests;
@@ -0,0 +1,17 @@
-- CMP-06: Vier-Augen-Freigabe fuer Loeschungen. Eine Loeschanfrage muss
-- von einer ANDEREN Person bestaetigt werden als der, die sie gestellt
-- hat, bevor RET-03s Destroy() tatsaechlich ausgefuehrt wird. Nur der
-- Hash des Bestaetigungs-Tokens wird gespeichert (Akzeptanzkriterium 3),
-- niemals das Token selbst.
CREATE TABLE IF NOT EXISTS deletion_requests (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE CASCADE,
requested_by TEXT NOT NULL,
requested_at TIMESTAMPTZ NOT NULL DEFAULT now(),
confirmation_token_hash BYTEA NOT NULL,
token_expires_at TIMESTAMPTZ NOT NULL,
confirmed_by TEXT,
confirmed_at TIMESTAMPTZ,
executed_at TIMESTAMPTZ
);
CREATE INDEX IF NOT EXISTS idx_deletion_requests_object ON deletion_requests (retention_object_id);
@@ -0,0 +1 @@
DROP TABLE IF EXISTS dsgvo_decision_log;
@@ -0,0 +1,15 @@
-- CMP-07: vollständiges, dauerhaftes Protokoll JEDER Einzelentscheidung
-- eines DSGVO-Löschantrags (Akzeptanzkriterium 4) - gelöscht UND
-- abgelehnt, je Objekt einzeln, nicht nur eine Sammelentscheidung.
CREATE TABLE IF NOT EXISTS dsgvo_decision_log (
id UUID PRIMARY KEY DEFAULT gen_random_uuid(),
data_subject_ref TEXT NOT NULL,
retention_object_id UUID NOT NULL REFERENCES retention_objects(id) ON DELETE RESTRICT,
object_type TEXT NOT NULL,
object_reference TEXT NOT NULL,
outcome TEXT NOT NULL CHECK (outcome IN ('deletion_requested', 'rejected', 'already_deleted')),
reason TEXT NOT NULL,
decided_at TIMESTAMPTZ NOT NULL DEFAULT now(),
decided_by TEXT NOT NULL
);
CREATE INDEX IF NOT EXISTS idx_dsgvo_decision_log_subject ON dsgvo_decision_log (data_subject_ref);
@@ -0,0 +1,14 @@
[Unit]
Description=NEXARCH Archive - Modul-Adapter-Registrierung (RET-05/RET-09)
After=network.target postgresql.service
[Service]
Type=simple
User=nexarch
EnvironmentFile=/etc/nexarch/archive-moduleadapter-api.env
ExecStart=__INSTALL_DIR__/bin/moduleadapter-api
Restart=on-failure
StandardOutput=journal
[Install]
WantedBy=multi-user.target
@@ -0,0 +1,10 @@
[Unit]
Description=NEXARCH Archive - Fristablauf-Benachrichtigungen (RET-07)
After=network.target postgresql.service
[Service]
Type=oneshot
User=nexarch
EnvironmentFile=/etc/nexarch/archive-retention-notify.env
ExecStart=__INSTALL_DIR__/bin/retention-notify-job
StandardOutput=journal
@@ -0,0 +1,9 @@
[Unit]
Description=Zeitplan fuer NEXARCH Archive Fristablauf-Benachrichtigungen (RET-07)
[Timer]
OnCalendar=*-*-* 07:00:00
Persistent=true
[Install]
WantedBy=timers.target