This adds support for zypper which is used as package management in SuSE Linux. It started out as copy of yum support. TODO: add regex support Signed-off-by: Olaf Hering <olaf(a)aepfle.de&gt; --- configure.ac | 1 + src/Makefile.am | 1 + src/config.ml.in | 1 + src/supermin_zypp_rpm.ml | 174 +++++++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 177 insertions(+) create mode 100644 src/supermin_zypp_rpm.ml diff --git a/configure.ac b/configure.ac index a22fcf3..f975f3f 100644 --- a/configure.ac +++ b/configure.ac @@ -64,6 +64,7 @@ fi AM_CONDITIONAL(HAVE_PERLDOC,[test "$perldoc" != "no"]) dnl For yum-rpm handler. +AC_CHECK_PROG(ZYPPER,[zypper],[zypper],[no]) AC_CHECK_PROG(YUM,[yum],[yum],[no]) AC_CHECK_PROG(RPM,[rpm],[rpm],[no]) AC_CHECK_PROG(YUMDOWNLOADER,[yumdownloader],[yumdownloader],[no]) diff --git a/src/Makefile.am b/src/Makefile.am index 6ff3d56..3b6ca9b 100644 --- a/src/Makefile.am +++ b/src/Makefile.am @@ -26,6 +26,7 @@ SOURCES = \ supermin_utils.ml \ supermin_package_handlers.mli \ supermin_package_handlers.ml \ + supermin_zypp_rpm.ml \ supermin_yum_rpm.ml \ supermin_debian.ml \ supermin_pacman.ml \ diff --git a/src/config.ml.in b/src/config.ml.in index c281486..c3e7672 100644 --- a/src/config.ml.in +++ b/src/config.ml.in @@ -19,6 +19,7 @@ let package_name = "@PACKAGE_NAME@" let package_version = "@PACKAGE_VERSION@" +let zypper = "@ZYPPER@" let yum = "@YUM@" let rpm = "@RPM@" let yumdownloader = "@YUMDOWNLOADER@" diff --git a/src/supermin_zypp_rpm.ml b/src/supermin_zypp_rpm.ml new file mode 100644 index 0000000..e4555bf --- /dev/null +++ b/src/supermin_zypp_rpm.ml @@ -0,0 +1,174 @@ +(* supermin 4 + * Copyright (C) 2009-2010 Red Hat Inc. + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + *) + +(* Zypper and RPM support. *) + +open Unix +open Printf + +open Supermin_package_handlers +open Supermin_utils +open Supermin_cmdline + + +(* Create a temporary directory for use by all the functions in this file. *) +let tmpdir = tmpdir () + +let zypp_rpm_detect () = + (file_exists "/etc/SuSE-release") && + Config.zypper <> "no" && Config.rpm <> "no" + +let zypp_rpm_init () = + if use_installed && Unix.getuid() > 0 then + failwith "zypp_rpm driver doesn't support --use-installed when called as non-root user" + +let zypp_rpm_resolve_dependencies_and_download names = + (* Liberate this data from shell. *) + let tmp_pkg_cache_dir = tmpdir // "pkg_cache_dir" in + let tmp_root = tmpdir // "root" in + let sh = sprintf " +set -ex +unset LANG ${!LC_*} +tmpdir=%S +cache_dir=\"${tmpdir}/cache-dir\" +pkg_cache_dir=%S +time zypper \ + %s \ + %s \ + %s \ + --cache-dir \"${cache_dir}\" \ + --pkg-cache-dir \"${pkg_cache_dir}\" \ + --gpg-auto-import-keys \ + --non-interactive \ + install \ + --auto-agree-with-licenses \ + --download-only \ + $@ +" + tmpdir + tmp_pkg_cache_dir + (if verbose then "--verbose --verbose" else "--quiet") + (match packager_config with None -> "" + | Some filename -> sprintf "--config %s" filename) + (if Unix.getuid() > 0 then sprintf "--root %S --reposd-dir /etc/zypp/repos.d" tmp_root else "") + in + run_shell sh names; + + (* http://rosettacode.org/wiki/Walk_a_directory/Recursively *) + let walk_directory_tree dir pattern = + let select str = Str.string_match (Str.regexp pattern) str 0 in + let rec walk acc = function + | [] -> (acc) + | dir::tail -> + let contents = Array.to_list (Sys.readdir dir) in + let contents = List.rev_map (Filename.concat dir) contents in + let dirs, files = + List.fold_left (fun (dirs,files) f -> + match (stat f).st_kind with + | S_REG -> (dirs, f::files) (* Regular file *) + | S_DIR -> (f::dirs, files) (* Directory *) + | _ -> (dirs, files) + ) ([],[]) contents + in + let matched = List.filter (select) files in + walk (matched @ acc) (dirs @ tail) + in + walk [] [dir] + in + + let pkgs = walk_directory_tree tmp_pkg_cache_dir ".*\\.rpm" in + + (* Return list of package filenames. *) + pkgs + +let rec zypp_rpm_list_files pkg = + (* Run rpm -qlp with some extra magic. *) + let cmd = + sprintf "rpm -q --qf '[%%{FILENAMES} %%{FILEFLAGS:fflags} %%{FILEMODES} %%{FILESIZES}\\n]' -p %S" + pkg in + let lines = run_command_get_lines cmd in + + let files = + filter_map ( + fun line -> + match string_split " " line with + | [filename; flags; mode; size] -> + let test_flag = String.contains flags in + let mode = int_of_string mode in + let size = int_of_string size in + if test_flag 'd' then None (* ignore documentation *) + else + Some (filename, { + ft_dir = mode land 0o40000 <> 0; + ft_ghost = test_flag 'g'; ft_config = test_flag 'c'; + ft_mode = mode; ft_size = size; + }) + | _ -> + eprintf "supermin: bad output from rpm command: '%s'" line; + exit 1 + ) lines in + + (* I've never understood why the base packages like 'filesystem' don't + * contain any /dev nodes at all. This leaves every program that + * bootstraps RPMs to create a varying set of device nodes themselves. + * This collection was copied from mock/backend.py. + *) + let files = + let b = Filename.basename pkg in + if string_prefix "filesystem-" b then ( + let dirs = [ "/proc"; "/sys"; "/dev"; "/dev/pts"; "/dev/shm"; + "/dev/mapper" ] in + let dirs = + List.map (fun name -> + name, { ft_dir = true; ft_ghost = false; + ft_config = false; ft_mode = 0o40755; + ft_size = 0 }) dirs in + let devs = [ "/dev/null"; "/dev/full"; "/dev/zero"; "/dev/random"; + "/dev/urandom"; "/dev/tty"; "/dev/console"; + "/dev/ptmx"; "/dev/stdin"; "/dev/stdout"; "/dev/stderr" ] in + (* No need to set the mode because these will go into hostfiles. *) + let devs = + List.map (fun name -> + name, { ft_dir = false; ft_ghost = false; + ft_config = false; ft_mode = 0o644; + ft_size = 0 }) devs in + dirs @ devs @ files + ) else files in + + files + +let zypp_rpm_get_file_from_package pkg file = + debug "extracting %s from %s ..." file (Filename.basename pkg); + + let outfile = tmpdir // file in + let cmd = + sprintf "umask 0000; rpm2cpio %s | (cd %s && cpio --quiet -id .%s)" + (Filename.quote pkg) (Filename.quote tmpdir) (Filename.quote file) in + run_command cmd; + outfile + +let () = + let ph = { + ph_detect = zypp_rpm_detect; + ph_init = zypp_rpm_init; + ph_resolve_dependencies_and_download = + zypp_rpm_resolve_dependencies_and_download; + ph_list_files = zypp_rpm_list_files; + ph_get_file_from_package = zypp_rpm_get_file_from_package; + } in + register_package_handler "zypp-rpm" ph