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

Annotation of /Clearinghouse/test_key.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : disz 1.1 #!/usr/bin/env perl
2 :    
3 :     use SOAP::Lite;
4 :    
5 :     my $proxy = SOAP::Lite-> uri('http://www.soaplite.com/Scripts') -> proxy('http://localhost/CH/clearinghouse_services.cgi');
6 :    
7 :    
8 :     $response = $proxy->what_is_there_by_key("curator", "Master:RossO");
9 :    
10 :     if ($response->fault)
11 :     {
12 :     die "Failed to deposit: ", $response->faultcode, " ", $response->faultstring, "\n";
13 :     }
14 :    
15 :    
16 :     for my $row (@{$response->result}) {
17 :     my ($id, $type, $meta_data, $desc, $who, $source) = @$row;
18 :     print $id, $type, $meta_data, $desc, $who, $source, "\n";
19 :     }
20 :    
21 :    
22 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3