From 410507b62593ec8cc527567ce44b2be347352df7 Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Mon, 10 Aug 2020 18:53:02 +0200
Subject: [PATCH] List handled requests in scan channel

---
 Delling.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/Delling.pm b/Delling.pm
index c6d06fa..c6df7f2 100644
--- a/Delling.pm
+++ b/Delling.pm
@@ -149,11 +149,19 @@ sub refresh {
 		SET sent = TRUE WHERE id = ANY($1)
 		});
 	$scans->execute;
+	my @scanreqs;
 	while (my $scan = $scans->fetchrow_hashref){
 		$self->message("($scan->{coords} $scan->{type})"
 			." http://game.planetarion.com/showscan.pl?scan_id=$scan->{scan_id}"
 			, @{$scan->{nick}});
 		$sentscan->execute($scan->{id});
+		push @scanreqs, @{$scan->{id}};
+	}
+
+	if (scalar @scanreqs > 0)
+	{
+		my $scanreqs =  join(', ', @scanreqs);
+		$self->toTarget(scan => "Handled the following requests: $scanreqs");
 	}
 
 	my @row = $dbh->selectrow_array(q{SELECT tick(), max(tick) FROM planet_stats});
-- 
2.39.2