Index: trunk/server/common/oursrc/scripts-static-cat/StaticCat.hs
===================================================================
--- trunk/server/common/oursrc/scripts-static-cat/StaticCat.hs	(revision 2836)
+++ trunk/server/common/oursrc/scripts-static-cat/StaticCat.hs	(revision 2837)
@@ -23,11 +23,4 @@
 import System.Posix.Handle
 
-encodings :: M.Map String String
-encodings = M.fromList [
-             (".bz2", "bzip2"),
-             (".gz", "gzip"),
-             (".z", "compress")
-            ]
-
 types :: M.Map String String
 types = M.fromList [
@@ -49,5 +42,5 @@
          (".jpeg", "image/jpeg"),
          (".jpg", "image/jpeg"),
-         (".js", "application/x-javascript"),
+         (".js", "application/javascript"),
          (".mid", "audio/midi"),
          (".midi", "audio/midi"),
@@ -88,5 +81,5 @@
          (".swf", "application/x-shockwave-flash"),
          (".tar", "application/x-tar"),
-         (".tgz", "application/x-gzip"),
+         (".tgz", "application/gzip"),
          (".tif", "image/tiff"),
          (".tiff", "image/tiff"),
@@ -109,5 +102,5 @@
          (".xltx", "application/vnd.openxmlformats-officedocument.spreadsheetml.template"),
          (".xml", "text/xml"),
-         (".xsl", "text/xml"),
+         (".xsl", "application/xslt+xml"),
          (".zip", "application/zip")
         ]
@@ -126,13 +119,6 @@
 
 checkExtension :: FilePath -> CGI ()
-checkExtension file = do
-  let (base, ext) = splitExtension file
-  ext' <- case M.lookup (map toLower ext) encodings of
-            Nothing -> return ext
-            Just e -> do
-              setHeader "Content-Encoding" e
-              return $ takeExtension base
-
-  case M.lookup (map toLower ext') types of
+checkExtension file =
+  case M.lookup (map toLower (takeExtension file)) types of
     Nothing -> throw Forbidden
     Just t -> setHeader "Content-Type" t