check-response ( response -- )

Vocabulary

smtp.private

Inputs

response

an object

Outputs

None

Definition

USING: accessors combinators kernel math.order sequences ;

IN: smtp.private

: check-response ( response -- )
    dup code>> {
        {
            [ dup { 220 235 250 221 334 354 } member? ]
            [ 2drop ]
        }
        { [ dup 400 499 between? ] [ drop smtp-server-busy ] }
        { [ dup 500 = ] [ drop smtp-syntax-error ] }
        { [ dup 501 = ] [ drop smtp-command-not-implemented ] }
        { [ dup 500 509 between? ] [ drop smtp-syntax-error ] }
        {
            [ dup 530 539 between? ]
            [ drop smtp-bad-authentication ]
        }
        { [ dup 550 = ] [ drop smtp-mailbox-unavailable ] }
        { [ dup 551 = ] [ drop smtp-user-not-local ] }
        {
            [ dup 552 = ]
            [ drop smtp-exceeded-storage-allocation ]
        }
        { [ dup 553 = ] [ drop smtp-bad-mailbox-name ] }
        { [ dup 554 = ] [ drop smtp-transaction-failed ] }
        [ drop smtp-error ]
    } cond ;