Metacat

#!/usr/bin/perl

# check that the correct number or parameters are issued

if (($#ARGV +1) != 3) {die "Usage: %./get_eml.pl <metacat_url> <login> <passwd>\n\n";}

($url, $username, $password) = @ARGV; #get the input file and output file names

use Metacat;

use XML::DOM;

my $metacat = Metacat->new();

#my $username = "uid=knb2003,o=NCEAS,dc=ecoinformatics,dc=org";

#my $password = "afr1ca";

#my $url = "http://indus.nceas.ucsb.edu/knb-test/metacat";

#my $url = "http://metacat.nceas.ucsb.edu/knb/servlet/metacat";

#my $url = "http://dhcp84.nceas.ucsb.edu:8080/knp/servlet/metacat";

#my $url = $infile

if ($metacat) {

    $metacat->set_options( metacatUrl => $url );

} else {

#print "Failed during metacat creation.";

    $error = 1;

    exit();

}

# Login to metacat

# //print "Logging in to metacat..........\n";

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

if (! $response1) {

#    //print $metacat->getMessage();

#    //print "Failed during login: metacat.\n";

    $error = 2;

} else {

#    //print "Logged in.\n";

}

my $query = "<?xml version=\"1.0\" ?> <pathquery version=\"1.2\">  <querytitle>Untitled-Search-2</querytitle>  <returndoctype>-//ecoinformatics.org//eml-dataset-2.0.0beta6//EN</returndoctype> <returndoctype>-//NCEAS//eml-dataset-2.0//EN</returndoctype>  <returndoctype>eml://ecoinformatics.org/eml-2.0.0</returndoctype>  <returnfield>dataset/title</returnfield>  <returnfield>individualName/surName</returnfield> <returnfield>keyword</returnfield><returnfield>westBoundingCoordinate</returnfield><returnfield>eastBoundingCoordinate</returnfield><returnfield>northBoundingCoordinate</returnfield><returnfield>southBoundingCoordinate</returnfield><returnfield>westbc</returnfield><returnfield>eastbc</returnfield><returnfield>northbc</returnfield><returnfield>southbc</returnfield><querygroup operator=\"INTERSECT\"><querygroup operator=\"UNION\"><querygroup operator=\"UNION\"><queryterm searchmode=\"contains\" casesensitive=\"false\"><value>%25</value></queryterm></querygroup></querygroup></querygroup></pathquery>";

my $response = $metacat->squery($query);

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

#print "\n\ngetting the message ... \n";

#print $mesg;

if($mesg eq ""){

#    print ("Too much time is reply back from metacat...");

    exit();

}

my $parser = new XML::DOM::Parser;

my $node;

my $name;

my $doc = $parser->parse($mesg);

my $nodes = $doc->getElementsByTagName("docid");

$numberNodes = $nodes->getLength;

for (my $loop_index =0; $loop_index < $numberNodes; $loop_index++)

{

    $node = $nodes->item($loop_index);

    $name = $node->getFirstChild()->getNodeValue();

    $node = $node->getParentNode(); 

    my $tempnodes = $node->getElementsByTagName("param");

    my $tempnumberNodes = $tempnodes->getLength;

    my $title = "";

    my $keyword = "";

    my $cName = "";

    my $eBC = "";

    my $wBC = "";

    my $nBC = "";

    my $sBC = "";

 for (my $loop =0; $loop < $tempnumberNodes; $loop++) 

 {

	my $tempnode = $tempnodes->item($loop);	

	my $paramname = $tempnode->getAttributeNode("name")->getValue();

	if($paramname eq "dataset/title"){

	    $title = $tempnode->getFirstChild()->getNodeValue();

	}

	if($paramname eq "keyword"){

	    $keyword = $keyword.",".$tempnode->getFirstChild()->getNodeValue();

	}

	if($paramname eq "individualName/surName"){

	    $cName = $cName.",".$tempnode->getFirstChild()->getNodeValue();

	}

	if($paramname eq "eastBoundingCoordinate"){

	    $eBC = $tempnode->getFirstChild()->getNodeValue();

	}

	if($paramname eq "eastbc"){

	    $eBC = $tempnode->getFirstChild()->getNodeValue();

	}

	if($paramname eq "westBoundingCoordinate"){

	    $wBC = $tempnode->getFirstChild()->getNodeValue();

	}

	if($paramname eq "westbc"){

	    $wBC = $tempnode->getFirstChild()->getNodeValue();

	}

	if($paramname eq "northBoundingCoordinate"){

	    $nBC = $tempnode->getFirstChild()->getNodeValue();

	}

	if($paramname eq "northbc"){

	    $nBC = $tempnode->getFirstChild()->getNodeValue();

	}

	if($paramname eq "southBoundingCoordinate"){

	    $sBC = $tempnode->getFirstChild()->getNodeValue();

	}

	if($paramname eq "southbc"){

	    $sBC = $tempnode->getFirstChild()->getNodeValue();

	}

    }

    if($keyword ne "" ){

	$keyword = substr ($keyword, 1);

    }

    if($cName ne "" ){

	$cName = substr ($cName, 1);

    }

  #  print "$name, $title, ($cName), ($keyword), ($eBC,$wBC,$nBC,$sBC), $url?action=read&docid=$name&qformat=knb, \n";

 if ($eBC ne "" && $nBC ne "" && $eBC ne "0" &&  $nBC ne "0") { 

    print "$name $eBC $nBC $url?action=read&docid=$name&qformat=knb \n";

 }

}

#print $numberNodes;

#!/bin/sh -e 

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

#    '$RCSfile$'

#      Authors: Matt Jones, Chad Berkley, Jivka Bojilova

#    Copyright: 2000 Regents of the University of California and the

#               National Center for Ecological Analysis and Synthesis

#  For Details: http://www.nceas.ucsb.edu/

# 

#     '$Author$'

#     '$Date$'

#     '$Revision$'

# 

#  Build file for the Ant cross-platform build system for metacat

#  See http://jakarta.apache.org for details on Ant

# 

#  usage: ant [compile|jar|install|jdoc]

# 

#  This program is free software; you can redistribute it and/or modify

#  it under the terms of the GNU General Public License as published by

#  the Free Software Foundation; either version 2 of the License, or

#  (at your option) any later version.

# 

#  This program is distributed in the hope that it will be useful,

#  but WITHOUT ANY WARRANTY; without even the implied warranty of

#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

#  GNU General Public License for more details.

# 

#  You should have received a copy of the GNU General Public License

#  along with this program; if not, write to the Free Software

#  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

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

## script to create a shapefile from metacat, and to be run nightly as a cronjob

################### JUDITHS'S SETTINGS #########################################

#METACAT_URL=http://metacat.nceas.ucsb.edu/knb/servlet/metacat

METACAT_URL=http://127.0.0.1:8080/knp/servlet/metacat

METACAT_LOGIN=yeah

METACAT_PASSWD=right

TMP_DIR=/tmp

METACAT_SHAPEFILE_RESOURCES=/usr/local/devtools/shapefile/metacat/

#METACAT_SHAPEFILE_RESOURCES=/home/harris/development/private/src/cpp/shapefile/metacat/

PERL_BIN=/usr/bin/perl

POINTS_GEOCOORD=metacat_points_geocoord.txt

POINTS_UTM=metacat_points_utm.txt

SHAPEFILE_GEOCOORD=metacat_points_geocoord

SHAPEFILE_UTM=metacat_points_utm

#DIST_DIR=/home/harris/development/private/src/cpp/shapefile/metacat/data

DIST_DIR=/var/www/html/mapserver/kruger/data/

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

################### JOHN'S SETTINGS #########################################

#METACAT_URL=http://dhcp84.nceas.ucsb.edu:8080/knp/servlet/metacat

###METACAT_URL=http://metacat.nceas.ucsb.edu/knb/servlet/metacat

#TMP_DIR=/tmp

#METACAT_SHAPEFILE_RESOURCES=/home/harris/development/private/src/cpp/shapefile/metacat/

#PERL_BIN=/usr/bin/perl

#POINTS_GEOCOORD=metacat_points_geocoord.txt

#POINTS_UTM=metacat_points_utm.txt

#SHAPEFILE_GEOCOORD=metacat_points_geocoord

#SHAPEFILE_UTM=metacat_points_utm

#DIST_DIR=/home/harris/development/private/src/cpp/shapefile/metacat/data

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

## 1] get the counding coordinates from metacat

$METACAT_SHAPEFILE_RESOURCES/get_eml.pl $METACAT_URL $METACAT_LOGIN $METACAT_PASSWD > $TMP_DIR/$POINTS_GEOCOORD

echo "THE DATA RETRIEVED FROM METACAT START ON THE FOLLOWING LINE"

echo "THE DATA RETRIEVED FROM METACAT START ON THE FOLLOWING LINE"

echo "THE DATA RETRIEVED FROM METACAT START ON THE FOLLOWING LINE"

echo "THE DATA RETRIEVED FROM METACAT START ON THE FOLLOWING LINE"

cat $TMP_DIR/$POINTS_GEOCOORD

echo "THE DATA RETRIEVED FROM METACAT START ON THE FOLLOWING LINE"

echo "THE DATA RETRIEVED FROM METACAT START ON THE FOLLOWING LINE"

echo "THE DATA RETRIEVED FROM METACAT START ON THE FOLLOWING LINE"

echo "THE DATA RETRIEVED FROM METACAT START ON THE FOLLOWING LINE"

## 2] create the shapefile [this will be in geocoordinates]

$METACAT_SHAPEFILE_RESOURCES/metacat_shapefile  $TMP_DIR/$POINTS_GEOCOORD  $TMP_DIR/$SHAPEFILE_GEOCOORD

## 3] convert the data to utm

# delete the file if it exists

if test -f $TMP_DIR/$POINTS_UTM; then

  rm $TMP_DIR/$POINTS_UTM

fi

cat $TMP_DIR/$POINTS_GEOCOORD | while read line

do

  ID=`echo $line | awk '{print $1}'`

  LAT=`echo $line | awk '{print $3}'`

  LONG=`echo $line | awk '{print $2}'`

  URL=`echo $line | awk '{print $4}'`

  ## the utm x,y's are switched here 

  UTM=`$METACAT_SHAPEFILE_RESOURCES/coords/ll2utm  $LAT $LONG | awk '{print $1, $2}'`

  Y=`echo $UTM | awk '{print $1}'`

  X=`echo $UTM | awk '{print $2}'`

  if test ! -d $X; then

   echo $ID $X $Y $URL >> $TMP_DIR/$POINTS_UTM

  fi

done

## 4] make a second shapefile -- this time in utm

$METACAT_SHAPEFILE_RESOURCES/metacat_shapefile $TMP_DIR/$POINTS_UTM $TMP_DIR/$SHAPEFILE_UTM

## 5] distribute the shapefiles 

cp $TMP_DIR/$SHAPEFILE_GEOCOORD* $DIST_DIR

cp $TMP_DIR/$SHAPEFILE_UTM* $DIST_DIR

## clean up

rm core*