[Pkg-ocaml-maint-commits] r2375 - in trunk/projects/approx/trunk: . debian

[Eric Cooper]

Author: ecc-guest
Date: 2006-01-05 19:01:05 +0000 (Thu, 05 Jan 2006)
New Revision: 2375

Modified:
   trunk/projects/approx/trunk/debian/changelog
   trunk/projects/approx/trunk/url.ml
Log:
add --location option to curl to follow HTTP redirects


Modified: trunk/projects/approx/trunk/debian/changelog
===================================================================
--- trunk/projects/approx/trunk/debian/changelog	2006-01-05 17:52:32 UTC (rev 2374)
+++ trunk/projects/approx/trunk/debian/changelog	2006-01-05 19:01:05 UTC (rev 2375)
@@ -1,3 +1,10 @@
+approx (2.04) unstable; urgency=low
+
+  * Added --location option to curl so that it will follow HTTP redirections
+    (closes: #346082)
+
+ -- Eric Cooper <ecc at cmu.edu>  Thu,  5 Jan 2006 13:56:03 -0500
+
 approx (2.03) unstable; urgency=low
 
   * Fixed cron script (closes: #343105)

Modified: trunk/projects/approx/trunk/url.ml
===================================================================
--- trunk/projects/approx/trunk/url.ml	2006-01-05 17:52:32 UTC (rev 2374)
+++ trunk/projects/approx/trunk/url.ml	2006-01-05 19:01:05 UTC (rev 2375)
@@ -50,8 +50,8 @@
   let add_header str h =
     sprintf "%s --header %s" str (quoted_string h)
   in
-  sprintf "/usr/bin/curl --silent%s%s %s"
-    (if headers_wanted then " --include" else "")
+  sprintf "/usr/bin/curl --silent --location %s %s %s"
+    (if headers_wanted then "--include" else "")
     (List.fold_left add_header "" headers)
     (quoted_string url)