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.4, 2004/06/09 12:39:39
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 79 use Time::Local;	Line 79 use Time::Local;
use DBI;	use DBI;

my $help = 0;	my $help = 0;
my $killtime = 86400;	my $killtime = 86400*2;
GetOptions( "killtime=s" => \$killtime,	GetOptions( "killtime=s" => \$killtime,
"help" => \$help );	"help" => \$help );
if ($help) {	if ($help) {
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;