#!/usr/bin/perl 
require "./conf_temp.pl";
open(OUTFO,">>$HOME/out.log");

$out=`$AS_HOME/bin/asadmin stop-domain`;
print "$out";
$out=`$AS_HOME/bin/asadmin start-domain`;
print "$out";

for $app ("webapps-caching.war"){

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


for $char ("-", "_", "#", ";", "."){
$result=0;
print OUTFO "($name[0]) deploy, list, undeploy app with a special char.: $char ";
$out=`$AS_HOME/bin/asadmin deploy --name "$name[0]$char" --target $TARGET $HOME/$name[0]`;
print "$out";
$out=`echo $?`;
$result=$result+$out;

$out=`$AS_HOME/bin/asadmin list-components`;
print "$out";
if ($out !~ /$name[0]$char/){
$result=$result+1;
}
$out=`echo $?`;
$result=$result+$out;

$out=`$AS_HOME/bin/asadmin undeploy "$name[0]$char"`;
print "$out";
$out=`echo $?`;
$result=$result+$out;

if ($result == 0){
print OUTFO "0\n";
}else{
print OUTFO "1\n";
}
}
print OUTFO "($name[0]) negative: deploy with a name that has two colons ";
$out=`$AS_HOME/bin/asadmin deploy --name $name[0]:abc:1 --target $TARGET $HOME/$name[0]`;
print "$out";
$out=`echo $?`;
if ($out == 0){
print OUTFO "1\n";
}else{
print OUTFO "0\n";
}


}