loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.13, 2001/04/16 20:32:20	version 1.15, 2001/04/17 13:36:07
Line 2	Line 2
# The LearningOnline Network	# The LearningOnline Network
# searchcat.pl "Search Catalog" batch script	# searchcat.pl "Search Catalog" batch script

# 04/14/2001 Scott Harrison	# 04/14/2001, 04/16/2001 Scott Harrison

# This script goes through a LON-CAPA resource	# This script goes through a LON-CAPA resource
# directory and gathers metadata.	# directory and gathers metadata.
Line 34 while ($configline=<CONFIG>) {	Line 34 while ($configline=<CONFIG>) {
}	}
close(CONFIG);	close(CONFIG);

	# ------------------------------------- Only run if machine is a library server
	exit unless $perlvar{'lonRole'} eq 'library';

my $dbh;	my $dbh;
# ------------------------------------- Make sure that database can be accessed	# ------------------------------------- Make sure that database can be accessed
{	{
Line 188 sub propath {	Line 191 sub propath {
sub sqltime {	sub sqltime {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(@_[0]);	localtime(@_[0]);
$year+=1900;	$mon++; $year+=1900;
return "$year-$mon-$mday $hour:$min:$sec";	return "$year-$mon-$mday $hour:$min:$sec";
}	}