From d875cb43254b4c3de0081b3c54d4cae3708d3ca4 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Tue, 24 Feb 2015 16:52:58 +0100
Subject: tsv: add realtime_rate metric

---
 index.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'index.pl')

diff --git a/index.pl b/index.pl
index 3eb83e3..24519bf 100644
--- a/index.pl
+++ b/index.pl
@@ -112,6 +112,13 @@ get '/2ddata.tsv' => sub {
 				(scheduled_time, train_id) where $where_clause group by aggregate
 			};
 		}
+		when ('realtime_rate') {
+			$query = qq{
+				select $format as aggregate,
+				avg(delay is not null) from departures
+				where $where_clause group by aggregate
+			};
+		}
 	}
 
 	my $dbres = $self->app->dbh->selectall_arrayref($query);
@@ -127,7 +134,7 @@ get '/2ddata.tsv' => sub {
 				  . substr( $_->[0], 1 ),
 				$_->[1]
 			]
-		} ( @{$dbres}[ 1*24 .. 6*24 ], $dbres->[0] );
+		} ( @{$dbres}[ 1 * 24 .. 6 * 24 ], $dbres->[0] );
 	}
 
 	for my $row ( @{$dbres} ) {
-- 
cgit v1.2.3