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

View of /Clearinghouse/test_what_is_there.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (download) (as text) (annotate)
Wed Apr 20 19:54:31 2005 UTC (14 years, 6 months ago) by olson
Branch: MAIN
CVS Tags: myrast_33, HEAD
Changes since 1.3: +4 -1 lines
Replace hardcoded service url with $CH_Config::service_url.

Unset HTTP_HOST in the service so that FIG::cgi_url  works.

#!/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);


$response = $proxy->what_is_there("ID");  

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


for my $row (@{$response->result}) {
	my ($id, $type, $meta_data, $desc, $who, $source) = @$row;
	print $id, $type, $meta_data, $desc, $who, $source,  "\n";
}




MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3