Changeset 1397 in genapp

Timestamp:

Feb 9, 2018, 3:39:04 PM (4 years ago)

Author:

ehb

Message:

validate and warn about bad hostname

File:

• sbin/setconfig.pl (modified) (1 diff)

sbin/setconfig.pl

@@ -255 +255 @@
 }
 
+$hostname = $$json{ 'hostname' };
+# verify hostname matches ip address
+{
+    my $nametoip;
+    if ( `which dig 2> /dev/null` ) {
+        $nametoip = `dig +short $hostname`;
+    } else {
+        $nametoip = `host $hostname | awk '/has address/ { print \$4 }'`;
+    }
+    chomp $nametoip;
+    if ( $nametoip ne $hostip ) {
+        $notice .= "WARNING: the ip address from a DNS lookup [$nametoip] of the hostname [$hostname] does not match the hostip [$hostip]. This will create issues unless you really understand what you are doing!\n";
+    }
+}
+
+
 my $wssport   = $https ? 443 : 80;
 my $wsport    = 30777;