2 chomp($hostname= `uname -n`); $? and die 'uname $?';
3 ($hostname)=(gethostbyname $hostname) or die "hostname $hostname ?";
5 chomp($s= `uname`); $? and die 'platform $?';
6 if ($s =~ m/^Linux$/) {
7 chomp($_= `uname -m`); $? and die 'platform $?';
9 $platform= 'linux-i386';
15 $ncipher= $hostname =~ m/\.ncipher\.com$/ ? 'cam' :
16 $hostname =~ m/\.ncipherusa\.com$/ ? 'bos' :