[Libguestfs] [PATCH 2/2] firstboot: Don't create very long filenames for --firstboot-command (RHBZ#1212152).

--- customize/firstboot.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/customize/firstboot.ml b/customize/firstboot.ml index c4af7a9..29ec544 100644 --- a/customize/firstboot.ml +++ b/customize/firstboot.ml @@ -30,7 +30,9 @@ let unix2dos s = let sanitize_name = let rex = Str.regexp "[^A-Za-z0-9_]" in fun n -> - Str.global_replace rex "-" n + let n = Str.global_replace rex "-" n in + let len = String.length n and max = 60 in + if len >= max then String.sub n 0 max else n (* For Linux guests. *) module Linux = struct -- 2.3.1