summaryrefslogtreecommitdiff
path: root/test/bbackupd/testfiles
diff options
context:
space:
mode:
authorChris Wilson <chris+github@qwirx.com>2006-10-16 19:28:43 +0000
committerChris Wilson <chris+github@qwirx.com>2006-10-16 19:28:43 +0000
commite57ac80dde19d259e6e65be60a89c0cdd46c3b64 (patch)
tree5dc635ffc96e3dcf673648cfe14c43e7532237da /test/bbackupd/testfiles
parentbd610e6fea1585387be0127215379c0b5d92c388 (diff)
Add test/bbackupd/testfiles/syncallowscript.pl to the list of Perl files
auto-generated with substitutions. (refs #3)
Diffstat (limited to 'test/bbackupd/testfiles')
-rwxr-xr-xtest/bbackupd/testfiles/syncallowscript.pl.in33
1 files changed, 33 insertions, 0 deletions
diff --git a/test/bbackupd/testfiles/syncallowscript.pl.in b/test/bbackupd/testfiles/syncallowscript.pl.in
new file mode 100755
index 00000000..af425e90
--- /dev/null
+++ b/test/bbackupd/testfiles/syncallowscript.pl.in
@@ -0,0 +1,33 @@
+#!@PERL@
+
+use strict;
+use warnings;
+
+my $control_file = 'testfiles/syncallowscript.control';
+if (! -r $control_file)
+{
+ print "now\n";
+ exit 0;
+}
+
+my $control_state;
+open CONTROL, "< $control_file" or die "$control_file: $!";
+$control_state = <CONTROL>;
+defined $control_state or die "$control_file: read failed: $!";
+close CONTROL;
+
+my $marker_file_root = 'testfiles/syncallowscript.notifyran.';
+my $n = 1;
+my $marker_file;
+
+while($marker_file = $marker_file_root.$n and -e $marker_file)
+{
+ $n ++;
+}
+
+open FL,'>'.$marker_file or die "$marker_file: $!";
+print FL localtime();
+close FL;
+
+print $control_state;
+exit 0;