Fix: Line was not correctly parsed

diff --git a/wwwroot/cgi-bin/awstats.pl b/wwwroot/cgi-bin/awstats.pl
index 3b557e3046268995ce5cee39d837b1bbbc5581bb..e56c7b87a78e25b57e96a72d25957a6322c446ce 100644 (file)
--- a/wwwroot/cgi-bin/awstats.pl
+++ b/wwwroot/cgi-bin/awstats.pl
@@ -18,6 +18,7 @@ use Time::Local;      # use Time::Local 'timelocal_nocheck' is faster but not support
 use Socket;
 use Encode;
 
+
 #------------------------------------------------------------------------------
 # Defines
 #------------------------------------------------------------------------------
@@ -8476,11 +8477,11 @@ sub DefinePerlParsingFormat {
        if ( $LogFormat =~ /^[1-6]$/ ) {    # Pre-defined log format
                if ( $LogFormat eq '1' || $LogFormat eq '6' )
                {       # Same than "%h %l %u %t \"%r\" %>s %b \"%{Referer}i\" \"%{User-Agent}i\"".
-                       # %u (user) is "([^\\[]+)" instead of "[^ ]+" because can contain space (Lotus Notes). referer and ua might be "".
+                       # %u (user) is "([^\\/\\[]+)" instead of "[^ ]+" because can contain space (Lotus Notes). referer and ua might be "".
 
-#                      $PerlParsingFormat="([^ ]+) [^ ]+ ([^\\[]+) \\[([^ ]+) [^ ]+\\] \\\"([^ ]+) (.+) [^\\\"]+\\\" ([\\d|-]+) ([\\d|-]+) \\\"(.*?)\\\" \\\"([^\\\"]*)\\\"";
+                       # $PerlParsingFormat="([^ ]+) [^ ]+ ([^\\[]+) \\[([^ ]+) [^ ]+\\] \\\"([^ ]+) (.+) [^\\\"]+\\\" ([\\d|-]+) ([\\d|-]+) \\\"(.*?)\\\" \\\"([^\\\"]*)\\\"";
                        $PerlParsingFormat =
-"([^ ]+) [^ ]+ ([^\\[]+) \\[([^ ]+) [^ ]+\\] \\\"([^ ]+) ([^ ]+)(?: [^\\\"]+|)\\\" ([\\d|-]+) ([\\d|-]+) \\\"(.*?)\\\" \\\"([^\\\"]*)\\\"";
+"([^ ]+) [^ ]+ ([^\\/\\[]+) \\[([^ ]+) [^ ]+\\] \\\"([^ ]+) ([^ ]+)(?: [^\\\"]+|)\\\" ([\\d|-]+) ([\\d|-]+) \\\"(.*?)\\\" \\\"([^\\\"]*)\\\"";
                        $pos_host    = 0;
                        $pos_logname = 1;
                        $pos_date    = 2;
@@ -8637,8 +8638,8 @@ sub DefinePerlParsingFormat {
                                $pos_logname = $i;
                                $i++;
                                push @fieldlib, 'logname';
-                               # %u (user) is "([^\\[]+)" instead of "[^$LogSeparatorWithoutStar]+" because can contain space (Lotus Notes).
-                               $PerlParsingFormat .= "([^\\[]+)";
+                               # %u (user) is "([^\\/\\[]+)" instead of "[^$LogSeparatorWithoutStar]+" because can contain space (Lotus Notes).
+                               $PerlParsingFormat .= "([^\\/\\[]+)";
                        }
 
                        # Date format