|
|
@ -77,7 +77,7 @@ while (defined(my $line=$tail->read)){ |
|
|
|
$action, $status, $access_mode, $file_src, $file_dst) = undef; |
|
|
|
$action, $status, $access_mode, $file_src, $file_dst) = undef; |
|
|
|
|
|
|
|
|
|
|
|
# Oct 12 17:20:24 sme8 smbd[11176]: admin|192.168.7.50|pc10-45|intranet|mkdir|Nouveau dossier |
|
|
|
# Oct 12 17:20:24 sme8 smbd[11176]: admin|192.168.7.50|pc10-45|intranet|mkdir|Nouveau dossier |
|
|
|
if ($line =~ m/^\w+\s\d+\s\d+:\d+:\d+\s\w+\ssmbd\[\d+\]:\s+(\w+)\|(\d+\.\d+\.\d+\.\d+)\|(\w+)\|(\w+)\|(\w+)/){ |
|
|
|
if ($line =~ m/^\w+\s\d+\s\d+:\d+:\d+\s\w+\ssmbd\[\d+\]:\s+(\w+)\|(\d+\.\d+\.\d+\.\d+)\|([\w\.]+)\|(\w+)\|(\w+)/){ |
|
|
|
$username = $1; |
|
|
|
$username = $1; |
|
|
|
$client_ip = $2; |
|
|
|
$client_ip = $2; |
|
|
|
$client_name = $3; |
|
|
|
$client_name = $3; |
|
|
|