#!/usr/local/bin/perl
print "**********************\n";
print "* This is a *\n";
print "* test script *\n";
print "**********************\n";
my $inputFile = $ARGV[0];
my %properties;
open (FILE, "<$inputFile") or die "can't open $inputFile for reading: $!";
print "Input properties:\n";
while (<FILE>)
{
chomp;
my ($key, $val) = split /=/;
$properties{$key} = $val;
print "\t$key=$val\n";
}
close FILE;
my $mwHome = $properties{MIDDLEWARE_HOME};
my $protocol = $properties{ADMIN_PROTOCOL};
my $host =$properties{ADMIN_SERVER_LISTEN_ADDRESS};
my $port = $properties{ADMIN_SERVER_LISTEN_PORT};
my $cmd = $mwHome."/wlserver_10.3/common/bin/wlst.sh listMyServers.py $protocol $host $port";
print "\nExecuting:\n\t$cmd\n";
print "\nOutput is:\n\n";
system($cmd);
exit 0;