diff options
author | Ben Summers <ben@fluffy.co.uk> | 2005-10-14 08:50:54 +0000 |
---|---|---|
committer | Ben Summers <ben@fluffy.co.uk> | 2005-10-14 08:50:54 +0000 |
commit | 99f8ce096bc5569adbfea1911dbcda24c28d8d8b (patch) | |
tree | 049c302161fea1f2f6223e1e8f3c40d9e8aadc8b /test/bbackupd/testfiles/notifyscript.pl |
Box Backup 0.09 with a few tweeks
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; + |