Tweaking output

For turns with no messages, adding the filename to the output.
ricks03 · Sep 2, 2022 · 337aee7 · 337aee7
1 parent c21021e
commit 337aee7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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