@@-
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]);
($hostname)= grep /\./, @hostnames or die "no fqdn in @hostnames";

$nodename =~ s/\..*//;
$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 ($uname =~ m/^SunOS$/) {
    chomp($_= `uname -r`); $? and die "platform $?";
    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 ?";
}

$ncipher= $hostname =~ m/\.(ncipher\.com$)/    ? 'cam' :
          $hostname =~ m/\.(ncipherusa\.com$)/ ? 'bos' :
          0;

$chiark=  $hostname =~ m/chiark/;
$laptop=  $hostname =~ m/liberator|norway/;

%ncipherdom= ('cam' => 'ncipher.com',
	      'bos' => 'ncipherusa.com');