X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=libguestfs.ml;h=5cb806b41abae8938a024d48d2f117e846c00125;hb=2c785d9fc3a0d1e3a0237101120f81e912d5d7a0;hp=508cbeb9dfb52f3e33c59ed4bf53999fa8b4810c;hpb=834f22b465b0bbe9b43734279c515f76dd9297d9;p=goaljobs-goals.git

diff --git a/libguestfs.ml b/libguestfs.ml
index 508cbeb..5cb806b 100644
--- a/libguestfs.ml
+++ b/libguestfs.ml
@@ -19,8 +19,11 @@ type info = {
   branch : string;               (* 'master' or 'stable-1.xx' *)
   package_version : string;      (* package-version *)
   tarball : string;              (* package-version.tar.gz *)
-  urlpath : string;              (* download/1.X-(stable|development)/tarball *)
+  python_tarball : string;       (* guestfs-version.tar.gz *)
+  urlpath : string;              (* libguestfs-download/1.X-(stable|development)/tarball *)
+  python_urlpath : string;       (* libguestfs-download/python/python_tarball *)
   url : string;                  (* full download URL of tarball *)
+  python_url : string;           (* python sdist *)
 }
 
 let compare_versions { major = major1; minor = minor1; release = release1 }
@@ -45,18 +48,26 @@ let vernames version =
       let tarball = sprintf "%s.tar.gz" package_version in
       let urlpath =
         if is_stable then
-          sprintf "download/%d.%d-stable/%s" major minor tarball
+          sprintf "%d.%d-stable/%s" major minor tarball
         else
-          sprintf "download/%d.%d-development/%s" major minor tarball in
-      let url = "http://libguestfs.org/" ^ urlpath in
+          sprintf "%d.%d-development/%s" major minor tarball in
+      let url = "http://download.libguestfs.org/" ^ urlpath in
+      let python_tarball =
+        sprintf "guestfs-%d.%d.%d.tar.gz" major minor release in
+      let python_urlpath = sprintf "python/" ^ python_tarball in
+      let python_url = "http://download.libguestfs.org/" ^ python_urlpath in
+
       { version = version;
         major = major; minor = minor; release = release;
         is_stable = is_stable;
         branch = branch;
         package_version = package_version;
         tarball = tarball;
+        python_tarball = python_tarball;
         urlpath = urlpath;
-        url = url }
+        python_urlpath = python_urlpath;
+        url = url;
+        python_url = python_url }
   )
 
 (* For libguestfs <= 1.24, we need an old supermin 4 binary. *)
@@ -119,7 +130,7 @@ let git_latest_commit branch =
 let website_latest_version =
   let rex = Str.regexp "libguestfs-\\(.*\\)\\.tar\\.gz" in
   fun branch ->
-    let wdir = libguestfs_website_repo // "download" // branch in
+    let wdir = libguestfs_download_repo // branch in
     let files = Sys.readdir wdir in
     let files = Array.to_list files in
     if files = [] then None