@@-
-chomp($hostname= `uname -n`); $? and die;
+chomp($nodename= `uname -n`); $? and die 'uname $?';
+($hostname)=(gethostbyname $nodename) or die "hostname $nodename ?";
+
+$xbindir= '/usr/bin/X11';
+
+chomp($s= `uname`); $? and die "platform $?";
+if ($s =~ m/^Linux$/) {
+ chomp($_= `uname -m`); $? and die "platform $?";
+ if (m/^i\d86/) {
+ $platform= 'linux-i386';
+ } else {
+ die "$_ ?";
+ }
+} elsif ($s =~ m/^SunOS$/) {
+ chomp($_= `uname -r`); $? and die "platform $?";
+ m/^\d+\.\d+/ or die "$_ ?";
+ $platform= "SunOS$&";
+ $xbindir= '/usr/openwin/bin';
+} else {
+ die "$s ?";
+}
+
+$ncipher= $hostname =~ m/\.ncipher\.com$/ ? 'cam' :
+ $hostname =~ m/\.ncipherusa\.com$/ ? 'bos' :
+ 0;
+