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"; |
} |
} |