auto-generate reasonable hostname

diff --git a/proxinstall b/proxinstall
index c7b2600177ae3f2e1986964d4c8c348fbb68c733..36f5221794ef42c8cf6d55951858af961df1bce1 100755 (executable)
--- 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;