From 628ff77b0b3b1e30d006a0531925eede67c00d9c Mon Sep 17 00:00:00 2001
From: Daniel Berteaud <daniel@firewall-services.com>
Date: Sun, 14 Oct 2012 20:46:31 +0200
Subject: [PATCH] Le nom d'un PC peut contenir des points

---
 root/usr/bin/samba-db-logd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/root/usr/bin/samba-db-logd b/root/usr/bin/samba-db-logd
index e468b9d..656772f 100755
--- a/root/usr/bin/samba-db-logd
+++ b/root/usr/bin/samba-db-logd
@@ -77,7 +77,7 @@ while (defined(my $line=$tail->read)){
         $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
-    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;
         $client_ip = $2;
         $client_name = $3;