/extra/webapps/ip/ip.factor

http://github.com/abeaumont/factor · Factor · 23 lines · 16 code · 5 blank · 2 comment · 0 complexity · 0a9c76cdbd1bf189f51a9fac4f4ffaec MD5 · raw file 

    

  1. ! Copyright (C) 2008 Doug Coleman.
    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.
    3. 

  3. USING: accessors furnace.actions http.server
    4. 

  4. http.server.dispatchers html.forms io.sockets
    5. 

  5. namespaces prettyprint kernel ;
    6. 

  6. IN: webapps.ip
    7. 

  7. 

  8. TUPLE: ip-app < dispatcher ;
    9. 

  9. 

  10. : <display-ip-action> ( -- action )
    11. 

  11.     <page-action>
    12. 

  12.         [ remote-address get host>> "ip" set-value ] >>init
    13. 

  13.         { ip-app "ip" } >>template ;
    14. 

  14. 

  15. : <ip-app> ( -- dispatcher )
    16. 

  16.     ip-app new-dispatcher
    17. 

  17.         <display-ip-action> "" add-responder ;
    18. 

  18. 

  19. : run-ip-app ( -- )
    20. 

  20.     <ip-app> main-responder set-global
    21. 

  21.     8080 httpd drop ;
    22. 

  22. 

  23. MAIN: run-ip-app
    24.