<display-ip-action> ( -- action )

Vocabulary

webapps.ip

Inputs

None

Outputs

action

an object

Definition

USING: accessors furnace.actions html.forms io.sockets
namespaces ;

IN: webapps.ip

: <display-ip-action> ( -- action )
    <page-action>
    [ remote-address get host>> "ip" set-value ] >>init
    { ip-app "ip" } >>template ;