2 chomp($nodename= `uname -n`); $? and die 'uname $?';
3 ($hostname)=(gethostbyname $nodename) or die "hostname $nodename ?";
5 $xbindir= '/usr/bin/X11';
7 chomp($s= `uname`); $? and die "platform $?";
8 if ($s =~ m/^Linux$/) {
9 chomp($_= `uname -m`); $? and die "platform $?";
11 $platform= 'linux-i386';
15 } elsif ($s =~ m/^SunOS$/) {
16 chomp($_= `uname -r`); $? and die "platform $?";
17 m/^\d+\.\d+/ or die "$_ ?";
19 $xbindir= '/usr/openwin/bin';
24 $ncipher= $hostname =~ m/\.ncipher\.com$/ ? 'cam' :
25 $hostname =~ m/\.ncipherusa\.com$/ ? 'bos' :