scripts/lcp_rtt_exporter: include content length in response (#467)

zdzichu · web-flow · commit acd6f47c708f · 2023-12-21T19:51:57.000Z
Signed-off-by: Tomasz Torcz &lt;tomek@pipebreaker.pl&gt;
diff --git 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;
 }
 

Original file line number	Diff line number	Diff line change
`@@ -21,8 +21,10 @@ use List::Util qw(sum max min);`
`21`	`21`	`my $stats = compute_statistics($data, 60);`
`22`	`22`
`23`	`23`	`my $s = metrics($stats);`
	`24`	`+ my $length = length($s);`
`24`	`25`
`25`		`- print "Content-type: text/plain\n\n$s";`
	`26`	`+ print "Content-type: text/plain\n";`
	`27`	`+ print "Content-length: $length\n\n$s";`
`26`	`28`	`exit;`
`27`	`29`	`}`
`28`	`30`