france as a dns backplane server

2020-11-17 17:29:44 -06:00
parent 3165c259bc
commit 9c92bb7e80
9 changed files with 339 additions and 74 deletions
@@ -16,8 +16,8 @@
  (format (current-error-port "FUDO_SERVICE_PASSWD_FILE not set~%"))
  (exit 1))

-(define host-regex "^host-([a-zA-Z][a-zA-Z0-9_-]+)$")
-(define service-regex "^service-([a-zA-Z][a-zA-Z0-9_-]+)$")
+(define host-regex "^host-([a-zA-Z][a-zA-Z0-9_-]+)")
+(define service-regex "^service-([a-zA-Z][a-zA-Z0-9_-]+)")

 (define (make-verifier passwd-file)
  (let ((passwds (load passwd-file)))