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

View of /Clearinghouse/test_take_this_deposit_from_me.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: +3 -2 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);

if (@ARGV != 6) {
	die "Usage deposit type, who, meta_data, description, source, pkg_url\n";
}

my $meta_data = `cat $ARGV[2]`;
$response = $proxy->take_this_pkg($ARGV[0], $ARGV[1], $meta_data, $ARGV[3], $ARGV[4], $ARGV[5]);  

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


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3