Metacat

#

# Subroutine for generating a new ACL document

#

################################################################################

sub newAccessDocument {

  my $aclid = shift;

  my $acl = "<?xml version=\"1.0\"?>\n";

  $acl .= "<!DOCTYPE acl ";

  $acl .= "PUBLIC \"$accesspubid\" \"$accesssysid\">\n";

  $acl .= "<acl authSystem=\"ldap://ldap.ecoinformatics.org\" ";

  $acl .= "order=\"denyFirst\">\n";

  $acl .= "<identifier system=\"knb\">$aclid</identifier>\n";

  #$acl .= "<identifier>$aclid</identifier>\n";

  $acl .= "<allow><principal>$username</principal>" .

          "<permission>all</permission></allow>\n";

  #$acl .= "<allow><principal>public</principal>" .

  #        "<permission>read</permission></allow>\n";

  $acl .= "</acl>\n";

  return $acl;

}

################################################################################

#

# Subroutine for inserting identifers to the metadata document passed to us

#

################################################################################

sub insertIdentifiers {

  my $docstring = shift;

  my $aclid = shift;

  my $docid = shift;

  my $parser = XML::LibXML->new();

  my $dom = $parser->parse_string($docstring);

  my $root = $dom->documentElement;

  my $name = $root->getName();

  my $addedIdentifier = 0;

  my $currentElement = $root->getFirstChild();

  $name = $currentElement->getName();

  while ("$name" !~ "triple" &&

         "$name" !~ "temporalCov" && 

         "$name" !~ "geographicCov" && 

         "$name" !~ "taxonomicCov"

        ) {

    if ("$name" =~ "identifier" ||

        "$name" =~ "title") {

      if (! $addedIdentifier) {

      my $idelement = $dom->createElement( "identifier" );

        $addedIdentifier = 1;

        $idelement->setAttribute("system", "knb");

        $idelement->appendTextNode($docid);

        $root->insertBefore($idelement, $currentElement);

      }

    }

    $currentElement = $currentElement->getNextSibling();

    $name = $currentElement->getName();

  }

  # Link the document to the access doc

  my $element = $dom->createElement( "triple" );

  $element->appendTextChild( "subject", $aclid);

  $element->appendTextChild( "relationship", 

                             "describes access control rules for");

  $element->appendTextChild( "object", $docid);

  $root->insertBefore($element, $currentElement);

  # Link the access doc to the access doc

  $element = $dom->createElement( "triple" );

  $element->appendTextChild( "subject", $aclid);

  $element->appendTextChild( "relationship", 

                             "describes access control rules for");

  $element->appendTextChild( "object", $aclid);

  $root->insertBefore($element, $currentElement);

  return $dom->toString();

}

################################################################################