Metacat

} elsif (hasContent($ARGV[0])) {

    $skinName = $ARGV[0];

} else {

    print "Content-type: text/html\n\n";

    'Registry Error: The registry requires a skin name to continue.';

    exit();

# Metacat isn't initialized, the registry will fail in strange ways.

if (!hasContent($metacatUrl)) {

    print "Content-type: text/html\n\n";

    'Registry Error: Metacat is not initialized! Make sure' .

        ' MetacatUrl is set correctly in ' .  $skinName . '.cfg';

$$templateVars{'required'} = $required;

$$templateVars{'config'} = $config;

# Process the form based on stage parameter. 

if ($FORM::stage =~ "loginform") {

    } else {

        # Hence, send back entry form for entry of data.  

        my @sortedSites;

        foreach my $site (sort @sitelist) {

            push(@sortedSites, $site);

        $$templateVars{'siteList'} = \@sortedSites;

        $$templateVars{'section'} = "Entry Form";

        $$templateVars{'docid'} = "";

        $template->process($templates->{'entry'}, $templateVars);

   }

   exit();

}

    } else {

    if ($config->{'adminIsDocOwner'} eq 'true') {

        $response = $metacat->login($username, $password);

        if (! $response) {

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

        }

    }

        if ($FORM::docid eq "") {

            # document is being inserted 

            my $docStatus = "INCOMPLETE";

            while ($docStatus eq "INCOMPLETE") {

                debugDoc($xmldocWithDocID);

                $docStatus = insertMetadata($xmldocWithDocID, $docid);

            }

            if ($docStatus ne "SUCCESS") {

                debug("Message is: $docStatus");

                push(@errorMessages, $docStatus);

            }

        } else {

            # document is being modified

            $docid = incrementRevision($FORM::docid);

            }

            if (scalar(@errorMessages)) {

                $$templateVars{'docid'} = $FORM::docid;

                copyFormToTemplateVars();

    }

}

if (scalar(@errorMessages)) {

    $$templateVars{'docid'} = $FORM::docid;

    copyFormToTemplateVars();

    $$templateVars{'status'} = 'failure';

  debug("Trying to insert the following document");

  my $docStatus = "SUCCESS";

  my $response = $metacat->insert($docid, $xmldoc);

  if (! $response) {

    my $errormsg = $metacat->getMessage();i

    if ($errormsg =~ /is already in use/) {

        $docStatus = "INCOMPLETE";

    } elsif ($errormsg =~ /<login>/) {

        $docStatus = $errormsg;

    }

  }

  return $docStatus;

}

        $id++;

        $docid = "$scope.$id.1";

    }

    return $docid;

}

    my $initDocid = shift;

    my $docid = '';

    if (!$initDocid) {

    } else {

        my ($scope, $id, $rev) = split(/\./, $initDocid);

        $rev++;

    for (my $fileNum = 0; $fileNum <= $FORM::upCount; $fileNum++) {

        my $fn = 'upload_' . $fileNum;

        if (hasContent(param($fn))) {

            ($docid, $fileInfo) = fileMetadata($fileNum);

            $uploadedFiles{ $docid } = $fileInfo;

        }

    if ($fileHash =~ /ondisk/) {

        my $finfo = $fileHash;

        $finfo =~ s/ondisk://g;

        $outFile = $dataDir . "/" . $docid;

    } else {

        # normalize input filenames; Windows filenames include full paths

        $cleanName =~ s/.*[\/\\](.*)/$1/;

        $outFile = $tempDir . "/" . $cleanName;

    } 

    my $fileSize = stat($outFile)->size;

    if ($fileSize == 0) {

        push(@errorMessages, "file $fileName is zero bytes!");

    }

    # Now the file is on disk, send the object to Metacat

    my $session = CGI::Session->load();

    if ($session->is_empty) {

        push(@errorMessages, "Must be logged in to upload files.");

        return 0;

    }

        $docid = newAccessionNumber($config->{'scope'});

        my $uploadReturn = uploadData($outFile, $docid);

        if (!$uploadReturn) {

        }

    }

    my $entityid = $fileHash."001";

    my $fileSize = stat($outFile)->size;

    if ($fileSize == 0) {

        push(@errorMessages, "file $fileName is zero bytes!");

    }

    # file is in Metacat, generate the pertinent EML elements

    open(OUT,">$outputName") or die "Could not open: $!";

    print OUT $fileData;

    close(OUT);

    return ($outputName, $digest);

}

        if (!$response) {

            my $msg = $metacat->getMessage();

            push(@errorMessages, "Failed to delete existing file. Error was: $msg\n");

        } else {

        }

    } else {        

        my $fileName = $tempDir . "/" . $input;

        if (-e $fileName) {

            unlink $fileName or

        } else {

        }

        if (!-e $fileName) {

        }

    }

}

    my $data = shift;

    my $docid = shift;

    my $response = $metacat->upload($docid, $data);

    if (!$response) {

        my $uploadMsg = $metacat->getMessage();

        push(@errorMessages, "Failed to upload file. Error was: $uploadMsg\n");

    } else {

    }

}

    my $emlns = $root->lookupNamespaceURI("eml");

    if ($emlns =~ 'eml-2.0') {

        $doc = transformEmlTo210($doc);

    }

    elsif ($emlns =~ 'eml-2.1') {

    }

    else {

        $error = "Unrecognized document type!";

        push(@errorMessages, $error."\n");

    }

    return $doc;

    # find out the tag <creator>. 

    $results = $doc->findnodes('//dataset/creator/individualName');

     foreach $node ($results->get_nodelist) {

            dontOccur($node, "../positionName|../onlineURL|../userId", 

              "positionName, onlineURL, userId");

            dontOccur($node, "./saluation", "saluation");                

            $tempResult = $node->findnodes('../address|../phone|../electronicmailAddress|../organizationName');

            if($tempResult->size > 0) {

                if($foundDSO == 0) {

                    $foundDSO = 1;

                    $$templateVars{'origNamefirst0'} = findValue($node, 'givenName');

                    $$templateVars{'origNamelast0'} = findValue($node, 'surName');

            }

        }

        foreach $node ($results->get_nodelist) {

            $tempResult = $node->findnodes('../address|../phone|../electronicmailAddress|../organizationName');

            if ($tempResult->size == 0) {

                if ($foundDSO == 0) {

                    $foundDSO = 1;

                    $$templateVars{'origNamefirst0'} = findValue($node, 'givenName');

                    $$templateVars{'origNamelast0'} = findValue($node, 'surName');

                    $$templateVars{'origNameOrg'} = findValue($node, '../organizationName');

                } else {

                    $$templateVars{"origNamefirst$aoCount"} =  findValue($node, './givenName');

                    $$templateVars{"origNamelast$aoCount"} =  findValue($node, './surName');

                    $$templateVars{"origRole$aoCount"} = "Originator";

    $results = $doc->findnodes('//dataset/creator/organizationName');

    my $wgroups = $doc->findnodes("//dataset/creator/organizationName[contains(text(),'(NCEAS ')]");

    if ($results->size() - $wgroups->size() > 3) {

        errMoreThanN("creator/organizationName");    

    } else {

            } else {

                foreach $tempNode ($tempResult->get_nodelist) {

                    my $geogdesc = findValue($tempNode, "geographicDescription");

                    $$templateVars{'geogdesc'} = $geogdesc;

                    my $coord = findValue($tempNode, "boundingCoordinates/westBoundingCoordinate");

                    if ($coord > 0) {

    $results = $doc->findnodes(

            '//dataset/methods/methodStep/description/section');

    if ($results->size() > 1) {

        errMoreThanN("methods/methodStep/description/section");    

    } else {

        foreach $node ($results->get_nodelist) {

            my @children = $node->childNodes;

            for (my $i = 0; $i < scalar(@children); $i++) {

                my $child = $children[$i];

                if ($child->nodeName eq 'title') {

                    my $title = $child->textContent();

                    $$templateVars{'methodTitle'} = $title;

                } elsif ($child->nodeName eq 'para') {

                    my $para = $child->textContent();

                    $methodPara[scalar(@methodPara)] = $para;

                }

            }

    my $upCount = 0;

    foreach $node ($results->get_nodelist) {

        my $distUrl = findValue($node, 'distribution/online/url');

        if ($distUrl !~ /^ecogrid/) {

            my $error = "The file URL referenced is not a local resource and has been changed outside the registry. Please use Morpho to edit this document.";

            push(@errorMessages, $error."\n");

            $$templateVars{"uploadname_$upCount"} = findValue($node, 'objectName');

            $$templateVars{"uploadtype_$upCount"} = findValue($node, 'dataFormat/externallyDefinedFormat/formatName');

            $$templateVars{"uploadperm_$upCount"} = $accessRule;

            $upCount++;

        }

    }

#

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

sub handleLoginRequest(){

    # Check if a session already exists

    my $session = CGI::Session->load() or die CGI::Session->errstr();

    if ($session->is_empty) {

        my $metacat = Metacat->new($metacatUrl);

        my $returnVal = $metacat->login($username,$password);

        if ($returnVal > 0) {

            # valid username and passwd

            # create a new session and store username and passswd

sub handleRead {

    my $docid = $FORM::docid;

    my $errorMessage;

    print "Content-type: text/html\n\n";

    # Check if the session exists

    for (my $i = 0; $i <= $#$aoRoleArray; $i++) {

        if (hasContent($aoFNArray->[$i]) && hasContent($aoLNArray->[$i])) {

                  ." origNamelast = ".$aoLNArray->[$i]." origRole = "

                  .$aoRoleArray->[$i]);

            $$templateVars{"origNamefirst".$aoCount} = normalizeCD($aoFNArray->[$i]);

    for (my $i = 0; $i <= $#$keywordArray; $i++) {

        if (hasContent($keywordArray->[$i])) {

                  keywordType = ".$keywordTypeArray->[$i]."

                  keywordTh = ".$keywordThArray->[$i]);

            $$templateVars{"keyword".$keyCount} = normalizeCD($keywordArray->[$i]);

    for (my $i = 0; $i <= $#$taxonNameArray; $i++) {

        if (hasContent($taxonRankArray->[$i]) && hasContent($taxonNameArray->[$i])) {

                    ." trn = ".$taxonNameArray->[$i]);

            $$templateVars{"taxonRankName".$taxonCount} = normalizeCD($taxonRankArray->[$i]);

            $$templateVars{"taxonRankValue".$taxonCount} = normalizeCD($taxonNameArray->[$i]);

                deleteFile(param("uploadname_$upNum"));

                $deleteCount++;

            } else {

                $$templateVars{"upload_$upNum"} = param("upload_$upNum");

                $$templateVars{"uploadname_$upNum"} = param("uploadname_$upNum");

                $$templateVars{"uploadtype_$upNum"} = param("uploadtype_$upNum");

        my $fn = 'file_' . $fileNum;

        if (hasContent(param($fn))) {

            my $fileName = eval "\$FORM::file_$fileNum";

            # Upload the file object itself to a temporary file, copy file

            # metadata to form

            my $fileInfo = processFile($fileName);

        my $origRole = "origRole".$origNameIndex;

        if ($origNameIndex =~ /[0-9]+/  && $origNameIndex > 0) {

        if (hasContent(param($origName)) && hasContent(param($origNamelast)) && hasContent(param($origRole))) {

            $$templateVars{$origName} = normalizeCD(param($origName));

            $$templateVars{$origNamelast} = normalizeCD(param($origNamelast));

            $$templateVars{$origRole} = normalizeCD(param($origRole));

            my $keyTh = "kwTh".$keyIndex;

            if ($keyIndex =~ /[0-9]+/) {

                if (hasContent(param($kyd)) && hasContent(param($keyType)) && hasContent(param($keyTh))) {

                    $$templateVars{$kyd} = param($kyd);

                    my $tmp = param($keyType);  #convert the first letter to upper case

                    $tmp =~ s/\b(\w)/\U$1/g;

            my $trv = "taxonRankValue".$taxIndex;

            if ($taxIndex =~ /[0-9]+/) {

                if (hasContent(param($trn)) && hasContent(param($trv))) {

                    $$templateVars{$trn} = param($trn);

                    $$templateVars{$trv} = param($trv);

                }

            $fileIndex =~ s/upload_//;

            if ($fileIndex =~ /[0-9]+/) {

                if (hasContent(param($upload))) {

                    $$templateVars{"upload_$fileIndex"} = param($upload);

                    $$templateVars{"uploadname_$fileIndex"} = param("uploadname_$fileIndex");

                    $$templateVars{"uploadtype_$fileIndex"} = param("uploadtype_$fileIndex");

    my $result = $node->findnodes("$value");

    if ($result->size > 0) {

        $error ="One of the following tags found: $errVal. Please use Morpho to edit this document";

        push(@errorMessages, $error."\n");

    } 

    my $msg = shift;

    if ($debug_enabled) {

    }

    else {

        # This empty print statement is to prevent a bizzare error of the NCEAS