Changeset 2165 for box/trunk/test

Timestamp:

28/05/2008 10:41:32 (4 years ago)

Author:

chris

Message:

Add support to notifyscript to use a tag, useful for tests with
frequently-generated messages such as backup-start.

File:

• box/trunk/test/bbackupd/testfiles/notifyscript.pl.in (modified) (1 diff)

box/trunk/test/bbackupd/testfiles/notifyscript.pl.in

@@ -1 +1 @@
 #!@TARGET_PERL@
 
+my $f = 'testfiles/notifyran.'.$ARGV[0].'.';
 
-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;