ADD type mime application/xhtml-xml pour tout ce qui n'est pas IE

[euphorik.git] / index.yaws
diff --git a/index.yaws b/index.yaws

index 9d31ae4..47595bb 100755 (executable)
--- a/index.yaws
+++ b/index.yaws
@@ -1,6 +1,15 @@
  <?xml version="1.0" encoding="UTF-8" ?>
  <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
+<erl>
+ out(A) ->
+   {header, {content_type, 
+      case string:str((A#arg.headers)#headers.user_agent, "MSIE") of
+         0 -> "application/xhtml+xml";
+         _ -> "text/html"
+      end
+   }}.
+</erl>
  <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" >
  <head>
     <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />