From 337aee7451a794c855b6ecac7ce884d767c17064 Mon Sep 17 00:00:00 2001 From: Rick Steeves Date: Fri, 2 Sep 2022 10:10:38 -0400 Subject: [PATCH] Tweaking output For turns with no messages, adding the filename to the output. --- scripts/download.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scripts/download.pl b/scripts/download.pl index bb9509c..7e9ef52 100644 --- a/scripts/download.pl +++ b/scripts/download.pl @@ -243,7 +243,7 @@ my ($outBytes) = &decryptMessages(@fileBytes); # get the message data my @outBytes = @{ $outBytes }; open (MESSAGEFILE, ">>$messageFile"); # write out the messages to a file - unless (scalar (@outBytes)) { print MESSAGEFILE "No message(s) found.\n"; } + unless (scalar (@outBytes)) { print MESSAGEFILE $filename . ',' . "No message(s) found.\n"; } else { foreach my $message (@outBytes) { print MESSAGEFILE $filename . ','; # include the file name