From 713790a4caa9976117eea68ecb3c588658453f23 Mon Sep 17 00:00:00 2001 From: Dietmar Maurer Date: Mon, 19 Jan 2015 06:44:50 +0100 Subject: [PATCH] auto-generate reasonable hostname --- proxinstall | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/proxinstall b/proxinstall index c7b2600..36f5221 100755 --- a/proxinstall +++ b/proxinstall @@ -1542,12 +1542,14 @@ sub get_ip_config { my $resolvconf = `cat /etc/resolv.conf`; my ($dnsserver) = $resolvconf =~ m/^nameserver\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/m; + my ($domain) = $resolvconf =~ m/^domain\s+(\S+)$/m; return { addr => $addr, mask => $mask, gateway => $gateway, dnsserver => $dnsserver, + domain => $domain, } } @@ -1584,8 +1586,10 @@ sub create_ipconf_view { my $addr = $ipconf->{addr} || '192.168.100.2'; my $mask = $ipconf->{mask} || '255.255.255.0'; + my $hn = $ipconf->{domain} ? "pve.$ipconf->{domain}" : 'pve.domain.tld'; + my ($hostbox, $hostentry) = - creat_text_input ('proxmox.domain.tld', 'Hostname (FQDN):'); + creat_text_input ($hn, 'Hostname (FQDN):'); $vbox2->pack_start ($hostbox, 0, 0, 2); my $ipbox; -- 2.39.5