More timing of things we thought were slow.

[skvidarsync] / bin / sync.pl

diff --git a/bin/sync.pl b/bin/sync.pl
index 949548b58d76c14f70e703566537d481e891620b..14c6a3b3a11d45d40a617a25456bf293b484a7f9 100644 (file)
--- a/bin/sync.pl
+++ b/bin/sync.pl
@@ -584,8 +584,12 @@ sub run {
        my $mapping_sheet_json = $sheets_json->{'sheets'}[1];
 
        # Update the list of groups we've seen people in.
+       $start = [Time::HiRes::gettimeofday];
        my %assignments = get_group_assignments($main_sheet_json);
+       log_timing($start, "Parsing group assignments");
+       $start = [Time::HiRes::gettimeofday];
        update_assignment_db($dbh, $config::invitation_channel, $invitation_ts, \%assignments);
+       log_timing($start, "Updating assignments in database");
 
        $start = [Time::HiRes::gettimeofday];
        my %seen_names = find_where_each_name_is($main_sheet_json);