#!/usr/bin/perl -I/opt/SUNWstade/lib

use SO;

($errors, $log, $report) = SO->install(undef, { help => $ARGV[0] } );

if ($ARGV[0] eq "-H") {
  print "************** LOG **************\n";
  print $log;
}
if ($ARGV[0] eq "-h" || $ARGV[0] eq "-H") {
  print $report;
}
if ($ARGV[0] eq "-H") {
  print $errors;
}
if ($errors) {
  exit 1;
} else {
  exit 0;
}
