Understand if host canonical name has no dot.

[ian-dotfiles.git] / config

diff --git a/config b/config
index b150190edbaf73f5a9d6f58a2a4343d0a1dc033d..34a0e56eadad4ff816b483e211b78fe084495049 100644 (file)
--- a/config
+++ b/config
@@ -1,8 +1,11 @@
 @@-
 chomp($nodename= `uname -n`); $? and die 'uname $?';
-($hostname)=(gethostbyname $nodename) or die "hostname $nodename ?";
-$nodename =~ s/\..*//;
 
+@he= gethostbyname $nodename or die "gethostbyname $nodename ?";
+@hostnames= ($he[0], split /\s/, $he[1]);
+($hostname)= grep /\./, @hostnames or die "no fqdn in @hostnames";
+
+$nodename =~ s/\..*//;
 $xbindir= '/usr/bin/X11';
 
 chomp($uname= `uname`); $? and die "platform $?";
@@ -18,6 +21,10 @@ if ($uname =~ m/^Linux$/) {
     m/^\d+\.\d+/ or die "$_ ?";
     $platform= "SunOS$&";
     $xbindir= '/usr/openwin/bin';
+} elsif ($uname =~ m/^HP\-UX/) {
+    chomp($_= `uname -r`); $? and die "platform $?";
+    m/^B\.(\d+\.\d+)$/ or die "$_ ?";
+    $platform= "HP-UX$1";
 } else {
     die "$uname ?";
 }