[Bio] / Clearinghouse / test_start_up.pl Repository:
ViewVC logotype

View of /Clearinghouse/test_start_up.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (download) (as text) (annotate)
Wed Jan 11 22:57:15 2006 UTC (13 years, 9 months ago) by olson
Branch: MAIN
CVS Tags: myrast_33, HEAD
Changes since 1.3: +7 -0 lines
Add_feature code

#!/usr/bin/env perl

use SOAP::Lite;

use CH_Config;

my $proxy = SOAP::Lite-> uri('http://www.soaplite.com/Scripts')
	-> proxy($CH_Config::service_url);

print "would startup $CH_Config::service_url\n";

$response = $proxy->startup();  

if ($response->fault)
    {
        print "Failed to startup: ", $response->faultcode, " ", $response->faultstring, "\n";
    }

else
{
    my $resp = $response->result;
    print "Successful startup: $resp\n";
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3