Metacat

obfs.154.3

obfs.153.2

obfs.152.3

obfs.151.2

oeddins.19.1

oeddins.18.1

oeddins.17.1

oeddins.16.1

oeddins.15.1

oeddins.13.1

oeddins.12.1

oeddins.11.2

oeddins.10.4

obfs.148.3

obfs.147.2

obfs.142.3

obfs.141.2

obfs.140.3

obfs.139.2

obfs.130.3

obfs.129.2

obfs.126.3

obfs.125.2

obfs.124.3

obfs.123.2

obfs.122.3

obfs.121.2

obfs.120.3

ve_hamilton.7.1

ve_hamilton.6.1

ve_hamilton.5.1

ve_hamilton.4.3

ve_hamilton.3.1

obfs.119.2

obfs.118.3

obfs.117.2

obfs.114.3

obfs.113.2

obfs.112.3

obfs.111.2

obfs.100.3

nrs.188.2

nrs.187.2

nrs.180.4

jwalsh.36.1

jwalsh.35.1

jwalsh.34.1

jwalsh.32.2

jwalsh.31.1

jwalsh.30.1

nrs.179.2

nrs.178.4

nrs.177.2

nrs.170.4

jwalsh.29.1

jwalsh.28.1

jwalsh.27.2

jwalsh.26.1

jwalsh.25.1

jwalsh.24.1

jwalsh.23.1

jwalsh.22.3

bowles.232.1

wetlandsofindia.8.1

bowles.231.2

jwalsh.21.1

wetlandsofindia.7.1

bowles.230.1

jwalsh.20.1

wetlandsofindia.6.1

wetlandsofindia.4.2

wetlandsofindia.3.1

nrs.169.2

nrs.168.4

nrs.167.2

nrs.164.4

nrs.163.2

nrs.160.4

jwalsh.19.1

jwalsh.18.1

ve_hamilton.16.2

jwalsh.17.2

ve_hamilton.15.2

jwalsh.16.1

ve_hamilton.14.2

jwalsh.14.1

jwalsh.13.1

jwalsh.12.1

jwalsh.11.3

bowles.221.1

bowles.220.1

jwalsh.10.1

rwilliams.9.1

rwilliams.8.1

rwilliams.7.1

rwilliams.6.1

rwilliams.4.1

rwilliams.3.1

nrs.159.2

nrs.158.7

nrs.157.2

nrs.156.4

nrs.155.2

nrs.154.4

jones.299.1

nrs.153.2

nrs.152.4

nrs.151.2

jones.291.2

jones.290.3

bowles.219.1

bowles.211.1

bowles.210.1

nrs.146.4

nrs.145.2

nrs.144.4

nrs.143.2

jones.289.2

nrs.142.4

nrs.141.2

nrs.140.4

jones.283.1

jones.282.1

jones.281.1

bowles.209.1

wetlandsofindia.48.1

wetlandsofindia.47.1

wetlandsofindia.46.1

nrs.139.2

nrs.138.4

wetlandsofindia.44.1

nrs.137.2

nrs.136.4

wetlandsofindia.43.1

nrs.135.2

nrs.132.4

nrs.131.2

nrs.130.4

jones.274.2

jones.273.2

jones.272.2

nottrott.18.1

nottrott.17.1

nottrott.16.1

tao.11499.1

nottrott.15.1

tao.11498.1

wetlandsofindia.36.1

nrs.129.2

tao.11497.1

nrs.128.5

wetlandsofindia.35.1

tao.11495.1

wetlandsofindia.34.1

nrs.127.3

tao.11494.1

wetlandsofindia.32.1

wetlandsofindia.31.1

jones.264.5

jones.263.5

jones.262.5

jones.261.6

jones.260.2

enviroedukator.9.4

enviroedukator.8.4

enviroedukator.7.4

enviroedukator.5.5

enviroedukator.4.1

wetlandsofindia.29.1

wetlandsofindia.28.1

wetlandsofindia.27.1

nrs.116.4

nrs.115.2

nrs.114.3

nrs.113.2

jones.259.3

jones.258.3

jones.257.3

jones.251.3

jones.250.3

obfs.299.2

obfs.298.4

obfs.297.3

obfs.296.3

obfs.295.2

obfs.292.3

obfs.291.2

higgins.4630.1

nrs.108.4

nrs.107.2

nrs.106.4

nrs.105.2

jones.249.3

nrs.102.3

nrs.101.2

nrs.100.4

obfs.288.3

higgins.4629.1

obfs.287.2

higgins.4628.1

obfs.284.3

higgins.4625.1

obfs.282.2

obfs.280.3

obfs.279.2

wetlands.34.1

wetlands.33.1

wetlands.32.1

obfs.272.3

wetlands.30.1

obfs.271.2

zulvir.8.1

zulvir.7.1

zulvir.6.1

zulvir.4.1

zulvir.3.1

jones.228.1

jones.227.1

jones.226.1

