--- loncom/metadata_database/cleanup_database.pl	2002/07/25 15:31:10	1.1
+++ loncom/metadata_database/cleanup_database.pl	2004/06/09 12:39:39	1.4
@@ -1,8 +1,8 @@
 #!/usr/bin/perl
 # The LearningOnline Network
-# searchcat.pl "Search Catalog" batch script
+# cleanup_database.pl Remove stale temporary search results.
 #
-# $Id: cleanup_database.pl,v 1.1 2002/07/25 15:31:10 matthew Exp $
+# $Id: cleanup_database.pl,v 1.4 2004/06/09 12:39:39 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -79,7 +79,7 @@ use Time::Local;
 use DBI;
 
 my $help = 0;
-my $killtime = 86400;
+my $killtime = 86400*2;
 GetOptions( "killtime=s" => \$killtime, 
             "help"       => \$help );
 if ($help) {
@@ -103,8 +103,7 @@ ENDHELP
 }
 
 # ---------------  Read loncapa_apache.conf and loncapa.conf and get variables
-my %perlvar = %{&LONCAPA::Configuration::read_conf('loncapa_apache.conf',
-                                                   'loncapa.conf')};
+my %perlvar = %{&LONCAPA::Configuration::read_conf('loncapa.conf')};
 delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed
 
 my $dbh;