Improve logging of Slack nag messages.

diff --git a/bin/sync.pl b/bin/sync.pl
index fbbe7d21eb405b960d3992c0c8afa3a29893499e..9e00dc491eb658ed42e79cd00f84ed70722e37ce 100644 (file)
--- a/bin/sync.pl
+++ b/bin/sync.pl
@@ -422,7 +422,9 @@ sub find_diff {
 }
 
 sub possibly_nag_user {
-       my ($dbh, $ua, $userid, $invitation_ts, $group) = @_;
+       my ($dbh, $ua, $userid, $invitation_ts, $group, $slack_userid_to_slack_name) = @_;
+
+       my $slack_name = $slack_userid_to_slack_name->{$userid};
 
        # See if we've nagged this user before.
        my $q = $dbh->prepare('SELECT * FROM users_nagged WHERE userid=? AND ts=?');
@@ -434,13 +436,13 @@ sub possibly_nag_user {
        my $msg;
        if (!defined($group)) {
                $msg = "Hei! Du meldte deg akkurat på trening, men vi klarer ikke å finne deg i en gruppe i regnearket. For at det skal være enklere for trenerne, ønsker vi gjerne at du går inn på https://regneark.skvidar.run/ og skriver deg inn der med samme navn som du bruker på Slack. Om du er usikker på hvilken gruppe som passer for deg, ta gjerne kontakt med en trener. Velkommen på trening og til klubben!";
-               skv_log("Sender Slack-melding til $userid for å spørre om gruppe.");
+               skv_log("Sender Slack-melding til $slack_name ($userid) for å spørre om gruppe.");
        } elsif ($group eq '(flere grupper)') {
                $msg = "Hei! Du meldte deg akkurat på trening, men du ser ut til å stå i flere forskjellige grupper i regnearket. For at det skal være enklere for trenerne, ønsker vi gjerne at du går inn på https://regneark.skvidar.run/ og retter der. Om du er usikker på hvilken gruppe som passer for deg, ta gjerne kontakt med en trener. Velkommen på trening!";
-               skv_log("Sender Slack-melding til $userid for å spørre om gruppe.");
+               skv_log("Sender Slack-melding til $slack_name ($userid) for å spørre om gruppe.");
        } else {
                $msg = "Hei! Du er påmeldt gruppe *$group*. Om dette er feil, gå gjerne inn og endre på https://regneark.skvidar.run/. Vi gleder oss til å se deg på trening!";
-               skv_log("Sender Slack-melding om at $userid er i gruppe $group.");
+               skv_log("Sender Slack-melding om at $slack_name ($userid) er i gruppe $group.");
        }
 
        my $content = {
@@ -636,7 +638,7 @@ sub run {
                        }
                        if ($#candidates == -1) {
                                skv_log("$slack_name ($userid) er påmeldt på Slack, men fant ikke et regneark-navn for dem.");
-                               possibly_nag_user($dbh, $ua, $userid, $invitation_ts, undef);
+                               possibly_nag_user($dbh, $ua, $userid, $invitation_ts, undef, \%slack_userid_to_slack_name);
                        } elsif ($#candidates == 0) {
                                my $name = $candidates[0];
                                $slack_userid_to_real_name{$userid} = $name;
@@ -677,7 +679,7 @@ sub run {
                next if (!defined($real_name));
                my $group = $assignments{$real_name};
                next if (!defined($group));
-               possibly_nag_user($dbh, $ua, $userid, $invitation_ts, $group);
+               possibly_nag_user($dbh, $ua, $userid, $invitation_ts, $group, \%slack_userid_to_slack_name);
        }
 
        # Find the list of names to mark yellow.