From 4a061582e4fa565e668dc3bf1b8535fa8bae3766 Mon Sep 17 00:00:00 2001 From: Chris Wilson Date: Wed, 28 May 2008 09:41:32 +0000 Subject: Add support to notifyscript to use a tag, useful for tests with frequently-generated messages such as backup-start. --- test/bbackupd/testfiles/notifyscript.pl.in | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'test/bbackupd') 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 = ; + chomp $tag; + $f .= "$tag."; + close FILE; +} + my $n = 1; while(-e $f.$n) -- cgit v1.2.3