#!perl -w

#===============================================================================
#
#         FILE:  EMSearchTestClient.pl 
#
#      PURPOSE:  EMSearch WS test 
#                searchContourLevelByAccessionCode(java.lang.String)
#
#        INPUT:  accession_code
#								      
#      RETURNS:  output of test
# REQUIREMENTS:  SOAP::Lite
#
#===============================================================================

use SOAP::Lite;
use English qw( -no_match_vars );

my $accession_code = shift;
my $wsdlpath  = "http://emsearch.rutgers.edu/EMSearchWS/wsdl/EMBusinessService.wsdl";
print "WSDL:   $wsdlpath"."\n";
print "==============================Test Results======================================\n";      
print SOAP::Lite
    -> service("$wsdlpath")
    -> searchContourLevelByAccessionCode("$accession_code");
print "\n";
print "================================================================================\n";