Take mail address for reports from configuration.

Author: mgla

examples/config.json

@@ -2,5 +2,6 @@
 	"backup": [
 		"host1.example.org",
 		"host2.example.org"
-	]
+	],
+	"mail": "backupmail@example.com"
 }

scripts/rsnapshot-tools_report_all

@@ -13,19 +13,23 @@ require JSON;
 use constant {
     LOGPATH  => '/var/log/rsnapshot.reports',
     CONFPATH => '/etc/rsnapshot-tools',
-    MAIL     => 'backupwatcher@example.org'
 };
 
 # Read configuration:
 my @backups = ();
+my $mail;
 {
     my $jsonfn = File::Spec->catfile(CONFPATH, 'config.json');
-    open my $fh, '<', $jsonfn;
+    open(my $fh, '<', $jsonfn) or die("Cloud not open $jsonfn: $!");
     local $/ = undef;
-    my $json = JSON::decode_json(<$fh>) or die "Could not decode $jsonfn\n";
+    my $json = JSON::decode_json(<$fh>) or die("Could not decode $jsonfn");
     close $fh;
     my $backups = $json->{backup};
     @backups = @$backups;
+    $mail = $json->{mail};
+    if (! $mail) {
+        die "Configuration parameter 'mail' not set, can not continue";
+    }
 }
 
 for my $config (@backups) {
@@ -36,7 +40,7 @@ for my $config (@backups) {
         next;
     }
     # Send logfile via Email
-    my $cmd = sprintf('cat %s | mail -s "Backup report: %s" %s', $logfile, $config, MAIL);
+    my $cmd = sprintf('cat %s | mail -s "Backup report: %s" %s', $logfile, $config, $mail);
     system($cmd);
     # Clean logfile
     $cmd = sprintf('echo "Weekly backup report for %s:\n" > %s', $config, $logfile);