}
}
}
- # LOCAL CHANGE FOR HKS 2024
- # Piece together HKS users.
- $q = $dbh->prepare('SELECT userid, TO_CHAR(last_added, \'YYYY-mm-dd HH24:MI\') AS last_added FROM current_reactions_with_ts WHERE channel=? and ts=? and reaction=? ORDER BY current_reactions_with_ts.last_added;');
- $q->execute('C06C34L2R6G', '1712686401.430939', 'heart'); # #hks-2024-05-04
- my @hks_runners = ();
- while (my $ref = $q->fetchrow_hashref) {
- my $userid = $ref->{'userid'};
- if (!exists($slack_userid_to_real_name{$userid}) && !exists($slack_userid_to_slack_name{$userid})) {
- my $slack_name = get_slack_name($ua, $userid);
- my $write_row = $cur_row++;
- push @slack_mapping_updates, {
- range => "Slack-mapping!A$write_row:A$write_row",
- values => [ [ $userid ]]
- };
- push @slack_mapping_updates, {
- range => "Slack-mapping!B$write_row:B$write_row",
- values => [ [ $slack_name ]]
- };
- $slack_userid_to_slack_name{$userid} = $slack_name;
- }
- my $name = $slack_userid_to_real_name{$userid} // $slack_userid_to_slack_name{$userid} // $userid;
- push @hks_runners, {
- values => [
- { userEnteredValue => { stringValue => $name } },
- { userEnteredValue => { stringValue => $ref->{'last_added'} } },
- ]
- };
- }
- push @hks_runners, { values => [{ userEnteredValue => { stringValue => '' } }, { userEnteredValue => { stringValue => '' } }] };
- push @hks_runners, { values => [{ userEnteredValue => { stringValue => '' } }, { userEnteredValue => { stringValue => '' } }] };
- push @hks_runners, { values => [{ userEnteredValue => { stringValue => '' } }, { userEnteredValue => { stringValue => '' } }] };
- # END LOCAL CHANGE FOR HKS 2024
if (scalar @slack_mapping_updates > 0) {
my $update = {
valueInputOption => 'USER_ENTERED',
}
};
- # LOCAL CHANGE FOR HKS 2024
- push @yellow_updates, {
- updateCells => {
- rows => \@hks_runners,
- fields => 'userEnteredValue.stringValue',
- range => {
- sheetId => $config::hks_tab_id,
- startRowIndex => 1,
- endRowIndex => 1 + scalar @hks_runners,
- startColumnIndex => 0,
- endColumnIndex => 2
- }
- }
- };
-
- my @hks_recent_changes = create_reaction_log($dbh, 'C06C34L2R6G', '1712686401.430939', '30 days', \%slack_userid_to_real_name, \%slack_userid_to_slack_name);
- push @yellow_updates, {
- updateCells => {
- rows => \@hks_recent_changes,
- fields => 'userEnteredValue.stringValue',
- range => {
- sheetId => $config::hks_tab_id,
- startRowIndex => 1,
- endRowIndex => 1 + scalar @hks_recent_changes,
- startColumnIndex => 3,
- endColumnIndex => 4
- }
- }
- };
- # END LOCAL CHANGE FOR HKS 2024
-
# Push the final set of updates (including the log).
skv_log("Ferdig.");
push @yellow_updates, serialize_skv_log_to_sheet();