NAME

Cog::MDS::Search - Perl extension for doing GIS/GIIS/GRIS searches on the MDS's on machines to find out grid type data about that machine.

SYNOPSIS

  use Cog::MDS::Search;

EXAMPLES

  use Cog::MDS::Search;

  $timeout = 120;
  $host    = 'mds-alliance.ncsa.uiuc.edu';
  $port    = 2135;
  $branch  = "mds-vo-name=alliance,o=Grid";
  $filter  = "(objectclass=*)";

  my $newgis = Cog::MDS::Search->new(
                                            host=>"$host",
                                            port=>"$port",
                                            filter=>"$filter",
                                            branch=>"$branch",
                                            timeout=>"$timeout"
                                           );
  my @entries = $newgis->execute();

  my $entry;     
  foreach $entry (@entries) {
     my @atts = $entry->attributes;
     print "\n\n";
     foreach(@atts) { print "$_="; my $val = $entry->get_value($_); print "$val\n"; }
  }

DESCRIPTION

Cog::MDS::Search is a perl module for making grid-info-search type queries against a globus mds (GIS) system. The execute() fu nction returns an array of Net::LDAP::Entry objects, which you can get the attributes of and get_value on.

EXPORT

None by default.

AUTHORS

Maytal Dahan, maytal@tacc.utexas.edu Catherine Mills, cmills@sdsc.edu Stephen Mock, mock@sdsc.edu

SUBROUTINES

`new()`

        Description/Usage:
        Used to instantiate a Search object with parameters about the search.

                $timeout = 120;
                $host    = 'mds-alliance.ncsa.uiuc.edu';
                $port    = 2135;
                $branch  = "mds-vo-name=alliance,o=Grid";
                $filter  = "(objectclass=*)";

                my $newgis = Cog::MDS::Search->new(
                                            host=>"$host",
                                            port=>"$port",
                                            filter=>"$filter",
                                            branch=>"$branch",
                                            timeout=>"$timeout"
                                           );

        Required Arguments:
                host - the hostname of the machine that the mds is running on to 
                        do the query against
                filter - mds search filter

        Optional Arguments:
                port - the port that the mds server is running on. if not specified
                        it uses the default port 2135
                branchpoint - Location in DIT from which to start the search.
                        The default is "o=Grid"
                timeout - time in seconds before the command will time out. default of
                        30 seconds if not specified

        Returns: a Cog::MDS::Search object or undef

`execute()`

        Description/Usage:
        Used to execute a search against an MDS.

                $timeout = 120;
                $host    = 'mds-alliance.ncsa.uiuc.edu';
                $port    = 2135;
                $branch  = "mds-vo-name=alliance,o=Grid";
                $filter  = "(objectclass=*)";

                my $newgis = Cog::MDS::Search->new(
                                            host=>"$host",
                                            port=>"$port",
                                            filter=>"$filter",
                                            branch=>"$branch",
                                            timeout=>"$timeout"
                                           );
                my @entries = $newgis->execute();

                my $entry;
                foreach $entry (@entries) {
                        my @atts = $entry->attributes;
                        foreach(@atts) { 
                                print "$_="; my $val = $entry->get_value($_); 
                                print "$val\n"; 
                        }
                }

        Required Arguments:
                none - acts upon the Cog::MDS::Search object you must instantiate

        Returns:
                -on success: an array of Net::LDAP entries 
                -on failure: undef (undefined)