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