|
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) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to cleanup_database.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / metadata_database