Commit 1215430c authored by Pierre Boudes's avatar Pierre Boudes

cas server url may contains numbers, improving the regexp

parent da09d872
......@@ -443,7 +443,7 @@ let create_new_election owner cred auth =
let () = Html.register ~service:election_draft_pre
(fun () () -> T.election_draft_pre ())
let http_rex = "^https?://[a-z/.-]+$"
let http_rex = "^https?://[a-z0-9/.-]+$"
let is_http_url =
let rex = Pcre.regexp ~flags:[`CASELESS] http_rex in
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment