Mercurial > urweb
comparison src/settings.sml @ 2024:6372a742ab04
Allow '+' char in blessMime
See this one [1] for an example
[1] - http://www.w3.org/TR/SVGTiny12/mimereg.html
author | Sergey Mironov <grrwlf@gmail.com> |
---|---|
date | Thu, 05 Jun 2014 20:36:12 +0000 |
parents | 403f0cc65b9c |
children | 534577e429e1 |
comparison
equal
deleted
inserted
replaced
2023:e4051315263e | 2024:6372a742ab04 |
---|---|
463 f s andalso chk (!rules) | 463 f s andalso chk (!rules) |
464 end | 464 end |
465 | 465 |
466 val checkUrl = check (fn _ => true) url | 466 val checkUrl = check (fn _ => true) url |
467 | 467 |
468 val validMime = CharVector.all (fn ch => Char.isAlphaNum ch orelse ch = #"/" orelse ch = #"-" orelse ch = #".") | 468 val validMime = CharVector.all (fn ch => Char.isAlphaNum ch orelse ch = #"/" orelse ch = #"-" orelse ch = #"." orelse ch = #"+") |
469 val validEnv = CharVector.all (fn ch => Char.isAlphaNum ch orelse ch = #"_" orelse ch = #".") | 469 val validEnv = CharVector.all (fn ch => Char.isAlphaNum ch orelse ch = #"_" orelse ch = #".") |
470 | 470 |
471 val checkMime = check validMime mime | 471 val checkMime = check validMime mime |
472 val checkRequestHeader = check validMime request | 472 val checkRequestHeader = check validMime request |
473 val checkResponseHeader = check validMime response | 473 val checkResponseHeader = check validMime response |