hydra-init: show SQL commands being executed

Dependencies

• [2] AMFMXR52 Provide a command ‘hydra-init’ to initialise/upgrade the database
• [3] TJK27WSB Open the DB using Hydra::Model::DB->new

Change contents

• replacement in src/script/hydra-init at line 28
  [2.3345]→[2.3345:3520](∅→∅)
  − $dbh->{Driver}->{Name} eq 'SQLite' ? "$home/sql/hydra-sqlite.sql" :

  − $dbh->{Driver}->{Name} eq 'Pg' ? "$home/sql/hydra-postgresql.sql" :

  − die "unsupported database type\n");
  [2.3345]

  [2.3520]
  + $dbh->{Driver}->{Name} eq 'SQLite' ? "$home/sql/hydra-sqlite.sql" :

  + $dbh->{Driver}->{Name} eq 'Pg' ? "$home/sql/hydra-postgresql.sql" :

  + die "unsupported database type\n");
• replacement in src/script/hydra-init at line 33
  [2.3583]→[2.3583:3726](∅→∅)
  − $dbh->begin_work;

  − $dbh->do($_) foreach @statements;

  − $db->resultset('SchemaVersion')->create({version => $maxSchemaVersion});

  − $dbh->commit;
  [2.3583]

  [2.3726]
  + $dbh->begin_work;

  + $dbh->do($_) foreach @statements;

  + $db->resultset('SchemaVersion')->create({version => $maxSchemaVersion});

  + $dbh->commit;
• replacement in src/script/hydra-init at line 53
  [2.4265]→[2.4265:4393](∅→∅)
  − $dbh->begin_work;

  − $dbh->do($_) foreach @statements;

  − $db->resultset('SchemaVersion')->update({version => $m});

  − $dbh->commit;
  [2.4265]

  [2.4393]
  + $dbh->begin_work;

  + sub run {

  + my ($stm) = @_;

  + print STDERR "executing SQL statement: $stm\n";

  + $dbh->do($_);

  + }

  + run($_) foreach @statements;

  + $db->resultset('SchemaVersion')->update({version => $m});

  + $dbh->commit;