config

   1 @@-
   2 chomp($nodename= `uname -n`); $? and die 'uname $?';
   3 ($hostname)=(gethostbyname $nodename) or die "hostname $nodename ?";
   4 $nodename =~ s/\..*//;
   5
   6 $xbindir= '/usr/bin/X11';
   7
   8 chomp($s= `uname`); $? and die "platform $?";
   9 if ($s =~ m/^Linux$/) {
  10     chomp($_= `uname -m`); $? and die "platform $?";
  11     if (m/^i\d86/) {
  12         $platform= 'linux-i386';
  13     } else {
  14         die "$_ ?";
  15     }
  16 } elsif ($s =~ m/^SunOS$/) {
  17     chomp($_= `uname -r`); $? and die "platform $?";
  18     m/^\d+\.\d+/ or die "$_ ?";
  19     $platform= "SunOS$&";
  20     $xbindir= '/usr/openwin/bin';
  21 } else {
  22     die "$s ?";
  23 }
  24
  25 $ncipher= $hostname =~ m/\.ncipher\.com$/ ? 'cam' :
  26           $hostname =~ m/\.ncipherusa\.com$/ ? 'bos' :
  27           0;
  28