browser: version release data usable as usage styling

diff --git a/browser.plp b/browser.plp
index 3f7b6f865e6c462960bc5c1a21386100d462cd02..4a18cb419ad3e36bbd7c953ccbc52bbcd849d70c 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -50,9 +50,22 @@ if (my ($somerow) = values %{ $caniuse->{data} }) {
        }
 }
 
        }
 }
 

-my $canihas = do 'browser-usage.inc.pl' or do {
+my $canihas = do 'browser-usage.inc.pl' || do {

        printf "<p>Browser usage data not found: <em>%s</em>.</p>\n", $_
                for $! || $@;
        printf "<p>Browser usage data not found: <em>%s</em>.</p>\n", $_
                for $! || $@;

+       +{
+               map {
+                       $_ => +{
+                               map {
+                                       ($_->[4] =>  0 ), # future
+                                       ($_->[3] =>  .5), # next
+                                       ($_->[0] =>  5 ), # past
+                                       ($_->[1] => 10 ), # previous
+                                       ($_->[2] => 30 ), # current
+                               } $caniuse->{agents}->{$_}->{versions}
+                       }
+               } @browsers
+       }; # fallback hash based on release semantics

 };
 my $scorediv = (max(map { sum(values %$_) } values %$canihas) // 1) / 100;
 
 };
 my $scorediv = (max(map { sum(values %$_) } values %$canihas) // 1) / 100;