@@-
-chomp($nodename= `uname -n`); $? and die 'uname $?';
+chomp($nodename= `uname -n`); $? and die "uname $?";
+chomp($username= `whoami`); $? and die "whoami $?";
@he= gethostbyname $nodename or die "gethostbyname $nodename ?";
@hostnames= ($he[0], split /\s/, $he[1]);
m/^\d+\.\d+/ or die "$_ ?";
$platform= "SunOS$&";
$xbindir= '/usr/openwin/bin';
+} elsif ($uname =~ m/^FreeBSD/) {
+ chomp($_= `uname -r`); $? and die "platform $?";
+ m/^(\d+\.\d+)\-/ or die "$_ ?";
+ $platform= "FreeBSD-$1";
+ $xbindir= '/usr/X11R6/bin';
} elsif ($uname =~ m/^HP\-UX/) {
chomp($_= `uname -r`); $? and die "platform $?";
m/^B\.(\d+\.\d+)$/ or die "$_ ?";
$platform= "HP-UX$1";
+} elsif ($uname =~ m/^AIX/) {
+ chomp($_= `uname -rv`); $? and die "platform $?";
+ m/^\d+ (\d+)$/ or die "$_ ?";
+ $platform= "AIX$1";
} else {
die "$uname ?";
}
$hostname =~ m/\.(ncipherusa\.com$)/ ? 'bos' :
0;
+$chiark= $hostname =~ m/chiark/;
+
%ncipherdom= ('cam' => 'ncipher.com',
'bos' => 'ncipherusa.com');