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

Annotation of /Clearinghouse/test_key.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3