From b28c7ff7a1a595a068d50663966ea6690c2284fb Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 9 Dec 2010 03:50:07 +0100
Subject: [PATCH] browser: convert-stats-gs download option

---
 tools/convert-stats-gs.pl | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

diff --git a/tools/convert-stats-gs.pl b/tools/convert-stats-gs.pl
index 52ecd4f..8a8a430 100644
--- a/tools/convert-stats-gs.pl
+++ b/tools/convert-stats-gs.pl
@@ -19,9 +19,31 @@ my %count = (
 	-source => 'StatCounter',
 	-site   => 'http://gs.statcounter.com/',
 );
+my $input = \*STDIN;
+
+if (@ARGV) {
+	my %param = (
+		bar             => 1,
+		statType_hidden => 'browser_version',
+		region_hidden   => 'ww', # NL
+		granularity     => 'monthly',
+		statType        => 'Browser%20Version',
+		region          => 'Worldwide', # Netherlands
+		fromMonthYear   => $ARGV[0],
+		toMonthYear     => $ARGV[1] // $ARGV[0],
+		csv             => 1,
+	);
+	my $url = $count{-site};
+	$url .= 'chart.php?'.join('&', map "$_=$param{$_}", keys %param);
+	$count{-url} = $url;
+	require LWP::Simple;
+	my $download = LWP::Simple::get($url) or die "No data from $url\n";
+	undef $input;
+	open $input, '<', \$download or die $!;
+}
 
 my $csv = Text::CSV->new or die Text::CSV->error_diag;
-while (my $row = $csv->getline(\*STDIN)) {
+while (my $row = $csv->getline($input)) {
 	my ($browser, $pct) = @$row;
 	$browser and $pct or next;
 
@@ -46,3 +68,5 @@ __END__
 
 cat <csv data> | F<convert-stats-gs> > browser-usage-gs.inc.pl
 
+F<convert-stats-gs> <year-month>
+
-- 
2.30.0