[pve-devel] [PATCH container] Close #999: gentoo: hostname is in /etc/conf.d/hostname

[Wolfgang Bumiller]

This is also a shell-style assignment but should only
contain the hostname and nothing else. Although if someone
complains we could switch to ct_modify_file there as well.
---
 src/PVE/LXC/Setup/Gentoo.pm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/src/PVE/LXC/Setup/Gentoo.pm b/src/PVE/LXC/Setup/Gentoo.pm
index 762cb74..c1810bb 100644
--- a/src/PVE/LXC/Setup/Gentoo.pm
+++ b/src/PVE/LXC/Setup/Gentoo.pm
@@ -149,4 +149,37 @@ sub setup_network {
     }
 }
 
+sub set_hostname {
+    my ($self, $conf) = @_;
+
+    my $hostname = $conf->{hostname} || 'localhost';
+
+    my $namepart = ($hostname =~ s/\..*$//r);
+
+    my $hostname_fn = "/etc/conf.d/hostname";
+
+    my $oldname = 'localhost';
+    my $fh = $self->ct_open_file_read($hostname_fn);
+    while (defined(my $line = <$fh>)) {
+	chomp $line;
+	next if $line =~ /^\s*(#.*)?$/;
+	if ($line =~ /^\s*hostname=("[^"]*"|'[^']*'|\S*)\s*$/) {
+	    $oldname = $1;
+	    last;
+	}
+    }
+    $fh->close();
+
+    my ($ipv4, $ipv6) = PVE::LXC::get_primary_ips($conf);
+    my $hostip = $ipv4 || $ipv6;
+
+    my ($searchdomains) = $self->lookup_dns_conf($conf);
+
+    $self->update_etc_hosts($hostip, $oldname, $hostname, $searchdomains);
+
+    # This is supposed to contain only the hostname, so we just replace the
+    # file.
+    $self->ct_file_set_contents($hostname_fn, "hostname=\"$namepart\"\n");
+}
+
 1;
-- 
2.1.4