config

   1 @@-
   2 chomp($nodename= `uname -n`); $? and die "uname $?";
   3 chomp($username= `whoami`); $? and die "whoami $?";
   4
   5 @he= gethostbyname $nodename or die "gethostbyname $nodename ?";
   6 @hostnames= ($he[0], split /\s/, $he[1]);
   7 ($hostname)= grep /\./, @hostnames or die "no fqdn in @hostnames";
   8
   9 $nodename =~ s/\..*//;
  10 $xbindir= '/usr/bin/X11';
  11
  12 chomp($uname= `uname`); $? and die "platform $?";
  13 if ($uname =~ m/^Linux$/) {
  14     chomp($_= `uname -m`); $? and die "platform $?";
  15     if (m/^i\d86/) {
  16         $platform= 'linux-i386';
  17     } else {
  18         die "$_ ?";
  19     }
  20 } elsif ($uname =~ m/^SunOS$/) {
  21     chomp($_= `uname -r`); $? and die "platform $?";
  22     m/^\d+\.\d+/ or die "$_ ?";
  23     $platform= "SunOS$&";
  24     $xbindir= '/usr/openwin/bin';
  25 } elsif ($uname =~ m/^FreeBSD/) {
  26     chomp($_= `uname -r`); $? and die "platform $?";
  27     m/^(\d+\.\d+)\-/ or die "$_ ?";
  28     $platform= "FreeBSD-$1";
  29 } elsif ($uname =~ m/^HP\-UX/) {
  30     chomp($_= `uname -r`); $? and die "platform $?";
  31     m/^B\.(\d+\.\d+)$/ or die "$_ ?";
  32     $platform= "HP-UX$1";
  33 } elsif ($uname =~ m/^AIX/) {
  34     chomp($_= `uname -rv`); $? and die "platform $?";
  35     m/^\d+ (\d+)$/ or die "$_ ?";
  36     $platform= "AIX$1";
  37 } else {
  38     die "$uname ?";
  39 }
  40
  41 $ncipher= $hostname =~ m/\.(ncipher\.com$)/    ? 'cam' :
  42           $hostname =~ m/\.(ncipherusa\.com$)/ ? 'bos' :
  43           0;
  44
  45 %ncipherdom= ('cam' => 'ncipher.com',
  46               'bos' => 'ncipherusa.com');