Revert "ecosystem update: 1446652945"

This reverts commit d33d88c.

Author: Nick Logan

README.md

@@ -0,0 +1,31 @@
+We, the module installer developers, hereby decree...
+
+Too official? Ok, I'll go again.
+
+In this repository you'll find metadata for projects and modules. It's nice
+to have that in a central place, apart from any specific module installer
+(*cough* proto neutro pls *cough*), for at least these three reasons:
+
+* The set of people who want access to a module installer and the set of
+  people who want access to module metadata are two different sets.
+
+* If each installer has one set of metadata, that's more for everyone to
+  keep updated. If it's in a central place, there's less work.
+
+* The list of projects in the ecosystem is really an orthogonal to the
+  installer, or even *an* installer. It might be used for other things,
+  such as rendering the list at http://modules.perl6.org
+
+To add a new module to the ecosystem, add the URL of the module's raw META.info
+file to the META.list file here in the ecosystem. Since the updates to
+the ecosystem are announced in the #perl6 IRC channel, it is helpful
+if you include the HTTP URL to your repo in your commit message, so others
+could easily view your new module, e.g.:
+
+    git commit -m 'Add FooBar to ecosystem' -m 'See https://github.com/foobar/FooBar'
+
+So there you go. It probably bears repeating that all of this is quite
+temporary; something to sustain us until we can hook up with CPAN goodness
+in some more long-term way.
+
+Have a nice day.

SHELTER/io-prompt/META.info

@@ -0,0 +1 @@
+{ "name" : "io-prompt", "version" : "*", "description" : "[old] Perl6 basic type validating IO prompting for command line tools.", "depends" : [  ], "source-url" : "git://github.com/pnu/io-prompt.git" }

SHELTER/lolsql/META.info

@@ -0,0 +1 @@
+{ "name" : "lolsql", "version" : "*", "description" : "[old] I can has lolsql parser?", "depends" : [  ], "source-url" : "git://github.com/jnthn/lolsql.git" }

projects.json

@@ -0,0 +1,4 @@
+#!/usr/bin/env perl
+use Dancer;
+use modules;
+dance;

server/bin/app.pl

@@ -0,0 +1 @@
+*

server/public/module/.gitignore

@@ -0,0 +1,59 @@
+BEGIN { $ENV{HTTPS_CA_FILE} = '/etc/ssl/certs/ca-certificates.crt' }
+use 5.010;
+use strict;
+use warnings;
+use JSON::XS;
+use LWP::UserAgent;
+use autodie;
+use File::Spec;
+use FindBin;
+
+use Data::Dumper;
+
+my $OUTDIR = shift(@ARGV) // 'public/';
+my $ua = LWP::UserAgent->new;
+$ua->timeout(10);
+
+my @modules;
+my @errors;
+
+open my $fh, '<', "$FindBin::Bin/../META.list";
+for my $url (<$fh>) {
+    chomp $url;
+    next unless $url =~ /\S/;
+    eval {
+        print "$url ";
+        my $response = $ua->get($url);
+        say $response->code;
+        if ($response->is_success) {
+            my $module = decode_json $response->content;
+            push @modules, $module;
+            my $name = $module->{name};
+            if ($name =~ m{[/\\]} || $name =~ m{\.\.}) {
+                die "Invalid module name '$name'";
+            }
+            open my $OUT, '>', File::Spec->catfile($OUTDIR, 'module', $name);
+            print $OUT $response->content;
+            close $OUT;
+        }
+    };
+    if ($@) {
+        warn $@;
+        push @errors, {
+            url => $url,
+            message => $@,
+        };
+    }
+}
+close $fh;
+#unlink 'metalist';
+
+for my $basename ('projects.json',  'list') {
+    open  $fh, '>', File::Spec->catfile($OUTDIR, $basename);
+    print $fh encode_json \@modules;
+    close $fh;
+}
+
+open  $fh, '>', File::Spec->catfile($OUTDIR, 'errors.json');
+print $fh encode_json \@errors;
+close $fh;

