1 files changed, 184 insertions, 177 deletions

diff --git a/scripts/entrypoint.pl b/scripts/entrypoint.pl
index f5c52f6a6..4a3cb2183 100755
--- a/scripts/entrypoint.pl
+++ b/scripts/entrypoint.pl
@@ -9,10 +9,10 @@ use Bugzilla::Install::Localconfig ();
 use Bugzilla::Install::Util qw(install_string);
 use Bugzilla::Test::Util qw(create_user);
 use Bugzilla::DaemonControl qw(
-    run_cereal_and_httpd
-    run_cereal_and_jobqueue
-    assert_httpd assert_database assert_selenium
-    on_finish on_exception
+  run_cereal_and_httpd
+  run_cereal_and_jobqueue
+  assert_httpd assert_database assert_selenium
+  on_finish on_exception
 );
 
 use DBI;
@@ -30,23 +30,24 @@ use Sys::Hostname;
 use User::pwent;
 
 BEGIN {
-    STDOUT->autoflush(1);
-    STDERR->autoflush(1);
+  STDOUT->autoflush(1);
+  STDERR->autoflush(1);
 }
 
 use constant CI => $ENV{CI};
 
 my $cmd  = shift @ARGV;
-my $opts = __PACKAGE__->can("opt_$cmd") // sub { @ARGV };
+my $opts = __PACKAGE__->can("opt_$cmd") // sub {@ARGV};
 my $func = __PACKAGE__->can("cmd_$cmd") // sub {
-    check_data_dir();
-    wait_for_db();
-    run($cmd, @_);
+  check_data_dir();
+  wait_for_db();
+  run($cmd, @_);
 };
 
 fix_path();
 check_user();
