USING: http.client prettyprint urls ;

IN: apps.query-incapsula-visits

: get-post-data ( -- post-data )
    H{
        { "api_id" "***" }
        { "api_key" "***" }
        { "site_id" "***" }
        { "time_range" "custom" }
        { "start" "1356980400000" } ! January 1, 2013 00:00+0500GMT
        { "end" "1358251200000" } ! January 15, 2013 17:00+0500GMT
    } ;

: get-url ( -- url )
    "https://my.incapsula.com/api/visits/v1" >url ;

: query ( -- )
    get-post-data get-url http-post . . ;

MAIN: query