Update TODO about messaging.

[skvidarsync] / bin / sync.pl

diff --git a/bin/sync.pl b/bin/sync.pl
index e1840f271de02246c301650ed44d16d23a61ea41..7012866c17e9be1cf84d32fa0f215703a406a7fd 100644 (file)
--- a/bin/sync.pl
+++ b/bin/sync.pl
@@ -7,12 +7,14 @@ use JSON::XS;
 use LWP::UserAgent;
 use DBI;
 use POSIX;
+use Time::HiRes;
 binmode STDOUT, ':utf8';
 binmode STDERR, ':utf8';
 use utf8;
 
 # TODO:
 # - detect moves between groups
+# - make the sheet message more in-your-face
 
 require '../include/config.pm';
 
@@ -329,6 +331,8 @@ sub possibly_nag_user {
 }
 
 sub run {
+       my $start = [Time::HiRes::gettimeofday];
+
        @log = ();
        skv_log("Siste sync startet: " . POSIX::ctime(time));
 
@@ -590,6 +594,9 @@ sub run {
        push @yellow_updates, serialize_skv_log_to_sheet();
        sheet_batch_update($ua, $token, \@yellow_updates);
        $dbh->commit;
+
+       my $elapsed = Time::HiRes::tv_interval($start);
+       printf "Tok %.0f ms.\n", 1e3 * $elapsed;
 }
 
 if ($#ARGV >= 0 && $ARGV[0] eq '--daemon') {