@@-
-chomp($hostname= `uname -n`); $? and die;
+chomp($hostname= `uname -n`); $? and die 'uname $?';
+($hostname)=(gethostbyname $hostname) or die "hostname $hostname ?";
+
+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 '$_ ?';
+ }
+}
+
+$ncipher= $hostname =~ m/\.ncipher\.com$/
+ || $hostname =~ m/\.ncipherusa\.com$/;