X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/068f457f9a60a17ca141d3b90bd7dee9aa7267bc..7affe2df7fee946f49e1561a5f58240bd0309b4f:/tools/convert-caniuse.pl

diff --git a/tools/convert-caniuse.pl b/tools/convert-caniuse.pl
index 7006b18..b00a869 100755
--- a/tools/convert-caniuse.pl
+++ b/tools/convert-caniuse.pl
@@ -4,22 +4,60 @@ use strict;
 use warnings;
 
 use Data::Dump 'pp';
-use File::Slurp 'read_file';
 use JSON;
 
+if (@ARGV) {
+	require Time::Piece;
+	require LWP::UserAgent;
+	require File::stat;
+
+	my $target = 'browser-support.inc.pl';
+	my $source = 'http://caniuse.com/data.json';
+
+	my $ua = LWP::UserAgent->new;
+	$ua->agent('sheet.shiar.nl/browser');
+	$ua->default_header('If-Modified-Since' => scalar gmtime $_->mtime)
+		for File::stat::stat($target);
+
+	my $res = $ua->get($source) or die "No data from $source\n";
+	!$res->is_error or die $res->status_line;
+	say $res->status_line;
+
+	exit 0 if $res->code == 304;  # unmodified
+
+	my $data = decode_json($res->decoded_content) or die "Parse error: $!";
+	my $updated = eval {
+		s/ GMT$//,
+		return Time::Piece->strptime($_) for $res->header('Last-Modified')
+	};
+	$data->{-date} = $_->datetime for $updated || ();
+
+	my $suffix = $updated && $updated->ymd || time;
+	open my $save, '>', (my $download = "browser-support-$suffix.inc.pl");
+	print {$save} pp($data);
+	close $save;
+
+	symlink $download, "$target.new" and rename "$target.new", $target
+		or die "New data at $download not linked: $!";
+	exit 0;
+}
+
 local $/;  # slurp
 my $source = readline;
 
 for ($source) { # cleanup
+	s/\A\(// and s/\);?\s*\Z//;  # empty callback
+	next if /^\{/;  # valid json
+
 	# convert seperate variables to hash keys
-	s/\A/{/;
-	s/^caniuse\.(\w+) = /"$1":/gm;
+	s/\A/{\n/;
+	s/^caniuse\.(\w+) *= */"$1":/gm;
 	s/;$/,/gm;
 	s/,\s*\Z/\n}/;
 	# fractions not supported by barekey
-	s/(?<=[,{]) (\d*\.\d) (?=:')/"$1"/gx;
+	s/(?<=[,{\n]) (\d*\.\d) (?=:['"])/"$1"/gx;
 	# escapes not supported in singlequote
-	s{'((?:[^\\']+|\\.)*)'}{
+	s{: *\K'((?:[^\\']+|\\.)*)'}{
 		my $_ = $1;
 		s/"/\\"/g;
 		s/\\'/'/g;
@@ -42,6 +80,8 @@ convert-caniuse - Turn Javascript data into an equivalent Perl structure
 
 =head1 SYNOPSIS
 
-	curl http://caniuse.com/js/data.js |
+	curl http://caniuse.com/data.json |
 	tools/convert-caniuse.pl > browser-support.inc.pl
 
+	tools/convert-caniuse.pl auto
+