#!/usr/bin/perl -w
require "./c.pl";


open(OUTFO,">>$OUT_DIR/out.log");

$TARGET="domain";
$app= "webapps-caching.war";

@name=split (/\./, $app);


$i=1;
for $vers ($name[0]."1.".$name[1], $name[0]."2.".$name[1]){
$cont="helloworld";
print OUTFO "$TARGET, ($vers) deploy --name temp:$i --contextroot $cont --target $TARGET ";
$out=`$S1AS_HOME/bin/asadmin deploy --name temp:$i --contextroot $cont --target $TARGET $OUT_DIR/version/$vers`;
print "$out";
$out=`echo $?`;
if ($out == 0){
print OUTFO "0\n";
}else{
print OUTFO "1\n";
}


print OUTFO "$TARGET, ($vers) create-application-ref --target cluster or server temp:* ";
$out=`$S1AS_HOME/bin/asadmin create-application-ref --enabled=false --target $CLUSTER "temp:*"`;
print "$out";
$out=`echo $?`;
if ($out == 0){
print OUTFO "0\n";
}else{
print OUTFO "1\n";
}

$result=1;
print OUTFO "$TARGET, ($vers) list-application-refs cluster ";
open(IN,"$S1AS_HOME/bin/asadmin list-application-refs --long $CLUSTER|");
while (<IN>)
{
  chop ($_);
  print "$_\n";
  if (length $_ && $_ !~ m/command/i && $_ !~ m/Nothing/i)
  {
  @app=split /\s+/, $_;
  if ($app[0] =~ /temp:$i/){
    if ($app[1] =~ /disabled/){
      $result=0;
    } 
 }
}
}
$out=`echo $?`;
$out=$out + $result;
if ($out == 0){
print OUTFO "0\n";
}else{
print OUTFO "1\n";
}



print OUTFO "$TARGET, ($vers) enable  --target cluster temp:$i ";
$out=`$S1AS_HOME/bin/asadmin enable --target $CLUSTER temp:$i`;
print "$out";
$out=`echo $?`;
if ($out == 0){
print OUTFO "0\n";
}else{
print OUTFO "1\n";
}


$i++;
}

print OUTFO "$TARGET, ($name[0]) delete-application-ref --target $CLUSTER temp:* ";
$out=`$S1AS_HOME/bin/asadmin delete-application-ref --target $CLUSTER "temp:*"`;
print $out;
$out=`echo $?`;
if ($out == 0){
print OUTFO "0\n";
}else{
print OUTFO "1\n";
}

print OUTFO "$TARGET, ($name[0]) undeploy temp:* ";
$out=`$S1AS_HOME/bin/asadmin undeploy --target $TARGET "temp:*"`;
print $out;
$out=`echo $?`;
if ($out == 0){
print OUTFO "0\n";
}else{
print OUTFO "1\n";
}



print OUTFO "$TARGET, (timersession) deploy using a version an archive with appclient ";
$out=`$S1AS_HOME/bin/asadmin deploy --target $TARGET --name=timersession:1.0 --retrieve $OUT_DIR $OUT_DIR/archives_nodb/timersession.ear`;
print "$out";
$out=`echo $?`;
if ( $out == 0 ){
print OUTFO "0\n";
}else{
print OUTFO "1\n";
}

$out=`$S1AS_HOME/bin/asadmin undeploy --target $TARGET "timersession:*"`;
print "$out";