T T T T T T T T T T T

: GET { \ str -- }
  4096 ALLOCATE THROW TO str str 0!
  ROOT-DIR str +ZPLACE BL PARSE 2DUP str +ZPLACE
  + 1- C@ [CHAR] / = IF S" index.hf" str +ZPLACE THEN
  POSTPONE \
  str ASCIIZ> R/O OPEN-FILE 
  IF DROP NOT_FOUND ELSE CLOSE-FILE THROW str SEND_FILE THEN
  str FREE DROP
;

: PROCESS_REQUEST ( addr u -- )
    2DUP TO REQ_U TO REQ_A
    S" INSERT INTO access ([date], ip, request) VALUES(Now(), '%PEER_IP NtoA%', '%REQ_A REQ_U%')" EVAL-SUBST SQL-E DROP
    ALSO HTTP EVALUATE PREVIOUS
;

---

Комментарии

Комментировать →