fixing some formatting problems

This commit is contained in:
JT Smith 2004-07-28 00:06:28 +00:00
parent e9e4c46aa1
commit 006014bfde

View file

@ -22,13 +22,13 @@ use WebGUI::DateTime;
sub process {
my $verbose = shift;
unless ($session{setting}{passiveProfilingEnabled}) {
print "Passive profiling is disabled...\n";
print " - Passive profiling is disabled." if ($verbose);
return;
}
my ($firstDate) = WebGUI::SQL->quickArray("select min(dateOfEntry) from passiveProfileLog");
my $interval = $session{config}{passiveProfileInterval} || 86400;
if (WebGUI::DateTime::time()-$firstDate < $interval) {
print " - Recently runned: Skipping...\n" if ($verbose);
print " - Recently summarized: Skipping" if ($verbose);
return "";
}