Add --no-app-start option to the build script

Raku · Nov 12, 2015 · 88389a5 · 88389a5
1 parent fade303
commit 88389a5
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 4 deletions.
diff --git a/db-builder/build-project-list.pl b/db-builder/build-project-list.pl
@@ -8,7 +8,10 @@
 use Getopt::Long qw(GetOptions);
 use P6Project;
 
-GetOptions('limit=s' => \my $limit);
+GetOptions(
+    'limit=s'      => \my $limit,
+    'no-app-start' => \my $no_app_start,
+);
 
 my $output_dir = shift(@ARGV) || './';
 binmode STDOUT, ':encoding(UTF-8)';
@@ -23,7 +26,13 @@
 
 make_path("$output_dir/assets/images/logos", { mode => 0755 }) unless -e "$output_dir/assets/images/logos";
 
-my $p6p = P6Project->new(output_dir=>$output_dir, min_popular=>$min_popular, template=>$template, limit=>$limit);
+my $p6p = P6Project->new(
+    output_dir   => $output_dir,
+    min_popular  => $min_popular,
+    template     => $template,
+    limit        => $limit,
+    no_app_start => $no_app_start,
+);
 
 $p6p->load_projects($list_url);
 

diff --git a/db-builder/lib/P6Project.pm b/db-builder/lib/P6Project.pm
@@ -193,8 +193,10 @@ sub write_dist_db {
     );
 
     move DB_FILE, catfile $self->{output_dir}, '..', 'mojo-app', DB_FILE;
-    # system hypnotoad => catfile $self->{output_dir},
-                                        # qw/.. mojo-app bin ModulesPerl6.pl/;
+    unless ( $self->{no_app_start} ) {
+        system hypnotoad => catfile $self->{output_dir},
+            qw/.. mojo-app bin ModulesPerl6.pl/;
+    }
 
     $self;
 }