Imports NSwag
Imports NSwag.Generation.Processors
Imports NSwag.Generation.Processors.Contexts
Imports NJsonSchema

    Public Class WiseWebhookExampleProcessor
        Implements IOperationProcessor

        Public Function Process(context As OperationProcessorContext) As Boolean Implements IOperationProcessor.Process
        If context.ControllerType.Name = "WiseController" AndAlso context.MethodInfo.Name = "Webhook" Then
            Dim operation = context.OperationDescription.Operation
            If operation.RequestBody Is Nothing Then
                operation.RequestBody = New OpenApiRequestBody()
                operation.RequestBody.IsRequired = False
            End If

            If Not operation.RequestBody.Content.ContainsKey("application/json") Then
                operation.RequestBody.Content("application/json") = New OpenApiMediaType() With {
                        .Schema = JsonSchema.CreateAnySchema()
                    }
            End If

            If Not operation.RequestBody.Content.ContainsKey("text/plain") Then
                operation.RequestBody.Content("text/plain") = New OpenApiMediaType() With {
                        .Schema = JsonSchema.CreateAnySchema()
                    }
            End If

            Dim jsonContent = operation.RequestBody.Content("application/json")
                jsonContent.Example = New With {
                    .event_type = "balance.credit",
                    .data = New With {
                        .id = 123456789,
                        .balance_id = 99887766,
                        .amount = New With {
                            .value = 1500.0,
                            .currency = "EUR"
                        },
                        .occurred_at = "2025-12-06T10:15:30Z",
                        .description = "Incoming transfer",
                        .sender_name = "ACME GmbH"
                    }
                }

                Dim textContent = operation.RequestBody.Content("text/plain")
                textContent.Example = "hello world"
            End If
            Return True
        End Function
    End Class