mirror of
https://github.com/libguestfs/libguestfs.git
synced 2026-03-21 22:53:37 +00:00
c9ee831aff
Recent RPM-based guests have switched from using Berkeley DB (BDB) to sqlite. In order to inspect these guests (and earlier ones) we need to stop using the hokey parsing of the BDB and use librpm APIs instead. This commit adds a new internal API so we can call librpm from the daemon, and changes the library part to use the new API for RPM-based guests. This change removes the requirement for BDB tools like db_dump. See also: http://lists.rpm.org/pipermail/rpm-ecosystem/2021-March/000751.html http://lists.rpm.org/pipermail/rpm-ecosystem/2021-March/000754.html https://blog.fpmurphy.com/2011/08/programmatically-retrieve-rpm-package-details.html This breaks the virt-inspector test (now in the separate guestfs-tools repository). However this is not a bug in libguestfs, but a bug in the phoney Fedora guest that we use for testing - we created a BDB-style RPM database which was supposed to be just enough to make the old code work. The new code using real librpm needs /usr/lib/rpm/rpmrc (not present in the phoney image) and also cannot parse the phoney database, so we will need to separately rework that test. Thanks: Panu Matilainen Fixes: https://bugzilla.redhat.com/show_bug.cgi?id=1766487 Fixes: https://bugzilla.redhat.com/show_bug.cgi?id=1409024
554 lines
12 KiB
OCaml
554 lines
12 KiB
OCaml
(* libguestfs
|
|
* Copyright (C) 2009-2020 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
|
|
*)
|
|
|
|
(* Please read generator/README first. *)
|
|
|
|
(* Each daemon function must have a unique procedure number. Add
|
|
* new functions at the end.
|
|
*)
|
|
let proc_nr = [
|
|
1, "mount";
|
|
2, "sync";
|
|
3, "touch";
|
|
5, "ll";
|
|
7, "list_devices";
|
|
8, "list_partitions";
|
|
9, "pvs";
|
|
10, "vgs";
|
|
11, "lvs";
|
|
12, "pvs_full";
|
|
13, "vgs_full";
|
|
14, "lvs_full";
|
|
16, "aug_init";
|
|
17, "aug_defvar";
|
|
18, "aug_defnode";
|
|
19, "aug_get";
|
|
20, "aug_set";
|
|
21, "aug_insert";
|
|
22, "aug_rm";
|
|
23, "aug_mv";
|
|
24, "aug_match";
|
|
25, "aug_save";
|
|
26, "aug_close";
|
|
27, "aug_load";
|
|
28, "aug_ls";
|
|
29, "rm";
|
|
30, "rmdir";
|
|
31, "rm_rf";
|
|
32, "mkdir";
|
|
33, "mkdir_p";
|
|
34, "chmod";
|
|
35, "chown";
|
|
36, "exists";
|
|
37, "is_file";
|
|
38, "is_dir";
|
|
39, "pvcreate";
|
|
40, "vgcreate";
|
|
41, "lvcreate";
|
|
43, "sfdisk";
|
|
44, "write_file";
|
|
45, "umount";
|
|
46, "mounts";
|
|
47, "umount_all";
|
|
48, "lvm_remove_all";
|
|
49, "file";
|
|
50, "command";
|
|
51, "command_lines";
|
|
54, "statvfs";
|
|
55, "tune2fs_l";
|
|
56, "blockdev_setro";
|
|
57, "blockdev_setrw";
|
|
58, "blockdev_getro";
|
|
59, "blockdev_getss";
|
|
60, "blockdev_getbsz";
|
|
61, "blockdev_setbsz";
|
|
62, "blockdev_getsz";
|
|
63, "blockdev_getsize64";
|
|
64, "blockdev_flushbufs";
|
|
65, "blockdev_rereadpt";
|
|
66, "upload";
|
|
67, "download";
|
|
68, "checksum";
|
|
69, "tar_in";
|
|
70, "tar_out";
|
|
71, "tgz_in";
|
|
72, "tgz_out";
|
|
73, "mount_ro";
|
|
74, "mount_options";
|
|
75, "mount_vfs";
|
|
76, "debug";
|
|
77, "lvremove";
|
|
78, "vgremove";
|
|
79, "pvremove";
|
|
80, "set_e2label";
|
|
81, "get_e2label";
|
|
82, "set_e2uuid";
|
|
83, "get_e2uuid";
|
|
84, "fsck";
|
|
85, "zero";
|
|
86, "grub_install";
|
|
87, "cp";
|
|
88, "cp_a";
|
|
89, "mv";
|
|
90, "drop_caches";
|
|
91, "dmesg";
|
|
92, "ping_daemon";
|
|
93, "equal";
|
|
94, "strings";
|
|
95, "strings_e";
|
|
96, "hexdump";
|
|
97, "zerofree";
|
|
98, "pvresize";
|
|
99, "sfdisk_N";
|
|
100, "sfdisk_l";
|
|
101, "sfdisk_kernel_geometry";
|
|
102, "sfdisk_disk_geometry";
|
|
103, "vg_activate_all";
|
|
104, "vg_activate";
|
|
105, "lvresize";
|
|
106, "resize2fs";
|
|
108, "e2fsck_f";
|
|
109, "sleep";
|
|
110, "ntfs_3g_probe";
|
|
111, "sh";
|
|
112, "sh_lines";
|
|
113, "glob_expand";
|
|
114, "scrub_device";
|
|
115, "scrub_file";
|
|
116, "scrub_freespace";
|
|
117, "mkdtemp";
|
|
118, "wc_l";
|
|
119, "wc_w";
|
|
120, "wc_c";
|
|
121, "head";
|
|
122, "head_n";
|
|
123, "tail";
|
|
124, "tail_n";
|
|
125, "df";
|
|
126, "df_h";
|
|
127, "du";
|
|
128, "initrd_list";
|
|
129, "mount_loop";
|
|
130, "mkswap";
|
|
131, "mkswap_L";
|
|
132, "mkswap_U";
|
|
133, "mknod";
|
|
134, "mkfifo";
|
|
135, "mknod_b";
|
|
136, "mknod_c";
|
|
137, "umask";
|
|
138, "readdir";
|
|
139, "sfdiskM";
|
|
140, "zfile";
|
|
141, "getxattrs";
|
|
142, "lgetxattrs";
|
|
143, "setxattr";
|
|
144, "lsetxattr";
|
|
145, "removexattr";
|
|
146, "lremovexattr";
|
|
147, "mountpoints";
|
|
148, "mkmountpoint";
|
|
149, "rmmountpoint";
|
|
151, "grep";
|
|
152, "egrep";
|
|
153, "fgrep";
|
|
154, "grepi";
|
|
155, "egrepi";
|
|
156, "fgrepi";
|
|
157, "zgrep";
|
|
158, "zegrep";
|
|
159, "zfgrep";
|
|
160, "zgrepi";
|
|
161, "zegrepi";
|
|
162, "zfgrepi";
|
|
163, "realpath";
|
|
164, "ln";
|
|
165, "ln_f";
|
|
166, "ln_s";
|
|
167, "ln_sf";
|
|
168, "readlink";
|
|
169, "fallocate";
|
|
170, "swapon_device";
|
|
171, "swapoff_device";
|
|
172, "swapon_file";
|
|
173, "swapoff_file";
|
|
174, "swapon_label";
|
|
175, "swapoff_label";
|
|
176, "swapon_uuid";
|
|
177, "swapoff_uuid";
|
|
178, "mkswap_file";
|
|
179, "inotify_init";
|
|
180, "inotify_add_watch";
|
|
181, "inotify_rm_watch";
|
|
182, "inotify_read";
|
|
183, "inotify_files";
|
|
184, "inotify_close";
|
|
185, "setcon";
|
|
186, "getcon";
|
|
187, "mkfs_b";
|
|
188, "mke2journal";
|
|
189, "mke2journal_L";
|
|
190, "mke2journal_U";
|
|
191, "mke2fs_J";
|
|
192, "mke2fs_JL";
|
|
193, "mke2fs_JU";
|
|
194, "modprobe";
|
|
195, "echo_daemon";
|
|
196, "find0";
|
|
197, "case_sensitive_path";
|
|
198, "vfs_type";
|
|
199, "truncate";
|
|
200, "truncate_size";
|
|
201, "utimens";
|
|
202, "mkdir_mode";
|
|
203, "lchown";
|
|
205, "internal_lxattrlist";
|
|
206, "internal_readlinklist";
|
|
207, "pread";
|
|
208, "part_init";
|
|
209, "part_add";
|
|
210, "part_disk";
|
|
211, "part_set_bootable";
|
|
212, "part_set_name";
|
|
213, "part_list";
|
|
214, "part_get_parttype";
|
|
215, "fill";
|
|
217, "dd";
|
|
218, "filesize";
|
|
219, "lvrename";
|
|
220, "vgrename";
|
|
221, "initrd_cat";
|
|
222, "pvuuid";
|
|
223, "vguuid";
|
|
224, "lvuuid";
|
|
225, "vgpvuuids";
|
|
226, "vglvuuids";
|
|
227, "copy_size";
|
|
228, "zero_device";
|
|
229, "txz_in";
|
|
230, "txz_out";
|
|
232, "vgscan";
|
|
233, "part_del";
|
|
234, "part_get_bootable";
|
|
235, "part_get_mbr_id";
|
|
236, "part_set_mbr_id";
|
|
237, "checksum_device";
|
|
238, "lvresize_free";
|
|
239, "aug_clear";
|
|
240, "get_umask";
|
|
241, "debug_upload";
|
|
242, "base64_in";
|
|
243, "base64_out";
|
|
244, "checksums_out";
|
|
245, "fill_pattern";
|
|
246, "internal_write";
|
|
247, "pwrite";
|
|
248, "resize2fs_size";
|
|
249, "pvresize_size";
|
|
250, "ntfsresize_size";
|
|
251, "available_all_groups";
|
|
252, "fallocate64";
|
|
253, "vfs_label";
|
|
254, "vfs_uuid";
|
|
255, "lvm_set_filter";
|
|
256, "lvm_clear_filter";
|
|
257, "luks_open";
|
|
258, "luks_open_ro";
|
|
259, "luks_close";
|
|
260, "luks_format";
|
|
261, "luks_format_cipher";
|
|
262, "luks_add_key";
|
|
263, "luks_kill_slot";
|
|
264, "is_lv";
|
|
265, "findfs_uuid";
|
|
266, "findfs_label";
|
|
267, "is_chardev";
|
|
268, "is_blockdev";
|
|
269, "is_fifo";
|
|
270, "is_symlink";
|
|
271, "is_socket";
|
|
272, "part_to_dev";
|
|
273, "upload_offset";
|
|
274, "download_offset";
|
|
275, "pwrite_device";
|
|
276, "pread_device";
|
|
277, "lvm_canonical_lv_name";
|
|
278, "mkfs";
|
|
279, "getxattr";
|
|
280, "lgetxattr";
|
|
281, "resize2fs_M";
|
|
282, "internal_autosync";
|
|
283, "is_zero";
|
|
284, "is_zero_device";
|
|
285, "list_9p";
|
|
286, "mount_9p";
|
|
287, "list_dm_devices";
|
|
288, "ntfsresize";
|
|
289, "btrfs_filesystem_resize";
|
|
290, "internal_write_append";
|
|
291, "compress_out";
|
|
292, "compress_device_out";
|
|
293, "part_to_partnum";
|
|
294, "copy_device_to_device";
|
|
295, "copy_device_to_file";
|
|
296, "copy_file_to_device";
|
|
297, "copy_file_to_file";
|
|
298, "tune2fs";
|
|
299, "md_create";
|
|
300, "list_md_devices";
|
|
301, "md_detail";
|
|
302, "md_stop";
|
|
303, "blkid";
|
|
304, "e2fsck";
|
|
305, "llz";
|
|
306, "wipefs";
|
|
307, "ntfsfix";
|
|
308, "ntfsclone_out";
|
|
309, "ntfsclone_in";
|
|
310, "set_label";
|
|
311, "zero_free_space";
|
|
312, "lvcreate_free";
|
|
313, "isoinfo_device";
|
|
314, "isoinfo";
|
|
315, "vgmeta";
|
|
316, "md_stat";
|
|
317, "mkfs_btrfs";
|
|
318, "get_e2attrs";
|
|
319, "set_e2attrs";
|
|
320, "get_e2generation";
|
|
321, "set_e2generation";
|
|
322, "btrfs_subvolume_snapshot";
|
|
323, "btrfs_subvolume_delete";
|
|
324, "btrfs_subvolume_create";
|
|
325, "btrfs_subvolume_list";
|
|
326, "btrfs_subvolume_set_default";
|
|
327, "btrfs_filesystem_sync";
|
|
328, "btrfs_filesystem_balance";
|
|
329, "btrfs_device_add";
|
|
330, "btrfs_device_delete";
|
|
331, "btrfs_set_seeding";
|
|
332, "btrfs_fsck";
|
|
333, "filesystem_available";
|
|
334, "fstrim";
|
|
336, "nr_devices";
|
|
337, "xfs_info";
|
|
338, "pvchange_uuid";
|
|
339, "pvchange_uuid_all";
|
|
340, "vgchange_uuid";
|
|
341, "vgchange_uuid_all";
|
|
342, "utsname";
|
|
343, "xfs_growfs";
|
|
344, "rsync";
|
|
345, "rsync_in";
|
|
346, "rsync_out";
|
|
347, "ls0";
|
|
348, "fill_dir";
|
|
349, "xfs_admin";
|
|
350, "hivex_open";
|
|
351, "hivex_close";
|
|
352, "hivex_root";
|
|
353, "hivex_node_name";
|
|
354, "hivex_node_children";
|
|
355, "hivex_node_get_child";
|
|
356, "hivex_node_parent";
|
|
357, "hivex_node_values";
|
|
358, "hivex_node_get_value";
|
|
359, "hivex_value_key";
|
|
360, "hivex_value_type";
|
|
361, "hivex_value_value";
|
|
362, "hivex_commit";
|
|
363, "hivex_node_add_child";
|
|
364, "hivex_node_delete_child";
|
|
365, "hivex_node_set_value";
|
|
366, "xfs_repair";
|
|
367, "rm_f";
|
|
368, "mke2fs";
|
|
369, "list_disk_labels";
|
|
370, "internal_hot_add_drive";
|
|
371, "internal_hot_remove_drive_precheck";
|
|
372, "internal_hot_remove_drive";
|
|
373, "mktemp";
|
|
374, "mklost_and_found";
|
|
375, "acl_get_file";
|
|
376, "acl_set_file";
|
|
377, "acl_delete_def_file";
|
|
378, "cap_get_file";
|
|
379, "cap_set_file";
|
|
380, "list_ldm_volumes";
|
|
381, "list_ldm_partitions";
|
|
382, "ldmtool_create_all";
|
|
383, "ldmtool_remove_all";
|
|
384, "ldmtool_scan";
|
|
385, "ldmtool_scan_devices";
|
|
386, "ldmtool_diskgroup_name";
|
|
387, "ldmtool_diskgroup_volumes";
|
|
388, "ldmtool_diskgroup_disks";
|
|
389, "ldmtool_volume_type";
|
|
390, "ldmtool_volume_hint";
|
|
391, "ldmtool_volume_partitions";
|
|
392, "part_set_gpt_type";
|
|
393, "part_get_gpt_type";
|
|
394, "rename";
|
|
395, "is_whole_device";
|
|
396, "internal_parse_mountable";
|
|
397, "internal_rhbz914931";
|
|
399, "syslinux";
|
|
400, "extlinux";
|
|
401, "cp_r";
|
|
402, "remount";
|
|
403, "set_uuid";
|
|
404, "journal_open";
|
|
405, "journal_close";
|
|
406, "journal_next";
|
|
407, "journal_skip";
|
|
408, "internal_journal_get";
|
|
409, "journal_get_data_threshold";
|
|
410, "journal_set_data_threshold";
|
|
411, "aug_setm";
|
|
412, "aug_label";
|
|
413, "internal_upload";
|
|
414, "internal_exit";
|
|
415, "copy_attributes";
|
|
416, "part_get_name";
|
|
417, "blkdiscard";
|
|
418, "blkdiscardzeroes";
|
|
419, "cpio_out";
|
|
420, "journal_get_realtime_usec";
|
|
421, "statns";
|
|
422, "lstatns";
|
|
423, "internal_lstatnslist";
|
|
424, "blockdev_setra";
|
|
425, "btrfs_subvolume_get_default";
|
|
426, "btrfs_subvolume_show";
|
|
427, "btrfs_quota_enable";
|
|
428, "btrfs_quota_rescan";
|
|
429, "btrfs_qgroup_limit";
|
|
430, "btrfs_qgroup_create";
|
|
431, "btrfs_qgroup_destroy";
|
|
432, "btrfs_qgroup_show";
|
|
433, "btrfs_qgroup_assign";
|
|
434, "btrfs_qgroup_remove";
|
|
435, "btrfs_scrub_start";
|
|
436, "btrfs_scrub_cancel";
|
|
437, "btrfs_scrub_resume";
|
|
438, "btrfs_balance_pause";
|
|
439, "btrfs_balance_cancel";
|
|
440, "btrfs_balance_resume";
|
|
443, "btrfs_filesystem_defragment";
|
|
444, "btrfs_rescue_chunk_recover";
|
|
445, "btrfs_rescue_super_recover";
|
|
446, "part_set_gpt_guid";
|
|
447, "part_get_gpt_guid";
|
|
448, "btrfs_balance_status";
|
|
449, "btrfs_scrub_status";
|
|
450, "btrfstune_seeding";
|
|
451, "btrfstune_enable_extended_inode_refs";
|
|
452, "btrfstune_enable_skinny_metadata_extent_refs";
|
|
453, "btrfs_image";
|
|
454, "part_get_mbr_part_type";
|
|
455, "btrfs_replace";
|
|
456, "set_uuid_random";
|
|
457, "vfs_minimum_size";
|
|
458, "internal_feature_available";
|
|
459, "part_set_disk_guid";
|
|
460, "part_get_disk_guid";
|
|
461, "part_set_disk_guid_random";
|
|
462, "part_expand_gpt";
|
|
463, "ntfscat_i";
|
|
464, "download_inode";
|
|
465, "btrfs_filesystem_show";
|
|
466, "internal_filesystem_walk";
|
|
467, "selinux_relabel";
|
|
468, "download_blocks";
|
|
469, "aug_transform";
|
|
470, "internal_find_inode";
|
|
471, "mksquashfs";
|
|
472, "yara_load";
|
|
473, "yara_destroy";
|
|
474, "internal_yara_scan";
|
|
475, "file_architecture";
|
|
476, "list_filesystems";
|
|
477, "part_resize";
|
|
478, "hivex_value_utf8";
|
|
479, "hivex_value_string";
|
|
480, "inspect_os";
|
|
481, "inspect_get_roots";
|
|
482, "inspect_get_format";
|
|
483, "inspect_get_type";
|
|
484, "inspect_get_distro";
|
|
485, "inspect_get_package_format";
|
|
486, "inspect_get_package_management";
|
|
487, "inspect_get_product_name";
|
|
488, "inspect_get_product_variant";
|
|
489, "inspect_get_major_version";
|
|
490, "inspect_get_minor_version";
|
|
491, "inspect_get_arch";
|
|
492, "inspect_get_hostname";
|
|
493, "inspect_get_windows_systemroot";
|
|
494, "inspect_get_windows_software_hive";
|
|
495, "inspect_get_windows_system_hive";
|
|
496, "inspect_get_windows_current_control_set";
|
|
497, "inspect_is_live";
|
|
498, "inspect_is_netinst";
|
|
499, "inspect_is_multipart";
|
|
500, "inspect_get_mountpoints";
|
|
501, "inspect_get_filesystems";
|
|
502, "inspect_get_drive_mappings";
|
|
503, "part_set_gpt_attributes";
|
|
504, "part_get_gpt_attributes";
|
|
505, "f2fs_expand";
|
|
506, "lvm_scan";
|
|
507, "luks_uuid";
|
|
508, "cryptsetup_open";
|
|
509, "cryptsetup_close";
|
|
510, "internal_list_rpm_applications";
|
|
]
|
|
|
|
(* End of list. If adding a new entry, add it at the end of the list
|
|
* above. Do not modify anything below this line.
|
|
*----------------------------------------------------------------------
|
|
*)
|
|
|
|
let max_proc_nr =
|
|
(* Checks the list of procedure numbers is monotonically increasing,
|
|
* which guarantees there are no duplicates.
|
|
*)
|
|
let v = ref (fst (List.hd proc_nr) - 1) in
|
|
List.iter (
|
|
fun (v', _) ->
|
|
if !v >= v' then
|
|
failwith "proc_nr.ml: list of procedure numbers is not monotonically increasing";
|
|
v := v'
|
|
) proc_nr;
|
|
|
|
(* This is used to generate the lib/MAX_PROC_NR file which
|
|
* contains the maximum procedure number, a surrogate for the
|
|
* ABI version number. See lib/Makefile.am for the details.
|
|
*)
|
|
!v
|
|
|
|
let () =
|
|
(* Check there are no duplicate names. *)
|
|
let h = Hashtbl.create (List.length proc_nr) in
|
|
List.iter (
|
|
fun (_, name) ->
|
|
if Hashtbl.mem h name then
|
|
failwith "proc_nr.ml: duplicate name in procedure table";
|
|
Hashtbl.add h name true
|
|
) proc_nr
|