version 1.2, 2002/09/09 14:01:04
|
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) { |