handle-client-disconnect ( -- )

Vocabulary

managed-server

Inputs

None

Outputs

None

Definition

IN: managed-server

HOOK: handle-client-disconnect managed-server ( -- )

Methods

USING: accessors combinators.smart kernel managed-server
managed-server.chat sequences ;

M: chat-server handle-client-disconnect
    [
        line-beginning username " has quit  " client object>>
        dup [ "\"" 1surround ] when
    ] "" append-outputs-as send-everyone ;


USING: managed-server ;

M: managed-server handle-client-disconnect ;