summaryrefslogtreecommitdiff
path: root/test/bbackupd/testfiles/notifyscript.pl.in
blob: 89741e469a4046627d02e4701459f9c18ea75c6a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!@TARGET_PERL@


my $f = 'testfiles/notifyran.'.$ARGV[0].'.';
my $n = 1;

while(-e $f.$n)
{
	$n ++;
}

open FL,'>'.$f.$n;
print FL localtime();
close FL;