From def406ec3badf71ede396506f5cf7d3b33edca71 Mon Sep 17 00:00:00 2001
From: Dave Cross <dave@dave.org.uk>
Date: Wed, 3 Feb 2016 10:25:27 +0000
Subject: [PATCH] Add body text for body data.

---
 email_snds_data | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/email_snds_data b/email_snds_data
index af5c48f..6d733b4 100755
--- a/email_snds_data
+++ b/email_snds_data
@@ -22,15 +22,19 @@ my $ua = LWP::UserAgent->new;
 my $email = Email::Stuffer->new
   ->to($to)
   ->subject('SDNS Data')
-  ->from('postmaster@mag-sol.com')
-  ->text_body('Here is your SNDS data');
+  ->from('postmaster@mag-sol.com');
+
+my $body = 'Here is your SNDS data';
 
 foreach (@urls) {
   if (my $file = get_url($ua, $_, $key)) {
     $email->attach_file($file);
+  } else {
+    $body .= "\n\nNo data from $_.";
   }
 }
 
+$email->text_body($body);
 $email->send_or_die;
 
 sub get_url {
@@ -39,7 +43,7 @@ sub get_url {
   my $resp = $ua->get("$url?key=$key");
   my $data = $resp->content;
   unless (length $data) {
-    warn "No data for $url\n";
+    warn "No data from $url\n";
     return;
   }