mg-schema-update: print timestamp when Applying

This makes it easier to see the retry rate etc. if a schema update
needs to be retried due to db conflicts.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>

diff --git a/mg-schema-update b/mg-schema-update
index 770d82abdfa9ea070871a49fffeb2b072bc171e9..f22ed63a3edc81b5b7aae930aac1aceb9f908173 100755 (executable)
--- a/mg-schema-update
+++ b/mg-schema-update
@@ -184,7 +184,7 @@ sub applyone ($) {
     my $fn = $v->{File};
 
     db_retry($dbh_tests, \@all_lock_tables, sub {
-       print "Applying $fn...\n" unless $quiet;
+       printf "%s Applying %s...\n", show_abs_time(time), $fn unless $quiet;
        open F, "<", $fn or die "$fn: $!";
        local $/ = undef;
        my $sql = <F>;