[Author Prev][Author Next][Thread Prev][Thread Next][Author Index][Thread Index]

[or-cvs] [metrics-web/master] Cut off last two days of bandwidth history.



Author: Karsten Loesing <karsten.loesing@xxxxxxx>
Date: Mon, 4 Oct 2010 09:01:54 +0200
Subject: Cut off last two days of bandwidth history.
Commit: bd4a52715d318a82ca75fad2775f53e5e6b9ca65

---
 rserve/linegraphs.R |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/rserve/linegraphs.R b/rserve/linegraphs.R
index bee1a42..3e40298 100644
--- a/rserve/linegraphs.R
+++ b/rserve/linegraphs.R
@@ -76,7 +76,8 @@ plot_bandwidth_line <- function(start, end, path) {
   rs1 <- dbSendQuery(con, q1)
   bw_desc <- fetch(rs1, n = -1)
   q2 <- paste("SELECT date, read, written FROM total_bwhist ",
-      "WHERE date >= '", start, "' AND date <= '", end, "'", sep = "")
+      "WHERE date >= '", start, "' AND date <= '", end, "' ",
+      "AND date < current_date - 1", sep = "")
   rs2 <- dbSendQuery(con, q2)
   bw_hist <- fetch(rs2, n = -1)
   bandwidth <- rbind(data.frame(date = bw_desc$date,
-- 
1.7.1