oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added temp directory handling.

Browse source
This commit is contained in:
JT Smith 2003-05-10 19:41:58 +00:00
parent 07287dd2ec
commit 9b7d273b6d
1 changed files with 62 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

62
sbin/Hourly/CleanTemp.pm Normal file
View file

@ -0,0 +1,62 @@
package Hourly::CleanTemp;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2003 Plain Black LLC.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use File::Path;
use File::stat;
use strict;
use WebGUI::Session;
#-----------------------------------------
# _checkFileAge(filenameWithPath,ageToCheck)
# return: true/false
# checks age of file against specified age and reports true/false
sub _checkFileAge {
my ($filestat, $flag);
$filestat = stat($_[0]) or print "No $_[0]: $!";
if ((time()-$filestat->mtime) > $_[1]) {
$flag = 1;
} else {
$flag = 0;
}
return $flag;
}
#-----------------------------------------
# _recurseFileSystem(path, ageOfFilesToDelete)
# recurses the filesystem looking for files to delete
sub _recurseFileSystem {
my (@filelist, $file);
if (opendir(DIR,$_[0])) {
@filelist = readdir(DIR);
closedir(DIR);
foreach $file (@filelist) {
unless ($file eq "." || $file eq "..") {
_recurseFileSystem($_[0].$session{os}{slash}.$file,$_[1]);
if (_checkFileAge($_[0].$session{os}{slash}.$file,$_[1])) {
rmtree($_[0].$session{os}{slash}.$file);
}
}
}
}
}
#-----------------------------------------
sub process {
my $pathToClean = $session{config}{uploadsPath}.$session{os}{slash}."temp";
my $timeToDie = 86400;
_recurseFileSystem($pathToClean,$timeToDie);
}
1;