GLite::Data::FileTransfer
GLite::Data::FileCatalog module provides a Perl client library for the FileTransfer interface.
The methods die if there was a SOAP fault. The fault string and details are added to the die message.
Note: you have to include the VO name in the URL!
my $srv = GLite::Data::FileTransfer->new('https://service.glite.org:8443/example');
my $myTransferParams = { keys => [ 'string1', 'string2', ... ], values => [ 'string1', 'string2', ... ] };
my $myPlacementJob = { logicalFiles => [ 'string1', 'string2', ... ], sourceSE => 'string', destSE => 'string', jobParams => $myTransferParams, credential => 'string' };
my $myTransferException = { message => 'string' };
my $myInvalidArgumentException = new TransferException ( );
my $myAuthorizationException = new TransferException ( );
my $myServiceBusyException = new TransferException ( );
my $myInternalException = new TransferException ( );
my $myTransferJobElement = { source => 'string', dest => 'string' };
my $myTransferJob = { transferJobElements => [ $myTransferJobElement1, $myTransferJobElement2, ... ], jobParams => $myTransferParams, credential => 'string' };
my $myJobStatus = { jobID => 'string', jobStatus => 'string', channelName => 'string', clientDN => 'string', reason => 'string', voName => 'string', submitTime => $mylong, numFiles => 9999, priority => 9999 };
my $myFileTransferStatus = { logicalName => 'string', sourceSURL => 'string', destSURL => 'string', transferFileState => 'string', numFailures => 9999, reason => 'string', reason_class => 'string', duration => $mylong };
my $myNotExistsException = new TransferException ( );
my $myTransferJobSummary = { jobStatus => $myJobStatus, numDone => 9999, numActive => 9999, numPending => 9999, numCanceled => 9999, numCanceling => 9999, numFailed => 9999, numFinished => 9999, numSubmitted => 9999, numHold => 9999, numWaiting => 9999, numCatalogFailed => 9999, numRestarted => 9999 };
my $myCannotCancelException = new TransferException ( );
my $myExistsException = new TransferException ( );
my $myStringPair = { string1 => 'string', string2 => 'string' };
my $myRoles = { clientDN => 'string', serviceAdmin => 'string', submitter => 'string', VOManager => [ $myStringPair1, $myStringPair2, ... ], channelManager => [ $myStringPair1, $myStringPair2, ... ] };
my $myArrayOf_soapenc_string = [ 'string1', 'string2', ...];
my $myArrayOf_tns3_JobStatus = [ $myJobStatus1, $myJobStatus2, ... ];
my $myArrayOf_tns3_FileTransferStatus = [ $myFileTransferStatus1, $myFileTransferStatus2, ... ];
Copyright (c) 2004 CERN, on behalf of the EU EGEE project. For license conditions see LICENSE file or http://www.edg.org/license.html.