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

View of /Clearinghouse/test_deposit_upload.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Thu Apr 7 16:21:54 2005 UTC (14 years, 6 months ago) by disz
Branch: MAIN
CVS Tags: myrast_33, HEAD
testing routines for clearinghouse code

#!/usr/bin/env perl

use SOAP::Lite;

my $proxy = SOAP::Lite-> uri('http://www.soaplite.com/Scripts')                                             -> proxy('http://localhost/disz/FIG/clearinghouse_services.cgi');


if (@ARGV != 1) {
	die "Usage deposit_upload id\n";
}

$response = $proxy->finish_upload($ARGV[0]);  

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


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3