mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

sysprep: remove the cache of package manager

Browse Source 
Remove the cache of package manager like yum and apt.

Signed-off-by: Wanlong Gao <gaowanlong@cn.fujitsu.com>

RWMJ:
- Small code cleanup.
This commit is contained in:
Wanlong Gao
2012-04-24 15:23:48 +08:00
committed by Richard W.M. Jones
parent 95515c4576
commit 7fc7c3aa5b
2 changed files with 47 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
sysprep/Makefile.am
View File

@@ -42,6 +42,7 @@ SOURCES = \
sysprep_operation_logfiles.ml \
sysprep_operation_mail_spool.ml \
sysprep_operation_net_hwaddr.ml \
sysprep_operation_package_manager_cache.ml \
sysprep_operation_random_seed.ml \
sysprep_operation_rhn_systemid.ml \
sysprep_operation_script.ml \
@@ -69,6 +70,7 @@ OBJECTS = \
sysprep_operation_logfiles.cmx \
sysprep_operation_mail_spool.cmx \
sysprep_operation_net_hwaddr.cmx \
sysprep_operation_package_manager_cache.ml \
sysprep_operation_random_seed.cmx \
sysprep_operation_rhn_systemid.cmx \
sysprep_operation_script.cmx \

45
sysprep/sysprep_operation_package_manager_cache.ml Normal file
View File

@@ -0,0 +1,45 @@
(* virt-sysprep
* Copyright (C) 2012 FUJITSU LIMITED
*
* 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.
*)
open Sysprep_operation
module G = Guestfs
let package_manager_cache_perform g root =
let packager = g#inspect_get_package_management root in
let cache_dirs =
match packager with
| "yum" ->
Some (g#glob_expand "/var/cache/yum/*")
| "apt" ->
Some (g#glob_expand "/var/cache/apt/archives/*")
| _ -> None in
match cache_dirs with
| Some dirs -> Array.iter g#rm_rf dirs; []
| _ -> []
let package_manager_cache_op = {
name = "package-manager-cache";
enabled_by_default = true;
heading = "Remove package manager cache";
pod_description = None;
extra_args = [];
perform = package_manager_cache_perform;
}
let () = register_operation package_manager_cache_op