From 1949016e899b2737525fdc9b6dda451ad9ecbd66 Mon Sep 17 00:00:00 2001 From: Olaf Hering Date: Fri, 21 Sep 2012 21:04:43 +0200 Subject: sysprep: handle at jobs in cron-spool operation 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 --- 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 5284660a..e96832c9 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 = { -- cgit