Metacat

$config->define("contactEmailAddressRequired", { DEFAULT => 'false'} );

$config->define("publicReadable", { DEFAULT => 'true'} );

$config->define("moderators", { DEFAULT => ''} );

$config->define("mailhost");

$config->define("sender");

$config->define("recipient");

my $contactEmailAddressRequired = $config->contactEmailAddressRequired();

my $publicReadable = $config->publicReadable();

my $moderators = $config->moderators();

my $mailhost = $config->mailhost();

my $sender = $config->sender();

my $recipient = $config->recipient();

    	foreach(split(":",$moderators)){

    	    $doc .= "<allow>\n";

    	    $doc .= "<principal>".$_."</principal>\n";

    	    $doc .= "</allow>\n";

        }

    foreach(split(":",$moderators)){

   	$accessblock .= "<allow>\n";

   	$accessblock .= "<principal>".$_."</principal>\n";

   	$accessblock .= "</allow>\n";

    }

	# get the contact email address from the 

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

   	my $xmldoc = $parser->parse_string($emldoc);

		# not able to parse

       	push(@errorMessages, "Error in reading the docid:".$docid."\n");

	} else {

		}

	   	if (!$response) {

	       	debug("Error while deleting document in handleModDecline.");

	    	push(@errorMessages, $metacat->getMessage());