diff options
Diffstat (limited to 'Echolot/Thesaurus.pm')
| -rw-r--r-- | Echolot/Thesaurus.pm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/Echolot/Thesaurus.pm b/Echolot/Thesaurus.pm index a150367..2e0d6cd 100644 --- a/Echolot/Thesaurus.pm +++ b/Echolot/Thesaurus.pm @@ -1,7 +1,7 @@ package Echolot::Thesaurus; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Thesaurus.pm,v 1.3 2002/07/06 20:15:12 weasel Exp $ +# $Id: Thesaurus.pm,v 1.4 2002/07/07 00:42:46 weasel Exp $ # =pod @@ -33,6 +33,9 @@ sub build_thesaurus() { my @files = grep { ! /^\./ } readdir(DIR); closedir(DIR); + + my $exire_date = time() - Echolot::Config::get()->{'expire_thesaurus'}; + my $data; for my $filename (@files) { my ($id, $what) = $filename =~ /^(\d+)-(adminkey|conf|help|key|stats)$/; @@ -45,6 +48,14 @@ sub build_thesaurus() { $atime,$mtime,$ctime,$blksize,$blocks) = stat($dir.'/'.$filename); + if ($mtime < $expire_date) { + unlink ($filename) or + cluck("Cannot unlink expired $filename"); + print ("Expired thesaurus file $filename\n") if + Echolot::Config::get()->{'verbose'}; + next; + }; + my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime($mtime); @@ -110,5 +121,6 @@ sub build_thesaurus() { close (F); }; + 1; # vim: set ts=4 shiftwidth=4: |