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

Annotation of /Clearinghouse/test_take_this_deposit_from_me.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : disz 1.1 #!/usr/bin/env perl
2 :    
3 :     use SOAP::Lite;
4 : olson 1.4 use CH_Config;
5 : disz 1.1
6 : olson 1.4 my $proxy = SOAP::Lite-> uri('http://www.soaplite.com/Scripts')
7 :     -> proxy($CH_Config::service_url);
8 : disz 1.1
9 :     if (@ARGV != 6) {
10 :     die "Usage deposit type, who, meta_data, description, source, pkg_url\n";
11 :     }
12 :    
13 : disz 1.3 my $meta_data = `cat $ARGV[2]`;
14 :     $response = $proxy->take_this_pkg($ARGV[0], $ARGV[1], $meta_data, $ARGV[3], $ARGV[4], $ARGV[5]);
15 : disz 1.1
16 :     if ($response->fault)
17 :     {
18 :     print "Failed to deposit: ", $response->faultcode, " ", $response->faultstring, "\n";
19 :     }
20 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3