Racket web server Racket

Un extrait Racket pour Racket web server qui répond aux requêtes sur /pixel.gif avec le GIF vide, décodé une seule fois au démarrage.

Racket web server Racket

Chemin

Fichier: pixel.rkt
Lancer: racket pixel.rkt

#lang racket/base
(require net/base64
         web-server/http
         web-server/servlet-env)

(define gif (base64-decode #"R0lGODlhAQABAIAAAP///wAAACH5BAEAAAAALAAAAAABAAEAAAICRAEAOw=="))

(define (pixel req)
  (response/full 200 #"OK" (current-seconds) #"image/gif"
                 (list (header #"Cache-Control" #"no-store"))
                 (list gif)))

;; serve/servlet only dispatches requests whose path is exactly #:servlet-path.
(serve/servlet pixel
               #:port 8080
               #:listen-ip #f
               #:servlet-path "/pixel.gif"
               #:command-line? #t)

Nous avons exécuté cet extrait et comparé les octets qu’il a renvoyés.

Vérifier

curl -sI http://localhost:8080/pixel.gif

Site officiel: Racket web server