add js download link (scripted)

Author: eserte

cgi-bin/cpantestersmatrix.pl

@@ -18,7 +18,7 @@ package # not official yet
 use strict;
 use warnings;
 use vars qw($VERSION);
-$VERSION = '2.63';
+$VERSION = '2.64';
 
 use vars qw($UA);
 
@@ -561,7 +561,7 @@ BEGIN
 print <<EOF;
   // End script hiding -->
   </script>
-  <script type="text/javascript" src="matrix_cpantesters.js?v=20150419"></script>
+  <script type="text/javascript" src="matrix_cpantesters.js?v=20250502"></script>
 EOF
 if ($reports && USE_JQUERY_TABLESORTER) {
     print <<'EOF';
@@ -1890,6 +1890,11 @@ sub dist_links {
     if ($app_mode != APP_MODE_NDJSONAPI) {
 	print <<EOF;
 <li><a class="sml" href="https://fast2-matrix.cpantesters.org/?@{[ CGI::escapeHTML($q->query_string) ]}">Matrix via ndjson API ("fast2")</a> <!--<span class="sml">(temporary!)</span>-->
+EOF
+    }
+    if (1) {
+	print <<EOF;
+<li><script type="text/javascript">add_json_download_link("$dist")</script> <!--<span class="sml">(temporary!)</span>-->
 EOF
     }
     print <<EOF;

htdocs/matrix_cpantesters.js

@@ -171,3 +171,14 @@ function shift_reload_alternative() {
        elem.innerHTML = elem.innerHTML + ' or click <a href="javascript:window.location.reload(true)">here</a>';
     }
 }
+
+//////////////////////////////////////////////////////////////////////
+
+function add_json_download_link(dist) {
+    var u = "https://www.cpantesters.org";
+    u += "/show";
+    u += "/";
+    u += dist;
+    u += ".json";
+    document.write('<a class="sml" href="' + u + '">raw JSON data</a>');
+}