Improve log messages for db generation/app restart (Closes #28)

Raku · Nov 21, 2015 · f41ff22 · f41ff22
1 parent 1d97568
commit f41ff22
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/web/build-project-list.pl b/web/build-project-list.pl
@@ -66,5 +66,4 @@
 }
 
 $p6p->restart_app;
-say '[' . localtime . '] database generated; app restarted';
 
diff --git a/web/lib-db-builder/P6Project.pm b/web/lib-db-builder/P6Project.pm
@@ -158,6 +158,7 @@ sub write_json {
 sub write_dist_db {
     my $self = shift;
 
+    say '[' . localtime . '] starting database generation';
     { # let model go out of scope, so the db file gets finished off
         unlink DB_FILE_TEMP;
         my $m = ModulesPerl6::Model::Dists->new( db_file => DB_FILE_TEMP );
@@ -192,13 +193,17 @@ sub write_dist_db {
     );
 
     move DB_FILE_TEMP, catfile $self->output_dir, DB_FILE;
+
+    say '[' . localtime . '] database generation completed';
+
     $self;
 }
 
 sub restart_app {
     my $self = shift;
     return $self if $self->no_app_start;
 
+    say '[' . localtime . '] Restarting app';
     system hypnotoad => catfile $self->output_dir, qw/bin ModulesPerl6.pl/;
 
     $self;