GLite::Data::ReplicaCatalog
GLite::Data::FileCatalog module provides a Perl client library for the ReplicaCatalog 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::ReplicaCatalog->new('https://service.glite.org:8443/example');
my $myStat = { modifyTime => $mylong, creationTime => $mylong, size => $mylong };
my $myGUIDStat = new Stat ( );
my $myPerm = { permission => $myboolean, remove => $myboolean, read => $myboolean, write => $myboolean, list => $myboolean, execute => $myboolean, getMetadata => $myboolean, setMetadata => $myboolean };
my $myBasicPermission = { userName => 'string', groupName => 'string', userPerm => $myPerm, groupPerm => $myPerm, otherPerm => $myPerm };
my $myACLEntry = { principalPerm => $myPerm, principal => 'string' };
my $myPermission = new BasicPermission ( );
my $mySURLEntry = { masterReplica => $myboolean, creationTime => $mylong, modifyTime => $mylong, surl => 'string' };
my $myRCEntry = { guid => 'string', GUIDStat => $myGUIDStat, permission => $myPermission, surlStats => [ $mySURLEntry1, $mySURLEntry2, ... ] };
my $myCatalogException = { message => 'string' };
my $myInternalException = new CatalogException ( );
my $myAuthorizationException = new CatalogException ( );
my $myExistsException = new CatalogException ( );
my $myInvalidArgumentException = new CatalogException ( );
my $myNotExistsException = new CatalogException ( );
my $myStringPair = { string1 => 'string', string2 => 'string' };
my $myStringBoolean = { string => 'string', bool => $myboolean };
my $myPermissionEntry = { item => 'string', permission => $myPermission };
my $myArrayOf_tns1_RCEntry = [ $myRCEntry1, $myRCEntry2, ... ];
my $myArrayOf_tns1_SURLEntry = [ $mySURLEntry1, $mySURLEntry2, ... ];
my $myArrayOf_soapenc_string = [ 'string1', 'string2', ...];
my $myArrayOf_tns1_GUIDStat = [ $myGUIDStat1, $myGUIDStat2, ... ];
my $myArrayOf_tns1_StringPair = [ $myStringPair1, $myStringPair2, ... ];
my $myArrayOf_tns1_StringBoolean = [ $myStringBoolean1, $myStringBoolean2, ... ];
my $myArrayOf_tns1_PermissionEntry = [ $myPermissionEntry1, $myPermissionEntry2, ... ];
Copyright (c) 2004 CERN, on behalf of the EU EGEE project. For license conditions see LICENSE file or http://www.edg.org/license.html.