#!/usr/bin/perl

$out=`$ENV{'S1AS_HOME'}/bin/asadmin start-domain`;
print $out;
$out=`$ENV{'S1AS_HOME'}/bin/asadmin create-cluster $ENV{'CLUSTER'}`;
print $out;
$out=`$ENV{'S1AS_HOME'}/bin/asadmin create-local-instance --cluster $ENV{'CLUSTER'} --systemproperties HTTP_LISTENER_PORT=18080:HTTP_SSL_LISTENER_PORT=18181:IIOP_SSL_LISTENER_PORT=13800:IIOP_LISTENER_PORT=$ENV{'IIOP_LISTENER_PORT'}:JMX_SYSTEM_CONNECTOR_PORT=17676:IIOP_SSL_MUTUALAUTH_PORT=13801:JMS_PROVIDER_PORT=18686:ASADMIN_LISTENER_PORT=14848 my-in1`;
print $out;

$out=`$ENV{'S1AS_HOME'}/bin/asadmin  create-local-instance --cluster $ENV{'CLUSTER'} --systemproperties HTTP_LISTENER_PORT=38080:HTTP_SSL_LISTENER_PORT=38181:IIOP_SSL_LISTENER_PORT=33800:IIOP_LISTENER_PORT=33700:JMX_SYSTEM_CONNECTOR_PORT=37676:IIOP_SSL_MUTUALAUTH_PORT=33801:JMS_PROVIDER_PORT=38686:ASADMIN_LISTENER_PORT=34848 my-in2`;
print $out;

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