Project

General

Profile

« Previous | Next » 

Revision 7226

use kepler account as default

View differences:

src/perl/transfer_emldocs_from_metacat1_to_metacat2.pl
28 28
# copy documents from one metacat to another.
29 29

  
30 30

  
31
use lib qw(/opt/local/lib/perl5/site_perl/5.12.3);
31 32
use Metacat;
32 33

  
33 34
my $metacat1;
......
40 41

  
41 42
my $listname = "list_of_docids";
42 43

  
43
my $metacat1_url = "http://metacat.nceas.ucsb.edu/knb/metacat";
44
my $metacat2_url = "http://indus.nceas.ucsb.edu/knb-test/metacat";
45
my $username = "uid=sgarg,o=NCEAS,dc=ecoinformatics,dc=org";
46
my $password = "xxxxxxxxxx";
44
my $metacat1_url = "https://mn-stage-ucsb-1.dataone.org/knb/metacat";
45
my $metacat2_url = "https://demo2.test.dataone.org/knb/metacat";
46
my $username = "uid=kepler,o=unaffiliated,dc=ecoinformatics,dc=org";
47
my $password = "xxx";
47 48

  
48 49
$metacat1 = Metacat->new();
49 50
$metacat2 = Metacat->new();

Also available in: Unified diff