version 1.5, 2003/07/29 15:10:31
|
version 1.6, 2003/10/21 15:28:13
|
Line 44 my @servers = (
|
Line 44 my @servers = (
|
'zappa.ags.udel.edu', |
'zappa.ags.udel.edu', |
'loncapa.gwu.edu', |
'loncapa.gwu.edu', |
'neptune.physics.ndsu.nodak.edu', |
'neptune.physics.ndsu.nodak.edu', |
'capa1.uwsp.edu'); |
'capa1.uwsp.edu', |
|
'natasha.it.fit.edu', |
|
'loncapa.Mines.EDU', |
|
'loncapa.chm.nau.edu'); |
|
|
foreach (@servers) { |
foreach (@servers) { |
my $url='http://'.$_.'/cgi-bin/metadata_harvest.pl'; |
my $url='http://'.$_.'/cgi-bin/metadata_harvest.pl'; |
Line 171 foreach my $metadata (@loncapa) {
|
Line 174 foreach my $metadata (@loncapa) {
|
# Defaults mean access open to any registered LON-CAPA user |
# Defaults mean access open to any registered LON-CAPA user |
# Private means open only to author of material |
# Private means open only to author of material |
next if ( $copyright eq 'private'); |
next if ( $copyright eq 'private'); |
|
next if ( $copyright eq 'domain'); |
my $platform = "5"; # HTML Browser (not specified but construed from metadata) |
my $platform = "5"; # HTML Browser (not specified but construed from metadata) |
# |
# |
# Create path |
# Create path |