From 1678a9e9c9c0189dfdbbf68ab11cbcc178c5bf97 Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Mon, 22 Jun 2015 01:21:35 +0200 Subject: [PATCH] Make varnishcount.pl multi-backend-capable. --- varnishcount.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/varnishcount.pl b/varnishcount.pl index 7411b05..94203bb 100755 --- a/varnishcount.pl +++ b/varnishcount.pl @@ -8,7 +8,10 @@ use strict; use warnings; no warnings qw(once); -open my $fh, "-|", "varnishncsa -F '%{%s}t %U %q tffb=%{Varnish:time_firstbyte}x' -q 'ReqURL ~ \"^/analysis.pl\"'" +my $url = $ARGV[0] // "/analysis.pl"; # Technically an URL regex, not an URL. +my $port = $ARGV[1] // 5000; + +open my $fh, "-|", "varnishncsa -F '%{%s}t %U %q tffb=%{Varnish:time_firstbyte}x' -q 'ReqURL ~ \"^$url\"'" or die "varnishncsa: $!"; my %uniques = (); @@ -74,5 +77,5 @@ sub output { my $num_viewers = scalar keys %uniques; printf "%d entries in hash, mtime=$mtime\n", scalar keys %uniques; - LWP::Simple::get('http://127.0.0.1:5000/override-num-viewers?num=' . $num_viewers); + LWP::Simple::get('http://127.0.0.1:' . $port . '/override-num-viewers?num=' . $num_viewers); } -- 2.39.2