diff options
Diffstat (limited to 'test/bbackupd/testfiles/syncallowscript.pl')
-rwxr-xr-x | test/bbackupd/testfiles/syncallowscript.pl | 72 |
1 files changed, 0 insertions, 72 deletions
diff --git a/test/bbackupd/testfiles/syncallowscript.pl b/test/bbackupd/testfiles/syncallowscript.pl deleted file mode 100755 index ae5e10ee..00000000 --- a/test/bbackupd/testfiles/syncallowscript.pl +++ /dev/null @@ -1,72 +0,0 @@ -#!/usr/bin/perl -# distribution boxbackup-0.11rc2 (svn version: 2072) -# -# Copyright (c) 2003 - 2008 -# Ben Summers and contributors. All rights reserved. -# -# Redistribution and use in source and binary forms, with or without -# modification, are permitted provided that the following conditions -# are met: -# -# 1. Redistributions of source code must retain the above copyright -# notice, this list of conditions and the following disclaimer. -# 2. Redistributions in binary form must reproduce the above copyright -# notice, this list of conditions and the following disclaimer in the -# documentation and/or other materials provided with the distribution. -# 3. All use of this software and associated advertising materials must -# display the following acknowledgment: -# This product includes software developed by Ben Summers. -# 4. The names of the Authors may not be used to endorse or promote -# products derived from this software without specific prior written -# permission. -# -# [Where legally impermissible the Authors do not disclaim liability for -# direct physical injury or death caused solely by defects in the software -# unless it is modified by a third party.] -# -# THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR -# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE -# DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, -# INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES -# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) -# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, -# STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN -# ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -# POSSIBILITY OF SUCH DAMAGE. -# -# -# - -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; |