Add support to notifyscript to use a tag, useful for tests with

frequently-generated messages such as backup-start.

1 files changed, 10 insertions, 1 deletions

diff --git a/test/bbackupd/testfiles/notifyscript.pl.in b/test/bbackupd/testfiles/notifyscript.pl.in
index 89741e46..d3e324e9 100755
--- a/test/bbackupd/testfiles/notifyscript.pl.in
+++ b/test/bbackupd/testfiles/notifyscript.pl.in
@@ -1,7 +1,16 @@
 #!@TARGET_PERL@
 
-
 my $f = 'testfiles/notifyran.'.$ARGV[0].'.';
+
+if (-e 'testfiles/notifyscript.tag')
+{
+	open FILE, '< testfiles/notifyscript.tag' or die $!;
+	my $tag = <FILE>;
+	chomp $tag;
+	$f .= "$tag.";
+	close FILE;
+}
+
 my $n = 1;
 
 while(-e $f.$n)