nsdl/nsdlloncapaorg/harvester.pl - diff

Return to harvester.pl CVS log

Up to [LON-CAPA] / nsdl / nsdlloncapaorg

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