@@-
chomp($nodename= `uname -n`); $? and die 'uname $?';
($hostname)=(gethostbyname $nodename) or die "hostname $nodename ?";
+$nodename =~ s/\..*//;
$xbindir= '/usr/bin/X11';
die "$s ?";
}
-$ncipher= $hostname =~ m/\.ncipher\.com$/ ? 'cam' :
- $hostname =~ m/\.ncipherusa\.com$/ ? 'bos' :
+$ncipher= $hostname =~ m/\.(ncipher\.com$)/ ? 'cam' :
+ $hostname =~ m/\.(ncipherusa\.com$)/ ? 'bos' :
0;
+%ncipherdom= ('cam' => 'ncipher.com',
+ 'bos' => 'ncipherusa.com');