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