Pass error domains to post-backup script as well

Author: jcameron

Diff for: backup.cgi

@@ -335,7 +335,7 @@ else {
 	# Run any after command
 	if ($in{'oneoff'} && $sched->{'after'}) {
 		&$first_print($text{'backup_arun'});
-		&set_backup_envs($sched, \@doms, $ok);
+		&set_backup_envs($sched, \@doms, $ok, $errdoms);
 		$out = &backquote_command(
 			"($sched->{'after'}) 2>&1 </dev/null");
 		&reset_backup_envs();

Diff for: backup.pl

@@ -197,7 +197,7 @@ package virtual_server;
 # Run any after command
 if ($sched->{'after'}) {
 	&$first_print("Running post-backup command ..");
-	&set_backup_envs($sched, \@doms, $ok);
+	&set_backup_envs($sched, \@doms, $ok, $errdoms);
 	$out = &backquote_command("($sched->{'after'}) 2>&1 </dev/null");
 	&reset_backup_envs();
 	print $out;

Diff for: backups-lib.pl

@@ -6937,11 +6937,11 @@ sub suffix_to_compression
        $file =~ /\.tar$/i ? 2 : -1;
 }
 
-# set_backup_envs(&backup, &doms, [ok|failed])
+# set_backup_envs(&backup, &doms, ok-flag, &error-doms)
 # Set environment variables from a backup object
 sub set_backup_envs
 {
-my ($sched, $doms, $status) = @_;
+my ($sched, $doms, $status, $errdoms) = @_;
 foreach my $k (keys %$sched) {
 	$ENV{'BACKUP_'.uc($k)} = $sched->{$k};
 	}
@@ -6954,6 +6954,8 @@ sub set_backup_envs
 		}
 	}
 $ENV{'BACKUP_DOMAIN_NAMES'} = join(" ", map { $_->{'dom'} } @$doms);
+$ENV{'BACKUP_ERROR_NAMES'} = join(" ", map { $_->{'dom'} } @$errdoms)
+	if ($errdoms);
 $ENV{'BACKUP_STATUS'} = $status if (defined($status));
 }