diff --git a/scripts/da b/scripts/da index 9dac027..3c00a65 100755 --- a/scripts/da +++ b/scripts/da @@ -1,10 +1,14 @@ #!/usr/bin/perl -T use warnings; use strict; -use Simba::DA; -use lib 'blib/lib'; -open(my $log, '>>', '/var/log/simba/da.log'); +use POSIX qw(strftime); + +use lib 'blib/lib'; +use Simba::DA; + +my $now = strftime('%Y-%m-%dT%H:%M:%S', localtime()); +open(my $log, '>>', '/var/log/simba/da.log.' . $now); $log->autoflush(1); my $da = Simba::DA->new({fh_log => $log});