On Thu, Feb 13, 2014 at 03:10:41PM +0100, Pino Toscano wrote:
In Debian/Ubuntu systems, read the previous hostname from /etc/hostname
before replacing it, and replace it in /etc/hosts with the new hostname.
---
mllib/hostname.ml | 30 ++
1 file changed, 30 insertions(+)
diff --git a/mllib/hostname.ml b/mllib/hostname.ml
index fce16ff..70ca934 100644
--- a/mllib/hostname.ml
+++ b/mllib/hostname.ml
@@ -42,7 +42,12 @@ let rec set_hostname (g : Guestfs.guestfs) root hostname =
true
| linux, (debian|ubuntu), _ -
+let old_hostname = read_etc_hostname g in
update_etc_hostname g hostname;
+(match old_hostname with
+| Some old_hostname - replace_host_in_etc_hosts g old_hostname hostname
+| None - ()
+);
true
| linux, (fedora|rhel|centos|scientificlinux|redhat-based), _
-
@@ -78,3 +83,28 @@ and update_etc_hostname g hostname =
and update_etc_machine_info g hostname =
replace_line_in_file g /etc/machine-info PRETTY_HOSTNAME hostname
+
+and read_etc_hostname g =
+ let filename = /etc/hostname in
+ if g#is_file filename then (
+let lines = Array.to_list (g#read_lines filename) in
+match lines with
+| hd :: _ - Some hd
+| [] - None
+ ) else
+None
+
+and replace_host_in_etc_hosts g oldhost newhost =
+ if g#is_file /etc/hosts then (
+let expr = /files/etc/hosts/*[label() != '#comment']/*[label() !=
'ipaddr'] in
+g#aug_init / 0;
+let matches = Array.to_list (g#aug_match expr) in
+List.iter (
+ fun m -
+let value = g#aug_get m in
+if value = oldhost then (
+ g#aug_set m newhost
+)
+) matches;
+g#aug_save ()
+ )
Yup, third time lucky :-)
ACK.
Rich.
--
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
___
Libguestfs mailing list
Libguestfs@redhat.com
https://www.redhat.com/mailman/listinfo/libguestfs