chomp($hostname= `uname -n`); $? and die 'uname $?';
($hostname)=(gethostbyname $hostname) or die "hostname $hostname ?";
-chomp($s= `uname`); $? and die 'platform $?';
+chomp($s= `uname`); $? and die "platform $?";
if ($s =~ m/^Linux$/) {
- chomp($_= `uname -m`); $? and die 'platform $?';
+ chomp($_= `uname -m`); $? and die "platform $?";
if (m/^i\d86/) {
$platform= 'linux-i386';
} else {
- die '$_ ?';
+ die "$_ ?";
}
+} elsif ($s =~ m/^SunOS$/) {
+ chomp($_= `uname -r`); $? and die "platform $?";
+ m/^\d+\.\d+/ or die "$_ ?";
+ $platform= "SunOS$&";
+} else {
+ die "$s ?";
}
$ncipher= $hostname =~ m/\.ncipher\.com$/ ? 'cam' :