jones.225.1

wetlands.29.1

obfs.266.3

obfs.265.2

obfs.264.3

obfs.263.2

jones.217.1

jones.216.1

jones.215.1

obfs.258.3

obfs.257.2

obfs.256.3

obfs.255.2

jones.208.3

jones.207.3

jones.206.3

jones.204.22

jones.203.2

tonelow13.1043.1

tonelow13.1042.1

tonelow13.1041.1

obfs.244.3

obfs.243.2

higgins.1334.1

obfs.240.3

obfs.239.2

obfs.236.3

obfs.235.2

obfs.234.3

obfs.233.2

tao.9537.1

tao.9536.1

tao.9535.1

tao.9533.1

tao.9532.1

Sartwell.126.2

Sartwell.125.1

Sartwell.124.5

tonelow13.1024.7

obfs.228.3

obfs.227.2

mzalamea.7.1

obfs.224.3

mzalamea.6.1

obfs.223.2

mzalamea.5.1

mzalamea.4.1

obfs.222.3

obfs.221.2

redemm.8.1

mzalamea.3.1

redemm.7.1

redemm.6.1

redemm.4.1

Sartwell.117.1

redemm.3.1

Sartwell.116.1

Sartwell.115.1

tonelow13.1014.1

tonelow13.1013.1

tonelow13.1012.1

tonelow13.1011.1

obfs.214.3

obfs.213.2

Sartwell.101.1

camuso.40.1

Sartwell.100.1

obfs.200.3

camuso.39.1

camuso.38.1

camuso.28.1

camuso.27.1

camuso.26.1

camuso.24.2

rwilliams.14.1

camuso.23.1

rwilliams.13.1

rwilliams.12.1

rwilliams.10.1

obfs.99.2

obfs.90.3

tao.9049.1

tao.9048.1

tao.9047.1

tao.9045.4

tao.9044.1

tao.9041.1

dblankman.44.1

tao.9040.1

dblankman.42.1

dblankman.41.1

dblankman.40.1

obfs.89.2

obfs.84.4

obfs.83.2

obfs.82.3

obfs.81.2

obfs.80.3

tao.9039.1

tao.9038.1

tao.9037.1

tao.9036.1

tao.9035.1

dblankman.38.1

tao.9034.1

tao.9033.1

dblankman.37.1

dblankman.36.1

dblankman.35.1

tao.9031.1

tao.9030.1

dblankman.33.1

dblankman.32.1

dblankman.31.1

obfs.79.2

obfs.78.3

obfs.77.2

obfs.76.2

obfs.75.2

obfs.74.3

obfs.73.2

obfs.70.4

brooke2.140.4

tao.9029.1

tao.9028.1

tao.9027.2

tao.9026.1

dblankman.29.1

dblankman.27.1

dblankman.26.1

dblankman.25.1

dblankman.23.2

dblankman.21.1

dblankman.20.1

obfs.69.3

obfs.66.3

obfs.65.2

obfs.64.3

obfs.63.2

obfs.62.4

obfs.60.4

dblankman.19.1

dblankman.17.1

dblankman.15.1

dblankman.14.1

dblankman.13.1

dblankman.12.1

obfs.59.2

obfs.58.4

obfs.57.2

obfs.56.5

obfs.55.3

obfs.54.4

obfs.53.2

obfs.50.4

oeddins.9.1

oeddins.8.1

oeddins.7.1

oeddins.6.1

oeddins.5.3

oeddins.4.1

obfs.49.2

obfs.48.4

obfs.47.2

obfs.46.4

obfs.45.2

obfs.44.4

obfs.43.2

nrs.99.2

nrs.98.5

nrs.97.4

obfs.36.4

obfs.35.2

piscoUCSB.21.1

nrs.76.3

nrs.75.2

nrs.70.3

VIR.8.1

VIR.7.1

VIR.6.1

VIR.4.1

VIR.3.1

nrs.69.2

nrs.68.5

nrs.67.2

nrs.64.5

nrs.63.2

nrs.54.2

Sartwell.99.1

nrs.53.2

nrs.52.2

nrs.51.2

Sartwell.92.2

Sartwell.91.2

Sartwell.90.2

nrs.48.3

nrs.47.2

nrs.46.2

nrs.45.2

nrs.44.2

Sartwell.88.10

nrs.43.2

nrs.42.2

Sartwell.87.1

ptorres.7.1

ptorres.6.1

nrs.40.2

ptorres.5.1

ptorres.4.1

ptorres.3.1

obfs.350.2

tcoll.27.1

tcoll.26.1

tcoll.25.1

tcoll.24.1

nrs.39.2

tcoll.23.1

nrs.38.2

tcoll.22.1

nrs.37.2

tcoll.21.1

tcoll.20.1

jones.301.1

jones.300.1

obfs.349.2

obfs.348.2

obfs.347.2

obfs.346.2

obfs.345.2

obfs.344.2

obfs.343.2

