diff options
Diffstat (limited to 'test/bbackupd/testfiles/notifyscript.pl')
-rwxr-xr-x | test/bbackupd/testfiles/notifyscript.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test/bbackupd/testfiles/notifyscript.pl b/test/bbackupd/testfiles/notifyscript.pl new file mode 100755 index 00000000..a31d072e --- /dev/null +++ b/test/bbackupd/testfiles/notifyscript.pl @@ -0,0 +1,15 @@ +#!/usr/bin/perl + + +my $f = 'testfiles/notifyran.'.$ARGV[0].'.'; +my $n = 1; + +while(-e $f.$n) +{ + $n ++; +} + +open FL,'>'.$f.$n; +print FL localtime(); +close FL; + |