Ping FeedBurner with FeedBurner-Pinger

feedburner-pinger.rkt

#lang racket

(require net/http-client)
(require net/uri-codec)
(require json)

(define (ping url)
  (define-values (status headers port)
    (http-sendrecv "feedburner-pinger.herokuapp.com"
                   "/"
                   #:method "POST"
                   #:data (alist->form-urlencoded
                           (list (cons 'url url)))
                   #:headers (list "Content-Type: application/x-www-form-urlencoded")))
  (read-json port))