17 lines
316 B
Perl
Executable File
17 lines
316 B
Perl
Executable File
#!/usr/bin/perl -T
|
|
use warnings;
|
|
use strict;
|
|
|
|
use POSIX qw(strftime);
|
|
|
|
use lib 'blib/lib';
|
|
use Simba::DA;
|
|
|
|
my $now = strftime('%Y-%m-%dT%H:%M:%S', localtime());
|
|
mkdir('/var/log/simba');
|
|
open(my $log, '>>', '/var/log/simba/da.log.' . $now);
|
|
$log->autoflush(1);
|
|
my $da = Simba::DA->new({fh_log => $log});
|
|
|
|
$da->run();
|