(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 "")))))