Removed Apache Commons IO dependency

@@ -3,7 +3,6 @@
   :url "http://github.com/mmcgrana/ring"
   :dependencies [[org.clojure/clojure "1.1.0"]
                  [org.clojure/clojure-contrib "1.1.0-master-SNAPSHOT"]
-                 [commons-io "1.4"]
                  [org.mortbay.jetty/jetty "6.1.14"]
                  [org.mortbay.jetty/jetty-util "6.1.14"]
                  [org.mortbay.jetty/servlet-api-2.5 "6.1.14"]

@@ -1,8 +1,7 @@
 (ns ring.handler.dump
   (:use (clj-html core helpers)
         (clojure.contrib def)
-        (clojure set))
-  (:import (org.apache.commons.io IOUtils)))
+        (clojure set)))
 
 (declare css)
 

@@ -1,7 +1,6 @@
 (ns ring.middleware.file-info
-  (:use (clojure.contrib def))
-  (:import (org.apache.commons.io FilenameUtils)
-           (java.io File)))
+  (:use clojure.contrib.def)
+  (:import java.io.File))
 
 (defvar- base-mime-types
   {"ai"    "application/postscript"
@@ -59,12 +58,16 @@
    "xwd"   "image/x-xwindowdump"
    "zip"   "application/zip"})
 
+(defn- get-extension
+  "Returns the file extension of a file."
+  [file]
+  (second (re-find #"\.([^./\\]+)$" (.getPath file))))
+
 (defn- guess-mime-type
   "Returns a String corresponding to the guessed mime type for the given file,
   or application/octet-stream if a type cannot be guessed."
   [#^File file mime-types]
-  (get mime-types (FilenameUtils/getExtension (.getPath file))
-    "application/octet-stream"))
+  (get mime-types (get-extension file) "application/octet-stream"))
 
 (defn wrap-file-info
   "Wrap an app such that responses with a file a body will have 

@@ -1,9 +1,10 @@
 (ns ring.util.servlet
   "Compatibility functions for turning a ring handler into a Java servlet."
+  (:use (clojure.contrib duck-streams except))
   (:import (java.io File InputStream FileInputStream)
-           (javax.servlet.http HttpServlet HttpServletRequest HttpServletResponse)
-           (org.apache.commons.io IOUtils))
-  (:use (clojure.contrib except)))
+           (javax.servlet.http HttpServlet
+                               HttpServletRequest
+                               HttpServletResponse)))
 
 (defn- get-headers
   "Creates a name/value map of all the request headers."
@@ -78,7 +79,7 @@
     (instance? InputStream body)
     (let [#^InputStream b body]
       (with-open [out (.getOutputStream response)]
-        (IOUtils/copy b out)
+        (copy b out)
         (.close b)
         (.flush out)))
     (instance? File body)