#!/usr/bin/perl

$out=`$ENV{'S1AS_HOME'}/bin/asadmin start-domain`;
print $out;
$out=`$ENV{'S1AS_HOME'}/bin/asadmin stop-cluster $ENV{'CLUSTER'}`;
print $out;
$out=`$ENV{'S1AS_HOME'}/bin/asadmin delete-local-instance my-in1`;
print $out;
$out=`$ENV{'S1AS_HOME'}/bin/asadmin delete-local-instance my-in2`;
print $out;
$out=`$ENV{'S1AS_HOME'}/bin/asadmin delete-cluster $ENV{'CLUSTER'}`;
print $out;