[Libguestfs] [PATCH] sysprep: handle at jobs in cron-spool operation

[Olaf Hering]

cron-spool claims to remove at jobs, but it has no code to actually do
that. Add patterns to remove files in known at spool locations.

Signed-off-by: Olaf Hering <olaf at aepfle.de>
---

This patch is only compile tested!

 sysprep/sysprep_operation_cron_spool.ml | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/sysprep/sysprep_operation_cron_spool.ml b/sysprep/sysprep_operation_cron_spool.ml
index 5284660..e96832c 100644
--- a/sysprep/sysprep_operation_cron_spool.ml
+++ b/sysprep/sysprep_operation_cron_spool.ml
@@ -23,6 +23,12 @@ module G = Guestfs
 
 let cron_spool_perform g root =
   Array.iter g#rm_rf (g#glob_expand "/var/spool/cron/*");
+  Array.iter g#rm (g#glob_expand "/var/spool/atjobs/*");
+  Array.iter g#rm (g#glob_expand "/var/spool/atjobs/.SEQ");
+  Array.iter g#rm (g#glob_expand "/var/spool/atspool/*");
+  Array.iter g#rm (g#glob_expand "/var/spool/at/*");
+  Array.iter g#rm (g#glob_expand "/var/spool/at/.SEQ");
+  Array.iter g#rm (g#glob_expand "/var/spool/at/spool/*");
   []
 
 let cron_spool_op = {
-- 
1.7.12