server/updatelist.pl

@@ -0,0 +1,120 @@
+=pod
+
+=head1 The F<META.info> File
+
+Every project willing to be a part of the Perl 6 module ecosystem should
+provide some sort of metadata that can be easily identified and handled
+properly. This is what the F<META.info> file is for.
+
+The F<META.info> file I<must> exist in the project's root directory. If
+it doesn't, the module will not be identified as a Perl 6 project and is
+likely to be ignored by the package managers. The F<META.info> file I<must>
+contain valid L<JSON|http://json.org/>.
+
+The JSON content of the file I<must> be a hash object with the following
+fields:
+
+=head2 Mandatory fields
+
+=over 4
+
+=item C<name>
+
+The fully-qualified module name. For example:
+
+    ufo
+    JSON::Tiny
+    HTTP::Server::Simple
+
+The name B<should not> contain any elements indicating that the module is for
+Perl 6 (i.e. no C<perl6::Foo::Bar> or C<Baz::pm6>).
+
+=item C<version>
+
+The module version. If the version is not significant, then this field
+should be set to C<*>.
+
+=item C<description>
+
+A short description of the module.
+
+=item C<depends>
+
+An array that specifies the other modules (if any) that the module depends on.
+Any modules whose C<name> field is equal to the one mentioned in the C<depends>
+field will be installed before the one depending on them. If a module has no
+dependencies, the C<depends> field should be an empty array.
+
+=item C<source-url>
+
+A URL that represents where the module's source code can be obtained.
+
+The URL protocol (or "scheme") determines the type of resource: C<ftp://> and
+C<http://> are assumed to point to archives containing the full module while C<git://>
+points to a Git source code repository.
+
+I<NOTE>: At the time of writing, C<git://> is the only protocol that is known
+to be supported by an installer.
+
+=back
+
+=head2 Optional Fields
+
+=over 4
+
+=item C<source-type>
+
+The type of source the module should be installed from. If this field is
+missing, the value in the C<source-url> field will be used instead.
+
+I<NOTE>: At the time of writing, C<git> is the only type that is known to be
+supported by an installer.
+
+=item C<author>
+
+The author of the module.
+
+=back
+
+The module author can also add any number of other fields he or she wants.
+
+=head1 Example
+
+This is an example F<META.info> file for a module called C<Fast::Food> written
+by Ronald McDonald.
+
+    {
+        "name"        : "Fast::Food",
+        "version"     : "1.2.3",
+        "author"      : "Ronald McDonald",
+        "description" : "Orders virtual fast food that no one can eat",
+        "depends"     : [],
+        "source-type" : "git",
+        "source-url"  : "git://github.com/ronald-mcdonald/fast-food.git"
+    }
+
+=head1 The Directory Structure
+
+The project directory can contain any of the following subdirectories:
+
+=over 4
+
+=item C<bin>
+
+The executables should be placed here. They will be installed with the
+necessary permissions needed for to run them.
+
+=item C<lib>
+
+All C<.pm> (or C<.pm6>) files should be placed here. They may also be compiled
+to some intermediate form (e.g. PIR). All files will be installed to a path from
+which they can be used in Perl 6 code (usually F<~/.perl6/lib>).
+
+=item C<t>
+
+The tests should be placed here. They will be run after building the module and
+before installation.
+
+=back
+
+=cut

spec.pod

@@ -0,0 +1,24 @@
+use v6;
+use JSON::Tiny;
+
+sub run-or-die($x) {
+    run $x and die "Failed running '$x'"
+}
+
+my @modules;
+
+my $fh = open('META.list');
+for $fh.lines -> $url {
+    run-or-die "wget $url";
+    my $info = from-json(slurp('META.info'));
+    @modules.push($info);
+    say $info.perl;
+    unlink 'META.info';
+}
+
+given open('projects.json', :w) {
+    .say(to-json @modules);
+    .close;
+}
+
+$fh.close;

update.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, '>', "projects.json");
+
+print $fh encode_json \@modules;
+close $fh;