-check_env(qw(
+check_env(
+  qw(
     LOCALCONFIG_ENV
     BMO_db_host
     BMO_db_name
@@ -55,231 +56,237 @@ check_env(qw(
     BMO_memcached_namespace
     BMO_memcached_servers
     BMO_urlbase
-));
+    )
+);
 
 $func->($opts->());
 
 sub cmd_demo {
-    unless (-f '/app/data/params') {
-        cmd_load_test_data();
-        check_env(qw(
-            PHABRICATOR_BOT_LOGIN
-            PHABRICATOR_BOT_PASSWORD
-            PHABRICATOR_BOT_API_KEY
-            CONDUIT_USER_LOGIN
-            CONDUIT_USER_PASSWORD
-            CONDUIT_USER_API_KEY
-        ));
-        run( 'perl', 'scripts/generate_conduit_data.pl' );
-    }
-    cmd_httpd();
+  unless (-f '/app/data/params') {
+    cmd_load_test_data();
+    check_env(
+      qw(
+        PHABRICATOR_BOT_LOGIN
+        PHABRICATOR_BOT_PASSWORD
+        PHABRICATOR_BOT_API_KEY
+        CONDUIT_USER_LOGIN
+        CONDUIT_USER_PASSWORD
+        CONDUIT_USER_API_KEY
+        )
+    );
+    run('perl', 'scripts/generate_conduit_data.pl');
+  }
+  cmd_httpd();
 }
 
-sub cmd_httpd  {
-    check_data_dir();
-    wait_for_db();
+sub cmd_httpd {
+  check_data_dir();
+  wait_for_db();
 
-    my $httpd_exit_f = run_cereal_and_httpd();
-    assert_httpd()->get();
-    exit $httpd_exit_f->get();
+  my $httpd_exit_f = run_cereal_and_httpd();
+  assert_httpd()->get();
+  exit $httpd_exit_f->get();
 }
 
 sub cmd_jobqueue {
-    my (@args) = @_;
-    check_data_dir();
-    wait_for_db();
-    exit run_cereal_and_jobqueue(@args)->get;
+  my (@args) = @_;
+  check_data_dir();
+  wait_for_db();
+  exit run_cereal_and_jobqueue(@args)->get;
 }
 
 sub cmd_dev_httpd {
-    my $have_params = -f "/app/data/params";
-    assert_database->get();
-
-    run( 'perl', 'checksetup.pl', '--no-template', $ENV{BZ_ANSWERS_FILE} );
-    if ( not $have_params ) {
-        run( 'perl', 'scripts/generate_bmo_data.pl', '--param' => 'use_mailer_queue=0', 'vagrant@bmo-web.vm' );
-    }
+  my $have_params = -f "/app/data/params";
+  assert_database->get();
+
+  run('perl', 'checksetup.pl', '--no-template', $ENV{BZ_ANSWERS_FILE});
+  if (not $have_params) {
+    run(
+      'perl', 'scripts/generate_bmo_data.pl',
+      '--param' => 'use_mailer_queue=0',
+      'vagrant@bmo-web.vm'
+    );
+  }
 
-    my $httpd_exit_f = run_cereal_and_httpd('-DACCESS_LOGS');
-    assert_httpd()->get;
-    exit $httpd_exit_f->get;
+  my $httpd_exit_f = run_cereal_and_httpd('-DACCESS_LOGS');
+  assert_httpd()->get;
+  exit $httpd_exit_f->get;
 }
 
 sub cmd_checksetup_gen_files {
-    my (@args) = @_;
-    run( 'perl', 'checksetup.pl', '--no-database', @args);
+  my (@args) = @_;
+  run('perl', 'checksetup.pl', '--no-database', @args);
 }
 
 sub cmd_checksetup {
-    check_data_dir();
-    wait_for_db();
-    run( 'perl', 'checksetup.pl', '--no-template', '--no-permissions' );
+  check_data_dir();
+  wait_for_db();
+  run('perl', 'checksetup.pl', '--no-template', '--no-permissions');
 }
 
 sub cmd_load_test_data {
-    wait_for_db();
-
-    die 'BZ_QA_ANSWERS_FILE is not set' unless $ENV{BZ_QA_ANSWERS_FILE};
-    run( 'perl', 'checksetup.pl', '--no-template', $ENV{BZ_QA_ANSWERS_FILE} );
-
-    if ($ENV{BZ_QA_LEGACY_MODE}) {
-        run( 'perl', 'scripts/generate_bmo_data.pl',
-            '--user-pref', 'ui_experiments=off' );
-        chdir '/app/qa/config';
-        say 'chdir(/app/qa/config)';
-        run( 'perl', 'generate_test_data.pl' );
-    }
-    else {
-        run( 'perl', 'scripts/generate_bmo_data.pl', '--param' => 'use_mailer_queue=0' );
-    }
+  wait_for_db();
+
+  die 'BZ_QA_ANSWERS_FILE is not set' unless $ENV{BZ_QA_ANSWERS_FILE};
+  run('perl', 'checksetup.pl', '--no-template', $ENV{BZ_QA_ANSWERS_FILE});
+
+  if ($ENV{BZ_QA_LEGACY_MODE}) {
+    run('perl', 'scripts/generate_bmo_data.pl', '--user-pref',
+      'ui_experiments=off');
+    chdir '/app/qa/config';
+    say 'chdir(/app/qa/config)';
+    run('perl', 'generate_test_data.pl');
+  }
+  else {
+    run('perl', 'scripts/generate_bmo_data.pl', '--param' => 'use_mailer_queue=0');
+  }
 }
 
 sub cmd_test_webservices {
-    my $conf = require $ENV{BZ_QA_CONF_FILE};
-
-    check_data_dir();
-    copy_qa_extension();
-    assert_database()->get;
-    my $httpd_exit_f = run_cereal_and_httpd('-DHTTPD_IN_SUBDIR');
-    my $prove_exit_f = run_prove(
-        httpd_url => $conf->{browser_url},
-        prove_cmd => [
-            'prove', '-qf', '-I/app',
-            '-I/app/local/lib/perl5',
-            sub { glob 'webservice_*.t' },
-        ],
-        prove_dir => '/app/qa/t',
-    );
-    exit Future->wait_any($prove_exit_f, $httpd_exit_f)->get;
+  my $conf = require $ENV{BZ_QA_CONF_FILE};
+
+  check_data_dir();
+  copy_qa_extension();
+  assert_database()->get;
+  my $httpd_exit_f = run_cereal_and_httpd('-DHTTPD_IN_SUBDIR');
+  my $prove_exit_f = run_prove(
+    httpd_url => $conf->{browser_url},
+    prove_cmd => [
+      'prove', '-qf', '-I/app', '-I/app/local/lib/perl5',
+      sub { glob 'webservice_*.t' },
+    ],
+    prove_dir => '/app/qa/t',
+  );
+  exit Future->wait_any($prove_exit_f, $httpd_exit_f)->get;
 }
 
 sub cmd_test_selenium {
-    my $conf = require $ENV{BZ_QA_CONF_FILE};
-    $ENV{HTTP_BACKEND} = 'simple';
-
-    check_data_dir();
-    copy_qa_extension();
-
-    assert_database()->get;
-    assert_selenium()->get;
-    my $httpd_exit_f = run_cereal_and_httpd('-DHTTPD_IN_SUBDIR');
-    my $prove_exit_f = run_prove(
-        httpd_url => $conf->{browser_url},
-        prove_dir => '/app/qa/t',
-        prove_cmd => [
-            'prove', '-qf', '-Ilib', '-I/app',
-            '-I/app/local/lib/perl5',
-            sub { glob 'test_*.t' }
-        ],
-    );
-    exit Future->wait_any($prove_exit_f, $httpd_exit_f)->get;
+  my $conf = require $ENV{BZ_QA_CONF_FILE};
+  $ENV{HTTP_BACKEND} = 'simple';
+
+  check_data_dir();
+  copy_qa_extension();
+
+  assert_database()->get;
+  assert_selenium()->get;
+  my $httpd_exit_f = run_cereal_and_httpd('-DHTTPD_IN_SUBDIR');
+  my $prove_exit_f = run_prove(
+    httpd_url => $conf->{browser_url},
+    prove_dir => '/app/qa/t',
+    prove_cmd => [
+      'prove', '-qf', '-Ilib', '-I/app', '-I/app/local/lib/perl5',
+      sub { glob 'test_*.t' }
+    ],
+  );
+  exit Future->wait_any($prove_exit_f, $httpd_exit_f)->get;
 }
 
-sub cmd_shell   { run( 'bash',  '-l' ); }
-sub cmd_prove   {
-    my (@args) = @_;
-    run( 'prove', '-I/app', '-I/app/local/lib/perl5', @args );
+sub cmd_shell { run('bash', '-l'); }
+
+sub cmd_prove {
+  my (@args) = @_;
+  run('prove', '-I/app', '-I/app/local/lib/perl5', @args);
 }
-sub cmd_version { run( 'cat',   '/app/version.json' ); }
+sub cmd_version { run('cat', '/app/version.json'); }
 
 sub cmd_test_bmo {
-    my (@prove_args) = @_;
-    check_data_dir();
-
-    assert_database()->get;
-    assert_selenium()->get;
-    $ENV{BZ_TEST_NEWBIE}      = 'newbie@mozilla.example';
-    $ENV{BZ_TEST_NEWBIE_PASS} = 'captain.space.bagel.ROBOT!';
-    create_user($ENV{BZ_TEST_NEWBIE}, $ENV{BZ_TEST_NEWBIE_PASS}, realname => 'Newbie User');
-
-    $ENV{BZ_TEST_NEWBIE2}      = 'newbie2@mozilla.example';
-    $ENV{BZ_TEST_NEWBIE2_PASS} = 'captain.space.pants.time.lord';
-
-    my $httpd_exit_f = run_cereal_and_httpd();
-    my $prove_exit_f = run_prove(
-        httpd_url  => $ENV{BZ_BASE_URL},
-        prove_cmd  => [ 'prove', '-I/app', '-I/app/local/lib/perl5', @prove_args ],
-    );
-
-    exit Future->wait_any($prove_exit_f, $httpd_exit_f)->get;
+  my (@prove_args) = @_;
+  check_data_dir();
+
+  assert_database()->get;
+  assert_selenium()->get;
+  $ENV{BZ_TEST_NEWBIE}      = 'newbie@mozilla.example';
+  $ENV{BZ_TEST_NEWBIE_PASS} = 'captain.space.bagel.ROBOT!';
+  create_user(
+    $ENV{BZ_TEST_NEWBIE},
+    $ENV{BZ_TEST_NEWBIE_PASS},
+    realname => 'Newbie User'
+  );
+
+  $ENV{BZ_TEST_NEWBIE2}      = 'newbie2@mozilla.example';
+  $ENV{BZ_TEST_NEWBIE2_PASS} = 'captain.space.pants.time.lord';
+
+  my $httpd_exit_f = run_cereal_and_httpd();
+  my $prove_exit_f = run_prove(
+    httpd_url => $ENV{BZ_BASE_URL},
+    prove_cmd => ['prove', '-I/app', '-I/app/local/lib/perl5', @prove_args],
+  );
+
+  exit Future->wait_any($prove_exit_f, $httpd_exit_f)->get;
 }
 
 sub run_prove {
-    my (%param) = @_;
-
-    my $prove_cmd    = $param{prove_cmd};
-    my $prove_dir    = $param{prove_dir};
-    assert_httpd()->then(sub {
-        my $loop = IO::Async::Loop->new;
-        $loop->connect(
-            socktype => 'stream',
-            host     => 'localhost',
-            service  => 5880,
-        )->then(sub {
-            my $socket       = shift;
-            my $prove_exit_f = $loop->new_future;
-            my $prove        = IO::Async::Process->new(
-                code => sub {
-                    chdir $prove_dir if $prove_dir;
-                    my @cmd = (map { ref $_ eq 'CODE' ? $_->() : $_ } @$prove_cmd);
-                    warn "run @cmd\n";
-                    exec @cmd;
-                },
-                setup => [
-                    stdin  => ['close'],
-                    stdout => [ 'dup', $socket ],
-                ],
-                on_finish    => on_finish($prove_exit_f),
-                on_exception => on_exception('prove', $prove_exit_f),
-            );
-            $prove_exit_f->on_cancel(sub { $prove->kill('TERM') });
-            $loop->add($prove);
-            return $prove_exit_f;
-        });
-    });
+  my (%param) = @_;
+
+  my $prove_cmd = $param{prove_cmd};
+  my $prove_dir = $param{prove_dir};
+  assert_httpd()->then(sub {
+    my $loop = IO::Async::Loop->new;
+    $loop->connect(socktype => 'stream', host => 'localhost', service => 5880,)
+      ->then(sub {
+      my $socket       = shift;
+      my $prove_exit_f = $loop->new_future;
+      my $prove        = IO::Async::Process->new(
+        code => sub {
+          chdir $prove_dir if $prove_dir;
+          my @cmd = (map { ref $_ eq 'CODE' ? $_->() : $_ } @$prove_cmd);
+          warn "run @cmd\n";
+          exec @cmd;
+        },
+        setup        => [stdin => ['close'], stdout => ['dup', $socket],],
+        on_finish    => on_finish($prove_exit_f),
+        on_exception => on_exception('prove', $prove_exit_f),
+      );
+      $prove_exit_f->on_cancel(sub { $prove->kill('TERM') });
+      $loop->add($prove);
+      return $prove_exit_f;
+      });
+  });
 }
 
 sub copy_qa_extension {
-    say 'copying the QA extension...';
-    dircopy('/app/qa/extensions/QA', '/app/extensions/QA');
+  say 'copying the QA extension...';
+  dircopy('/app/qa/extensions/QA', '/app/extensions/QA');
 }
 
 sub cmd_wait_for_db {
-    wait_for_db();
+  wait_for_db();
 }
 
 sub wait_for_db {
-    assert_database()->get;
+  assert_database()->get;
 }
 
 sub check_user {
-    die 'Effective UID must be 10001!' unless $EUID == 10_001;
-    my $user = getpwuid($EUID)->name;
-    die "Name of EUID must be app, not $user" unless $user eq 'app';
+  die 'Effective UID must be 10001!' unless $EUID == 10_001;
+  my $user = getpwuid($EUID)->name;
+  die "Name of EUID must be app, not $user" unless $user eq 'app';
 }
 
 sub check_data_dir {
-    die "/app/data must be writable by user 'app' (id: $EUID)" unless -w '/app/data';
-    die '/app/data/params must exist' unless -f '/app/data/params';
+  die "/app/data must be writable by user 'app' (id: $EUID)"
+    unless -w '/app/data';
+  die '/app/data/params must exist' unless -f '/app/data/params';
 }
 
 sub check_env {
-    my (@require_env) = @_;
-    my @missing_env = grep { not exists $ENV{$_} } @require_env;
-    if (@missing_env) {
-        die 'Missing required environmental variables: ', join(', ', @missing_env), "\n";
-    }
+  my (@require_env) = @_;
+  my @missing_env = grep { not exists $ENV{$_} } @require_env;
+  if (@missing_env) {
+    die 'Missing required environmental variables: ', join(', ', @missing_env),
+      "\n";
+  }
 }
 
 sub fix_path {
-    $ENV{PATH} = "/app/local/bin:$ENV{PATH}";
+  $ENV{PATH} = "/app/local/bin:$ENV{PATH}";
 }
 
 sub run {
-    my (@cmd) = @_;
-    say "+ @cmd";
-    my $rv = system @cmd;
-    if ($rv != 0) {
-        exit 1;
-    }
+  my (@cmd) = @_;
+  say "+ @cmd";
+  my $rv = system @cmd;
+  if ($rv != 0) {
+    exit 1;
+  }
 }