X-Git-Url: http://git.ozlabs.org/?a=blobdiff_plain;f=scripts%2Flcp_rtt_exporter;h=4b57d2a9e4321b2893313ec9106a85486b8466c0;hb=HEAD;hp=6fab745f2bffb0fc0483b34c4000097fbf08dbeb;hpb=1480d439ca62d17d7a8a4704194860148dc27689;p=ppp.git

diff --git a/scripts/lcp_rtt_exporter b/scripts/lcp_rtt_exporter
index 6fab745..4b57d2a 100644
--- a/scripts/lcp_rtt_exporter
+++ b/scripts/lcp_rtt_exporter
@@ -21,8 +21,10 @@ use List::Util qw(sum max min);
 	my $stats = compute_statistics($data, 60);
 
 	my $s = metrics($stats);
+	my $length = length($s);
 
-	print "Content-type: text/plain\n\n$s";
+	print "Content-type: text/plain\n";
+	print "Content-length: $length\n\n$s";
 	exit;
 }