@@- chomp($nodename= `uname -n`); $? and die 'uname $?'; ($hostname)=(gethostbyname $nodename) or die "hostname $nodename ?"; $nodename =~ s/\..*//; $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;