loncom/metadata_database/cleanup_database.pl - diff

Return to cleanup_database.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.1, 2002/07/25 15:31:10	version 1.3, 2003/02/03 05:17:50
Line 1	Line 1
#!/usr/bin/perl	#!/usr/bin/perl
# The LearningOnline Network	# The LearningOnline Network
# searchcat.pl "Search Catalog" batch script	# cleanup_database.pl Remove stale temporary search results.
#	#
# $Id$	# $Id$
#	#
Line 103 ENDHELP	Line 103 ENDHELP
}	}

# --------------- Read loncapa_apache.conf and loncapa.conf and get variables	# --------------- Read loncapa_apache.conf and loncapa.conf and get variables
my %perlvar = %{&LONCAPA::Configuration::read_conf('loncapa_apache.conf',	my %perlvar = %{&LONCAPA::Configuration::read_conf('loncapa.conf')};
'loncapa.conf')};
delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed	delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed

my $dbh;	my $dbh;