diff options
author | Hilko Bengen <bengen@hilluzination.de> | 2011-09-12 23:58:09 +0200 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2011-09-23 19:28:18 +0100 |
commit | b8cea4656e5bf1b9e7bb2274ef968ea42b10e0df (patch) | |
tree | 02bd50b88b425807596d28d66b2098bdb9f81245 /src/febootstrap_yum_rpm.ml | |
parent | bdd7c861768637bbcafdf3f4474944bd4680e13f (diff) | |
download | febootstrap-b8cea4656e5bf1b9e7bb2274ef968ea42b10e0df.tar.gz febootstrap-b8cea4656e5bf1b9e7bb2274ef968ea42b10e0df.tar.xz febootstrap-b8cea4656e5bf1b9e7bb2274ef968ea42b10e0df.zip |
febootstrap: Use contents of installed Debian packages instead of downloading and unpacking them.
This also adds --use-installed switch (which for now only works for
Debian).
Diffstat (limited to 'src/febootstrap_yum_rpm.ml')
-rw-r--r-- | src/febootstrap_yum_rpm.ml | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/febootstrap_yum_rpm.ml b/src/febootstrap_yum_rpm.ml index 028492a..815c5ba 100644 --- a/src/febootstrap_yum_rpm.ml +++ b/src/febootstrap_yum_rpm.ml @@ -172,7 +172,10 @@ if verbose: sprintf "%s/%s-%s-%s.%s.rpm" tmpdir name version release arch ) pkgs -let rec yum_rpm_list_files pkg = +let rec yum_rpm_list_files ?(use_installed=false) pkg = + if use_installed then + failwith "yum_rpm driver doesn't support --use-installed"; + (* Run rpm -qlp with some extra magic. *) let cmd = sprintf "rpm -q --qf '[%%{FILENAMES} %%{FILEFLAGS:fflags} %%{FILEMODES} %%{FILESIZES}\\n]' -p %s" @@ -228,7 +231,10 @@ let rec yum_rpm_list_files pkg = files -let yum_rpm_get_file_from_package pkg file = +let yum_rpm_get_file_from_package ?(use_installed=false) pkg file = + if use_installed then + failwith "yum_rpm driver doesn't support --use-installed"; + debug "extracting %s from %s ..." file (Filename.basename pkg); let outfile = tmpdir // file in |