Add a script producing projects.json

Author: Tadeusz Sośnierz

updatelist.pl

@@ -0,0 +1,28 @@
+use 5.010;
+use JSON::XS;
+use File::Slurp 'slurp';
+use Try::Tiny;
+use LWP::Simple;
+use autodie;
+system "wget https://raw.githubusercontent.com/perl6/ecosystem/master/META.list -O metalist";
+
+my @modules;
+
+open my $fh, '<', "metalist";
+for(<$fh>) {
+    chomp;
+    try {
+        print "$_ ";
+        say getstore($_, 'tmp');
+        my $hash = decode_json slurp 'tmp';
+        push @modules, $hash;
+    };
+    unlink 'tmp' if -e 'tmp';
+}
+close $fh;
+#unlink 'metalist';
+
+open($fh, '>', "/home/tjs/modules/public/projects.json");
+
+print $fh encode_json \@modules;
+close $fh;