blob: d3e324e9d7261eb5c3afb59415c0ad730f8dcda1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!@TARGET_PERL@
my $f = 'testfiles/notifyran.'.$ARGV[0].'.';
if (-e 'testfiles/notifyscript.tag')
{
open FILE, '< testfiles/notifyscript.tag' or die $!;
my $tag = <FILE>;
chomp $tag;
$f .= "$tag.";
close FILE;
}
my $n = 1;
while(-e $f.$n)
{
$n ++;
}
open FL,'>'.$f.$n;
print FL localtime();
close FL;
|
