GLite::Data::FileTransferStats
GLite::Data::FileCatalog module provides a Perl client library for the FileTransferStats 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::FileTransferStats->new('https://service.glite.org:8443/example');
my $myArrayOf_soapenc_string = [ 'string1', 'string2', ...];
my $myArrayOf_tns3_TransferSummary = [ $myTransferSummary1, $myTransferSummary2, ... ];
my $myArrayOf_tns3_TransferActivity = [ $myTransferActivity1, $myTransferActivity2, ... ];
my $myArrayOf_tns3_TransferAgent = [ $myTransferAgent1, $myTransferAgent2, ... ];
my $myTransferSnapshot = {
time => $mydateTime,
numSubmittedJobs => 9999,
numPendingJobs => 9999,
numActiveJobs => 9999,
numDoneJobs => 9999,
numHoldJobs => 9999,
numFailedJobs => 9999,
numCanceledJobs => 9999,
numCancelingJobs => 9999,
numFinishedDirtyJobs => 9999,
numFinishedJobs => 9999,
numSubmittedFiles => 9999,
numPendingFiles => 9999,
numActiveFiles => 9999,
numDoneFiles => 9999,
numWaitingFiles => 9999,
numHoldFiles => 9999,
numCancelingFiles => 9999,
numCanceledFiles => 9999,
numFailedFiles => 9999,
numFinishedFiles => 9999,
numCatalogFailedFiles => 9999
};
my $myTransferSummary = {
channelName => 'string',
voName => 'string',
snapshots => [ $myTransferSnapshot1, $myTransferSnapshot2, ... ]
};
my $myTransferException = {
message => 'string'
};
my $myAuthorizationException = new TransferException (
);
my $myInvalidArgumentException = new TransferException (
);
my $myServiceBusyException = new TransferException (
);
my $myInternalException = new TransferException (
);
my $myTransferActivityPeriod = {
startTime => $mydateTime,
endTime => $mydateTime,
averageRate => $myfloat,
bytesWritten => $mylong
};
my $myTransferActivity = {
channelName => 'string',
voName => 'string',
activityPeriods => [ $myTransferActivityPeriod1, $myTransferActivityPeriod2, ... ]
};
my $myTransferAgent = {
name => 'string',
DN => 'string',
host => 'string',
type => 'string',
lastActive => $mydateTime,
state => 'string',
version => 'string',
contact => 'string'
};
Copyright (c) 2004 CERN, on behalf of the EU EGEE project. For license conditions see LICENSE file or http://www.edg.org/license.html.