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($uname= `uname`); $? and die "platform $?";
   9 if ($uname =~ 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 ($uname =~ m/^SunOS$/) {
  17     chomp($_= `uname -r`); $? and die "platform $?";
  18     m/^\d+\.\d+/ or die "$_ ?";
  19     $platform= "SunOS$&";
  20     $xbindir= '/usr/openwin/bin';
  21 } elsif ($uname =~ m/^HP\-UX/) {
  22     chomp($_= `uname -r`); $? and die "platform $?";
  23     m/^B\.(\d+\.\d+)$/ or die "$_ ?";
  24     $platform= "HP-UX$1";
  25 } else {
  26     die "$uname ?";
  27 }
  28
  29 $ncipher= $hostname =~ m/\.(ncipher\.com$)/    ? 'cam' :
  30           $hostname =~ m/\.(ncipherusa\.com$)/ ? 'bos' :
  31           0;
  32
  33 %ncipherdom= ('cam' => 'ncipher.com',
  34               'bos' => 'ncipherusa.com');