|
|
@ -7,10 +7,20 @@ my $dbname = $rec->prop('DbName') || 'samba_log'; |
|
|
|
my $dbuser = $rec->prop('DbUser') || 'samba'; |
|
|
|
my $dbuser = $rec->prop('DbUser') || 'samba'; |
|
|
|
my $dbpass = $rec->prop('DbPassword') || 'samba'; |
|
|
|
my $dbpass = $rec->prop('DbPassword') || 'samba'; |
|
|
|
my $dbhost = $rec->prop('DbHost') || 'localhost'; |
|
|
|
my $dbhost = $rec->prop('DbHost') || 'localhost'; |
|
|
|
|
|
|
|
my $log = '/var/log/messages'; |
|
|
|
|
|
|
|
if (-e '/var/log/smb_audit.log') { |
|
|
|
|
|
|
|
$log = '/var/log/smb_audit.log'; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
elsif ($rec->prop('LogFile')){ |
|
|
|
|
|
|
|
$log = $rec->prop('LogFile'); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
open(STDERR, ">&STDOUT"); |
|
|
|
open(STDERR, ">&STDOUT"); |
|
|
|
|
|
|
|
|
|
|
|
my @args = ("--debug=1", "--dbname=$dbname", "--dbuser=$dbuser", "--dbpass=$dbpass", "--exclude=opendir"); |
|
|
|
my @args = ("--debug=1", "--dbname=$dbname", "--dbuser=$dbuser", |
|
|
|
|
|
|
|
"--dbpass=$dbpass", "--exclude=opendir", |
|
|
|
|
|
|
|
"--log=$log"); |
|
|
|
|
|
|
|
|
|
|
|
push @args, "--dbhost=$dbhost" if ($dbhost ne 'localhost'); |
|
|
|
push @args, "--dbhost=$dbhost" if ($dbhost ne 'localhost'); |
|
|
|
|
|
|
|
|
|
|
|