Pino Toscano
2014-Feb-13 10:00 UTC
[Libguestfs] [PATCH] sysprep: remove RH subscription manager files
Add a new operation for it, which should do what
`subscription-manager clean` does.
Part of RHBZ#1063374.
---
po/POTFILES-ml | 1 +
sysprep/Makefile.am | 1 +
.../sysprep_operation_rh_subscription_manager.ml | 42 ++++++++++++++++++++++
3 files changed, 44 insertions(+)
create mode 100644 sysprep/sysprep_operation_rh_subscription_manager.ml
diff --git a/po/POTFILES-ml b/po/POTFILES-ml
index cd869fb..7937728 100644
--- a/po/POTFILES-ml
+++ b/po/POTFILES-ml
@@ -57,6 +57,7 @@ sysprep/sysprep_operation_pam_data.ml
sysprep/sysprep_operation_password.ml
sysprep/sysprep_operation_puppet_data_log.ml
sysprep/sysprep_operation_random_seed.ml
+sysprep/sysprep_operation_rh_subscription_manager.ml
sysprep/sysprep_operation_rhn_systemid.ml
sysprep/sysprep_operation_rpm_db.ml
sysprep/sysprep_operation_samba_db_log.ml
diff --git a/sysprep/Makefile.am b/sysprep/Makefile.am
index 4c03c7f..2600477 100644
--- a/sysprep/Makefile.am
+++ b/sysprep/Makefile.am
@@ -60,6 +60,7 @@ operations = \
password \
puppet_data_log \
random_seed \
+ rh_subscription_manager \
rhn_systemid \
rpm_db \
samba_db_log \
diff --git a/sysprep/sysprep_operation_rh_subscription_manager.ml
b/sysprep/sysprep_operation_rh_subscription_manager.ml
new file mode 100644
index 0000000..d6c38b2
--- /dev/null
+++ b/sysprep/sysprep_operation_rh_subscription_manager.ml
@@ -0,0 +1,42 @@
+(* virt-sysprep
+ * Copyright (C) 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.
+ *)
+
+open Sysprep_operation
+open Common_gettext.Gettext
+
+module G = Guestfs
+
+let rh_subscription_manager_perform g root side_effects + let typ =
g#inspect_get_type root in
+ let distro = g#inspect_get_distro root in
+
+ match typ, distro with
+ | "linux", "rhel" ->
+ Array.iter g#rm_rf (g#glob_expand "/etc/pki/consumer/*");
+ Array.iter g#rm_rf (g#glob_expand "/etc/pki/entitlement/*")
+ | _ -> ()
+
+let op = {
+ defaults with
+ name = "rh-subscription-manager";
+ enabled_by_default = true;
+ heading = s_"Remove the RH subscription manager files";
+ perform_on_filesystems = Some rh_subscription_manager_perform;
+}
+
+let () = register_operation op
--
1.8.3.1
Richard W.M. Jones
2014-Feb-13 10:25 UTC
Re: [Libguestfs] [PATCH] sysprep: remove RH subscription manager files
On Thu, Feb 13, 2014 at 11:00:26AM +0100, Pino Toscano wrote:> Add a new operation for it, which should do what > `subscription-manager clean` does. > > Part of RHBZ#1063374.ACK. Rich.> po/POTFILES-ml | 1 + > sysprep/Makefile.am | 1 + > .../sysprep_operation_rh_subscription_manager.ml | 42 ++++++++++++++++++++++ > 3 files changed, 44 insertions(+) > create mode 100644 sysprep/sysprep_operation_rh_subscription_manager.ml > > diff --git a/po/POTFILES-ml b/po/POTFILES-ml > index cd869fb..7937728 100644 > --- a/po/POTFILES-ml > +++ b/po/POTFILES-ml > @@ -57,6 +57,7 @@ sysprep/sysprep_operation_pam_data.ml > sysprep/sysprep_operation_password.ml > sysprep/sysprep_operation_puppet_data_log.ml > sysprep/sysprep_operation_random_seed.ml > +sysprep/sysprep_operation_rh_subscription_manager.ml > sysprep/sysprep_operation_rhn_systemid.ml > sysprep/sysprep_operation_rpm_db.ml > sysprep/sysprep_operation_samba_db_log.ml > diff --git a/sysprep/Makefile.am b/sysprep/Makefile.am > index 4c03c7f..2600477 100644 > --- a/sysprep/Makefile.am > +++ b/sysprep/Makefile.am > @@ -60,6 +60,7 @@ operations = \ > password \ > puppet_data_log \ > random_seed \ > + rh_subscription_manager \ > rhn_systemid \ > rpm_db \ > samba_db_log \ > diff --git a/sysprep/sysprep_operation_rh_subscription_manager.ml b/sysprep/sysprep_operation_rh_subscription_manager.ml > new file mode 100644 > index 0000000..d6c38b2 > --- /dev/null > +++ b/sysprep/sysprep_operation_rh_subscription_manager.ml > @@ -0,0 +1,42 @@ > +(* virt-sysprep > + * Copyright (C) 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. > + *) > + > +open Sysprep_operation > +open Common_gettext.Gettext > + > +module G = Guestfs > + > +let rh_subscription_manager_perform g root side_effects > + let typ = g#inspect_get_type root in > + let distro = g#inspect_get_distro root in > + > + match typ, distro with > + | "linux", "rhel" -> > + Array.iter g#rm_rf (g#glob_expand "/etc/pki/consumer/*"); > + Array.iter g#rm_rf (g#glob_expand "/etc/pki/entitlement/*") > + | _ -> () > + > +let op = { > + defaults with > + name = "rh-subscription-manager"; > + enabled_by_default = true; > + heading = s_"Remove the RH subscription manager files"; > + perform_on_filesystems = Some rh_subscription_manager_perform; > +} > + > +let () = register_operation op > -- > 1.8.3.1 > > _______________________________________________ > Libguestfs mailing list > Libguestfs@redhat.com > https://www.redhat.com/mailman/listinfo/libguestfs-- Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones virt-top is 'top' for virtual machines. Tiny program with many powerful monitoring features, net stats, disk stats, logging, etc. http://people.redhat.com/~rjones/virt-top