Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Minor change so it doesn't search entire accesslog on its first run

  • Loading branch information...
commit 196e8f607d042a8084ce59fc3cd10ce23353257e 1 parent 360fd39
@tvroom tvroom authored
Showing with 10 additions and 4 deletions.
  1. +10 −4 themes/slashcode/tasks/performance_stats.pl
View
14 themes/slashcode/tasks/performance_stats.pl
@@ -39,11 +39,17 @@
push @dates, $date;
}
- my $start_id = $constants->{cur_performance_stats_lastid} || 0;
- my $hist_results = $slashdb->avgDynamicDurationForHour($ops, \@dates, $cur_hour);
+ my $start_id = $slashdb->getVar('cur_performance_stats_lastid','value', 1) || 0;
+ my ($cur_results, $hist_results);
+
my ($max_id) = $logdb->sqlSelect("MAX(id)", "accesslog");
- my $cur_results = $logdb->avgDynamicDurationForMinutesBack($ops, 1, $start_id);
+ if ($start_id) {
+ $hist_results = $slashdb->avgDynamicDurationForHour($ops, \@dates, $cur_hour);
+ $cur_results = $logdb->avgDynamicDurationForMinutesBack($ops, 1, $start_id);
+ }
$slashdb->setVar("cur_performance_stats_lastid", $max_id);
+ return if !$start_id;
+
my @results;
@@ -54,7 +60,7 @@
my $hist_duration = $hist_results->{"duration_dy\_$op\_$cur_hour\_mean"}{avg};
my $cur_duration = $cur_results->{$op}{avg};
my $sec = $cur_duration ? sprintf("%.2f", $cur_duration) : "N/A";
- my $percent = $hist_duration ? sprintf("%d\%", (($cur_duration / $hist_duration) * 100 ) - 100) : "N/A";
+ my $percent = $hist_duration ? int((100 * $cur_duration / $hist_duration ) - 100)."%" : "N/A";
$percent = "+$percent" if $percent=~/^[^N-]/;
if ($cur_duration && $hist_duration) {
$sum_cur_duration += $cur_duration;
Please sign in to comment.
Something went wrong with that request. Please try again.