refactor(install): lock while installing

lib/Ravada.pm

@@ -13,6 +13,7 @@ use Hash::Util qw(unlock_hash lock_hash);
 use JSON::XS;
 use Moose;
 use POSIX qw(WNOHANG);
+use Proc::PID::File;
 use Time::HiRes qw(gettimeofday tv_interval);
 use YAML;
 use MIME::Base64;
@@ -142,6 +143,16 @@ sub BUILD {
 }
 
 sub _install($self) {
+    my $pid = Proc::PID::File->new(name => "ravada_install");
+    if ( $pid->alive ) {
+        print "Waiting for install process to finish" if $ENV{TERM};
+        while ( $pid->alive ) {
+            sleep 1;
+            print "." if $ENV{TERM};
+        }
+        print "\n" if $ENV{TERM};
+    }
+    $pid->touch;
     $self->_sql_create_tables();
     $self->_create_tables();
     $self->_upgrade_tables();
@@ -150,6 +161,7 @@ sub _install($self) {
     $self->_init_user_daemon();
     $self->_sql_insert_defaults();
     print "\n" if $FIRST_TIME_RUN;
+    $pid->release();
 }
 
 sub _init_user_daemon {