Project

General

Profile

« Previous | Next » 

Revision 7226

Added by ben leinfelder over 12 years ago

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