lfc-dli-client(1) [debian man page]

LFC-DLI-CLIENT(1)						   User Commands						 LFC-DLI-CLIENT(1)

NAME

       lfc-dli-client - lists the replicas for a given LFN, GUID via the DLI Interface

SYNOPSIS

       lfc-dli-client [ --endpoint endpoint ] [ -h || --help ] [ -v || --verbose ] logical file

DESCRIPTION

       lcg-dli-client lists the replicas for a given LFN or GUID using the Data Location Interface (DLI) Web service for a LFC Server.

       logical file
	      a URI which specifies the Logical File Name ( lfn: ) or the Grid Unique IDentifier ( guid: ).

       endpoint
	      specifies  a web service endpoint to connect to. This consists of a http URL with a hostname and an optional port number. An example
	      is http://lfc-dteam.cern.ch:8085/

NOTE

       The environment variable LFC_HOST may be set instead of specifying an endpoint to use.  Also,  DLI_PORT may be used if the DLI  is  running
       on a non-standard port.	If DLI_PORT is not specified, the client defaults to port 8085.

EXAMPLE

		lfc-dli-client -e http://lfc-dteam-test:8085/
		       lfn:/grid/dteam/dli-test

		sfn://lxb1533.cern.ch/storage//dteam/generated/2005-12-05/
		       filed88f9c0b-1fba-40a4-b20e-66866d757643
		srm://lxb0724.cern.ch/pnfs/cern.ch/data/dteam/generated/
		       2005-12-05/file9fd93cae-6400-4798-b4e9-2605bf31a7ff
		srm://lxb1921.cern.ch/dpm/cern.ch/home/dteam/generated/
		       2005-12-05/file73c497d2-deed-46c8-b747-cda06c7708cb

EXIT STATUS

       This program returns 0 if the operation was successful or >0 if the operation failed.

SEE ALSO

       lcg_util(3), lcg-lr(3), lfc-dli(3)

LCG
							   $Date: 2005/12/05 15:47:44 $ 					 LFC-DLI-CLIENT(1)

lfc_perl(3)						 Perl Programmers Reference Guide					       lfc_perl(3)

NAME

       lfc - Perl interface to the LFC

SYNOPSIS

       use lfc;
       printf "CNS_LIST_BEGIN is %d
", $lfc::CNS_LIST_BEGIN;

DESCRIPTION

       The  lfc  module  permits  you  to  access the LFC client interface from perl programs. The lfc module is a swig wrapping of the standard C
       interface.  For detailed descriptions of each function see the individual man page of each function.

       There follows a series of examples of how to use selected functions and how to retrieve the information	returned  by  them:  Examples  are
       finding	the  GUID  of  an  existing  entry, listing the replicas of a given GUID and setting and retrieving the comment associated with an
       entry.

EXAMPLE

       #!/usr/bin/perl -w
       use strict;
       use lfc;

       # stat an existing entry in the LFC and print the GUID
       my ($name,$stat,$guid,$res);
       $name = "/grid/dteam/my.test";

       $stat = lfcc::new_lfc_filestatg();
       $res = lfc::lfc_statg($name,undef,$stat);

       if ($res == 0) {
	 $guid = lfcc::lfc_filestatg_guid_get($stat);
	 print "The GUID for $name is $guid
";
       } else {
	 my $err_num = $lfc::serrno;
	 my $err_string = lfc::sstrerror($err_num);
	 print "There was an error while looking for $name: Error $err_num ($err_string)
";
	 exit(1);
       }
       lfcc::delete_lfc_filestatg($stat);

EXAMPLE

       #!/usr/bin/perl -w
       use strict;
       use lfc;

       # list the replicas of a given entry, starting from the GUID
       my ($guid,$listp,$flag,$num_replicas);
       $guid = "6a3164e0-a4d7-4abe-9f76-e3b8882735d1";

       $listp = lfcc::new_lfc_list();
       $flag =	$lfc::CNS_LIST_BEGIN;

       print "Listing replicas for GUID $guid:
";

       $num_replicas=0;

       while(1) {
	 my $res = lfc::lfc_listreplica(undef,$guid,$flag,$listp);
	 $flag = $lfc::CNS_LIST_CONTINUE;

	 if (!defined $res) {
	   last;
	 } else {
	   my $rep_name = lfcc::lfc_filereplica_sfn_get($res);
	   print "Replica: $rep_name
";
	   $num_replicas++;
	 }
       }
       lfc::lfc_listreplica(undef,$guid,$lfc::CNS_LIST_END,$listp);
       lfcc::delete_lfc_list($listp);

       print "Found $num_replicas replica(s)
";

EXAMPLE

       #!/usr/bin/perl -w
       use strict;
       use lfc;

       # setting and retrieving a comment on a file
       my ($file,$res,$bufspec,$buffer,$comment);
       $file = "/grid/dteam/my.test";

       $comment = "MyComment";
       $res = lfc::lfc_setcomment($file,$comment);

       if ($res != 0) {
	 my $err_num = $lfc::serrno;
	 my $err_string = lfc::sstrerror($err_num);
	 print "Problem while setting comment for $file: Error $err_num ($err_string)
";
	 exit(1);
       }

       $bufspec =  "x".($lfc::CA_MAXCOMMENTLEN+1);
       $buffer = pack($bufspec);
       $res = lfc::lfc_getcomment($file,$buffer);

       if ($res != 0) {
	 my $err_num = $lfc::serrno;
	 my $err_string = lfc::sstrerror($err_num);
	 print "Problem while reading the comment for $file: Error $err_num ($err_string)
";
	 exit(1);
       }

       $comment = unpack("Z*", $buffer);
       print "Read back comment $comment
";

NOTES

       The current interface to the lfc_getcomment(3), lfc_getcwd(3), lfc_readlink(3), lfc_seterrbuf(3) requires the passing of a  suitably  allo-
       cated buffer (in a similar way to the C functions). However this is rather non standard in PERL. A future version of lfc perl interface may
       do away with the need to setup the buffer before the call and to explicitly unpack the result afterwards.

SEE ALSO

       LFC C interface man pages

LFC
							   $Date: 2007/02/23 10:03:07 $ 					       lfc_perl(3)