tcoll.19.1

tcoll.18.1

tcoll.17.1

tcoll.16.1

tcoll.15.1

tcoll.14.1

tcoll.13.1

nrs.26.3

nrs.25.3

nrs.24.2

nrs.23.2

nrs.22.2

nrs.20.2

obfs.338.2

obfs.337.2

obfs.336.2

obfs.335.2

obfs.334.2

obfs.333.2

obfs.332.2

obfs.331.2

obfs.330.2

nrs.19.2

obfs.329.2

obfs.328.2

obfs.327.2

obfs.326.2

obfs.325.2

obfs.324.3

obfs.323.2

obfs.322.3

obfs.321.2

obfs.320.3

umatilla.32.1

umatilla.31.1

umatilla.30.1

obfs.319.2

jwalsh.9.1

obfs.316.3

jwalsh.8.1

obfs.315.2

jwalsh.7.1

obfs.314.3

jwalsh.5.2

umatilla.28.3

obfs.313.2

obfs.312.3

umatilla.27.1

jwalsh.4.1

obfs.311.2

obfs.310.3

umatilla.25.1

umatilla.24.1

umatilla.23.2

obfs.309.2

obfs.308.3

obfs.307.2

obfs.306.3

obfs.305.2

obfs.304.3

tao.9608.1

tao.9607.1

obfs.303.2

obfs.302.3

tao.9606.1

tao.9605.1

obfs.301.2

umatilla.16.1

obfs.300.3

tao.9604.1

umatilla.15.1

umatilla.14.1

umatilla.12.7

umatilla.11.1

tao.9160.1

tao.9159.1

bowles.454.1

tao.9158.1

bowles.453.1

bowles.452.1

bowles.450.1

rellis.2677.1

tao.9150.1

hbr.9.1

hbr.8.2

hbr.7.1

hbr.5.3

hbr.4.1

bowles.449.1

bowles.448.1

bowles.447.1

bowles.446.1

tao.9149.1

bowles.444.1

tao.9148.1

tao.9147.1

bowles.443.1

bowles.442.1

tao.9146.1

bowles.441.1

tao.9145.1

bowles.440.2

tao.9144.1

tao.9143.1

tao.9142.1

tao.9141.1

tcoll.7.1

tcoll.6.1

tcoll.5.1

tcoll.4.3

tcoll.3.1

bowles.439.2

obfs.199.2

bowles.438.2

bowles.436.5

bowles.435.1

obfs.178.3

obfs.177.2

obfs.176.3

obfs.175.2

obfs.174.3

obfs.173.2

garciae7.13.1

garciae7.12.1

garciae7.11.1

garciae7.10.1

obfs.166.3

obfs.165.2

obfs.164.3

obfs.163.2

obfs.160.3

obfs.159.2

#!/usr/bin/perl

#

#  '$RCSfile$'

#  Copyright: 2000 Regents of the University of California 

#

#   '$Author$'

#     '$Date$'

# '$Revision$' 

# 

# 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

#

#

# This is a CGI application for inserting metadata documents into

# the Metacat database.  It utilizes the Metacat.pm module for most work.

# You can specify two metacats and a list of documents. This script will

# copy documents from one metacat to another.

use Metacat;

my $metacat1;

my $metacat2;

my $docid;

my $error = 0;

my $xmldoc;

my $xa;

my $response;

my $listname = "list_of_docids";

my $metacat1_url = "http://metacat.nceas.ucsb.edu/knb/metacat";

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

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

my $password = "xxxxxxxxxx";

$metacat1 = Metacat->new();

$metacat2 = Metacat->new();

if ($metacat1) {

    $metacat1->set_options( metacatUrl => $metacat1_url);

} else {

    #die "failed during metacat creation\n";

    print "Failed during metacat1 creation.";

    $error = 1;

}

# Login to metacat

print "Connecting to metacat1..........\n";

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

if (! $response1) {

    print $metacat1->getMessage();

    print "Failed during login: metacat1.\n";

    $error = 2;

} else {

    print "Connected to metacat1\n";

}

if ($metacat2) {

    $metacat2->set_options( metacatUrl => $metacat2_url );

} else {

    #die "failed during metacat creation\n";

    print "Failed during metacat2 creation.";

    $error = 3;

}

# Login to metacat

print "Connecting to metacat2..........\n";

my $response2 = $metacat2->login($username, $password);

if (! $response2) {

    #print $metacat->getMessage();

    #die "failed during login\n";

    print $metacat2->getMessage();

    print "Failed during login: metacat2.\n";

    $error = 4;

} else {

    print "Connected to metacat2\n";

}

if($error == 0){

    open(file,$listname) || die ("Couldn't open the file");

    while(<file>) {

	chomp();

	$xmldoc = $metacat1->read($_);

	$xa = $xmldoc->content;

	$response = $metacat2->insert($_, $xa);

	print $metacat2->getMessage();

    }

} else {

    print $error;

}