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

[Richard W.M. Jones]

---
 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