Welcome to the CHICKEN Scheme pasting service

no title added by Kooda on Sun Apr 25 17:42:18 2021

(define cgit (cgi-handler* "/usr/share/webapps/cgit/cgit.cgi"))


;; Inside vhost-map, in a match on the request’s path:

           (('/ "cgit.cgi" . rest)
            (let ((user-agent (apply string-append (filter string? (flatten (header-value 'user-agent hdrs))))))
              (if (irregex-match '(: (+ any) "AhrefsBot" (+ any)) user-agent)
                  (send-status 'forbidden)
                  (parameterize ((current-pathinfo rest))
                    (cgit "")))))

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the result of `(apply + (list -3 4 2))'?
Visually impaired? Let me spell it for you (wav file) download WAV