mirror of
https://github.com/libguestfs/libguestfs.git
synced 2026-03-22 07:03:38 +00:00
4b0b3589e8
Split virt-builder into build and customize steps, so that we can spin off a separate tool called 'virt-customize'. This commit does not in fact create such a tool, but it moves all the common code into a library, in the customize/ subdirectory of the source. Although this is mostly refactoring, it does change the order in which virt-builder command line arguments are processed, so they are now processed in the order they appear, not the inflexible fixed order used before.
43 lines
1.8 KiB
OCaml
43 lines
1.8 KiB
OCaml
(* virt-sysprep
|
|
* Copyright (C) 2012-2014 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.
|
|
*)
|
|
|
|
type password_crypto = [ `MD5 | `SHA256 | `SHA512 ]
|
|
|
|
val password_crypto_of_string : prog:string -> string -> password_crypto
|
|
(** Parse --password-crypto parameter on command line. *)
|
|
|
|
type password_selector = {
|
|
pw_password : password; (** The password. *)
|
|
pw_locked : bool; (** If the account should be locked. *)
|
|
}
|
|
and password =
|
|
| Password of string (** Password (literal string). *)
|
|
| Random_password (** Choose a random password. *)
|
|
| Disabled_password (** [*] in the password field. *)
|
|
|
|
val parse_selector : prog:string -> string -> password_selector
|
|
(** Parse the selector field in --password/--root-password. Note this
|
|
doesn't parse the username part. Exits if the format is not valid. *)
|
|
|
|
type password_map = (string, password_selector) Hashtbl.t
|
|
(** A map of username -> selector. *)
|
|
|
|
val set_linux_passwords : prog:string -> ?password_crypto:password_crypto -> Guestfs.guestfs -> string -> password_map -> unit
|
|
(** Adjust the passwords of a Linux guest according to the
|
|
password map. *)
|