**************************************************************************
[root@lxb1386 root]# cat /opt/lcg/libexec/lcg-info-provider-srm
#!/usr/bin/perl
use strict;

sub usage() {
        die "Usage : $0 hostname VO:path\n";
}


my $host = shift || &usage();
chomp(my $local = `hostname`);

print <<END;

dn: GlueSEUniqueID=$host,mds-vo-name=local,mds-vo-name=local,o=grid
objectClass: GlueSETop
objectClass: GlueSE
objectClass: GlueInformationService
objectClass: GlueKey
objectClass: GlueSchemaVersion
GlueSEUniqueID: $host
GlueSEName: $host:srm_v1
GlueSEType: srm
GlueSEPort: 8443
GlueInformationServiceURL: ldap://$local:2170/o=grid
GlueForeignKey: GlueSLUniqueID=$host
GlueSchemaVersionMajor: 1
GlueSchemaVersionMinor: 1

dn: GlueSLUniqueID=$host,mds-vo-name=local,mds-vo-name=local,o=grid
objectClass: GlueSLTop
objectClass: GlueSL
objectClass: GlueSLArchitecture
objectClass: GlueKey
objectClass: GlueSchemaVersion
GlueSLUniqueID: $host
GlueSLName: $host
GlueSLArchitectureType: mss
GlueForeignKey: GlueSEUniqueID=$host
GlueSchemaVersionMajor: 1
GlueSchemaVersionMinor: 1

dn: GlueServiceURI=httpg://$host:8443/srm/managerv1,mds-vo-name=local,o=grid
objectClass: GlueService
objectClass: GlueSchemaVersion
GlueServiceURI: httpg://$host:8443/srm/managerv1
GlueServiceAccessPointURL: gsiftp://$host:2811/
GlueServiceType: srm_v1
GlueServicePrimaryOwnerName: LCG
GlueServicePrimaryOwnerContact: mailto:N/A
GlueServiceHostingOrganization: N/A
GlueServiceMajorVersion: 1
GlueServiceMinorVersion: 0
GlueServicePatchVersion: 1
END
for (@ARGV) {
(my $vo, my $path) = split(/:/);
print "GlueServiceAccessControlRule: $vo\n";
}

print <<END;
GlueServiceInformationServiceURL: MDS2GRIS:ldap://$local:2170/o=grid
GlueServiceStatus: running
GlueSchemaVersionMajor: 1
GlueSchemaVersionMinor: 1

dn: GlueSEAccessProtocolType=rfio,GlueSEUniqueID=$host,mds-vo-name=local,o=grid
objectClass: GlueSETop
objectClass: GlueSEAccessProtocol
objectClass: GlueKey
objectClass: GlueSchemaVersion
GlueSEAccessProtocolType: rfio
GlueSEAccessProtocolPort: 5001
GlueSEAccessProtocolSupportedSecurity: None
GlueChunkKey: GlueSEUniqueID=$host
GlueSchemaVersionMajor: 1
GlueSchemaVersionMinor: 1

dn: GlueSEAccessProtocolType=gsiftp,GlueSEUniqueID=$host,mds-vo-name=local,o=grid
objectClass: GlueSETop
objectClass: GlueSEAccessProtocol
objectClass: GlueKey
objectClass: GlueSchemaVersion
GlueSEAccessProtocolType: gsiftp
GlueSEAccessProtocolPort: 2811
GlueSEAccessProtocolSupportedSecurity: None
GlueChunkKey: GlueSEUniqueID=$host
GlueSchemaVersionMajor: 1
GlueSchemaVersionMinor: 1
END

for (@ARGV) {
(my $vo, my $path) = split(/:/);
print <<END;

dn: GlueSARoot=$_,GlueSEUniqueID=$host,mds-vo-name=local,o=grid
objectClass: GlueSATop
objectClass: GlueSA
objectClass: GlueSAPolicy
objectClass: GlueSAState
objectClass: GlueSAAccessControlBase
objectClass: GlueKey
objectClass: GlueSchemaVersion
GlueSARoot: $_
GlueSAUniqueID: Null
GlueSAPolicyMaxFileSize: 2000000
GlueSAPolicyMinFileSize: 0
GlueSAPolicyMaxData: 0
GlueSAPolicyMaxNumFiles: 0
GlueSAPolicyMaxPinDuration: 0
GlueSAPolicyQuota: 0
GlueSAPolicyFileLifeTime: permanent
GlueSAStateAvailableSpace: 1000000000000
GlueSAStateUsedSpace: 500000000000
GlueSAAccessControlBaseRule: $vo
GlueChunkKey: GlueSEUniqueID=$host
GlueSchemaVersionMajor: 1
GlueSchemaVersionMinor: 1
END
}

print "\n";
**************************************************************************


**************************************************************************
[root@lxb1386 root]# cat /opt/lcg/libexec/lcg-info-provider-lfc
#!/usr/bin/perl
use strict;

sub usage() {
        die "Usage : $0 hostname VO1 VO2 ...\n";
}

my $host = shift || &usage();

print <<END;
dn: GlueServiceURI=$host,mds-vo-name=local,o=grid
objectClass: GlueTop
objectClass: GlueService
objectClass: GlueSchemaVersion
GlueServiceURI: $host
GlueServiceAccessPointURL: $host
GlueServiceType: lcg-file-catalog
GlueServicePrimaryOwnerName: LCG
GlueServicePrimaryOwnerContact: mailto:lfc-support\@cern.ch
GlueServiceHostingOrganization: CERN-SC3
GlueServiceStatus: running
GlueSchemaVersionMajor: 1
GlueSchemaVersionMinor: 2
END

for (@ARGV) {
print "GlueServiceAccessControlRule: $_\n";
}

print "\n";
**************************************************************************

-- SimoneCampana - 07 Jul 2005