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

View of /Clearinghouse/test_key.pl

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.2 - (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.1: +3 -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_by_key("curator", "Master:RossO");  

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