[Box Backup-commit] COMMIT r1217 - in box/trunk: . test/bbackupd/testfiles
boxbackup-dev at fluffy.co.uk
boxbackup-dev at fluffy.co.uk
Fri Dec 15 00:03:12 GMT 2006
Author: chris
Date: 2006-12-15 00:03:12 +0000 (Fri, 15 Dec 2006)
New Revision: 1217
Added:
box/trunk/test/bbackupd/testfiles/syncallowscript.pl.in
Modified:
box/trunk/configure.ac
Log:
Add test/bbackupd/testfiles/syncallowscript.pl to the list of Perl files
auto-generated with substitutions. (merges [1073])
Modified: box/trunk/configure.ac
===================================================================
--- box/trunk/configure.ac 2006-12-14 23:59:45 UTC (rev 1216)
+++ box/trunk/configure.ac 2006-12-15 00:03:12 UTC (rev 1217)
@@ -243,7 +243,8 @@
test/bbackupd/testfiles/bbackupd.conf
test/bbackupd/testfiles/extcheck1.pl
test/bbackupd/testfiles/extcheck2.pl
- test/bbackupd/testfiles/notifyscript.pl])
+ test/bbackupd/testfiles/notifyscript.pl
+ test/bbackupd/testfiles/syncallowscript.pl])
# TODO: Need to do contrib/cygwin/install-cygwin-service.pl but location varies
AC_OUTPUT
Copied: box/trunk/test/bbackupd/testfiles/syncallowscript.pl.in (from rev 1073, box/chris/merge/test/bbackupd/testfiles/syncallowscript.pl.in)
===================================================================
--- box/trunk/test/bbackupd/testfiles/syncallowscript.pl.in (rev 0)
+++ box/trunk/test/bbackupd/testfiles/syncallowscript.pl.in 2006-12-15 00:03:12 UTC (rev 1217)
@@ -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;
Property changes on: box/trunk/test/bbackupd/testfiles/syncallowscript.pl.in
___________________________________________________________________
Name: svn:executable
+
Name: svn:eol-style
+ native
More information about the Boxbackup-commit
mailing list