Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
Ping FeedBurner with FeedBurner-Pinger
#lang racket
(require net/http-client)
(require net/uri-codec)
(require json)
(define (ping url)
(define-values (status headers port)
(http-sendrecv ""
#:method "POST"
#:data (alist->form-urlencoded
(list (cons 'url url)))
#:headers (list "Content-Type: application/x-www-form-urlencoded")))
(read-json port))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.