\n"; - print "Your log file $LogFile must have a bad format or LogFormat parameter setup is wrong.
\n"; - print "Your LogFormat parameter is $LogFormat, this means each line in your log file need to have "; - if ($LogFormat == 1) { - print "\"combined log format\" like this:
\n"; - print "111.22.33.44 - - [10/Jan/2001:02:14:14 +0200] \"GET / HTTP/1.1\" 200 1234 \"http://www.fromserver.com/from.htm\" \"Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)\"
\n"; - } - if ($LogFormat == 2) { - print "\"MSIE Extended W3C log format\" like this:
\n"; - print "date time c-ip c-username cs-method cs-uri-sterm sc-status sc-bytes cs-version cs(User-Agent) cs(Referer)
\n"; - } - if ($LogFormat != 1 && $LogFormat != 2) { - print "the following personalised log format:
\n"; - print "$LogFormat
\n"; - } - print "
"; - print "And this is a sample of what AWStats found in your log (the 10th non commented line):
\n"; - print "$_
\n"; - - error(""); # Exit with format error - } + if ($NbOfLinesRead >= 10 && $NbOfLinesCorrupted == $NbOfLinesRead) { error("Format error",$_,$LogFile); } # Exit with format error next; } @@ -1831,14 +1901,22 @@ if ($UpdateStats) { if ($timeconnexion < $LastTime{$yeartoprocess.$monthtoprocess}) { next; } # Should not happen, kept in case of parasite/corrupted old line } else { - if ($timeconnexion <= $LastTime{$yeartoprocess.$monthtoprocess}) { next; } # Already processed + if ($timeconnexion <= $LastTime{$yeartoprocess.$monthtoprocess}) { + # NEXT LINE IS FOR TEST + if (($QueryString =~ /showstep=1/i) && ($NbOfLinesRead % 4000 == 0)) { print "$NbOfLinesRead lines read already processed (".(time()-$starttime)." seconds, ".($NbOfLinesRead/(time()-$starttime+1))." lines/seconds)\n"; } + next; + } # Already processed $NowNewLinePhase=1; # This will stop comparison "<=" between timeconnexion and LastTime (we should have only new lines now) } + # Here, field array, datepart array, timeconnexion and dayconnexion are init for log record + &debug(" This is a not already processed record",3); + # Record is approved. We found a new line #---------------------------------------- $NbOfNewLinesProcessed++; - #if (($QueryString =~ /showstep=1/i) && ($NbOfNewLinesProcessed % 1000 == 0)) { print "$NbOfNewLinesProcessed lines processed\n"; } + # NEXT LINE IS FOR TEST + if (($QueryString =~ /showstep=1/i) && ($NbOfNewLinesProcessed % 4000 == 0)) { print "$NbOfNewLinesProcessed lines processed (".(time()-$starttime)." seconds, ".($NbOfNewLinesProcessed/(time()-$starttime+1))." lines/seconds)\n"; } if (&SkipHost($field[$pos_rc])) { next; } # Skip with some client host IP addresses if (&SkipFile($field[$pos_url])) { next; } # Skip with some URLs @@ -2146,18 +2224,18 @@ if ($UpdateStats) { } } - # News link ? + # Origin not found if (!$found) { - if ($field[$pos_referer] =~ /^news/i) { - if ($PageBool) { $_from_p[1]++; } - $_from_h[1]++; - $found=1; - } + if ($PageBool) { $_from_p[1]++; } + $_from_h[1]++; } + # End of processing all new records. } + &debug("End of processing log file(s)"); + + &debug("Close log file"); close LOG; - &debug("End of processing log file"); # DNSLookup warning if ($DNSLookup && !$NewDNSLookup) { warning("Warning: $PROG has detected that hosts names are already resolved in your logfile $LogFile.
\nIf this is always true, you should change your setup DNSLookup=1 into DNSLookup=0 to increase $PROG speed."); } @@ -2191,13 +2269,13 @@ if ($UpdateStats) { close DIR; foreach $i (0..$#filearray) { if ("$filearray[$i]" =~ /^$PROG[\d][\d][\d][\d][\d][\d]$FileSuffix\.tmp\..*$/) { - $yearmonthfile=$filearray[$i]; $yearmonthfile =~ s/^$PROG//; $yearmonthfile =~ s/\..*//; - if (-s "$DirData/$PROG$yearmonthfile$FileSuffix.tmp.$$") { # Rename only files for this session and with size > 0 - if (rename("$DirData/$PROG$yearmonthfile$FileSuffix.tmp.$$", "$DirData/$PROG$yearmonthfile$FileSuffix.txt")==0) { + my $yearmonth=$filearray[$i]; $yearmonth =~ s/^$PROG//; $yearmonth =~ s/\..*//; + if (-s "$DirData/$PROG$yearmonth$FileSuffix.tmp.$$") { # Rename only files for this session and with size > 0 + if (rename("$DirData/$PROG$yearmonth$FileSuffix.tmp.$$", "$DirData/$PROG$yearmonth$FileSuffix.txt")==0) { $allok=0; # At least one error in renaming working files last; } - chmod 0666,"$DirData/$PROG$yearmonthfile$FileSuffix.txt"; + chmod 0666,"$DirData/$PROG$yearmonth$FileSuffix.txt"; } } } @@ -2217,8 +2295,8 @@ opendir(DIR,"$DirData"); close DIR; foreach $i (0..$#filearray) { if ("$filearray[$i]" =~ /^$PROG[\d][\d][\d][\d][\d][\d]$FileSuffix\.txt$/) { - $yearmonthfile=$filearray[$i]; $yearmonthfile =~ s/^$PROG//; $yearmonthfile =~ s/\..*//; - $yearfile=$yearmonthfile; $yearfile =~ s/^..//; + my $yearmonth=$filearray[$i]; $yearmonth =~ s/^$PROG//; $yearmonth =~ s/\..*//; + my $yearfile=$yearmonth; $yearfile =~ s/^..//; $listofyears{$yearfile}=1; } } @@ -2350,6 +2428,28 @@ if ($QueryString =~ /action=browserdetail/i) { } &tab_end; + &html_end; + exit(0); + } +if ($QueryString =~ /action=urldetail/i) { + @sortsiders=sort { $SortDir*$_sider_p{$a} <=> $SortDir*$_sider_p{$b} } keys (%_sider_p); + print "$CENTER
"; + $tab_titre="$message[19]"; + &tab_head; + print "
"; $MaxNbOfPageShown = $TotalDifferentPages if $MaxNbOfPageShown > $TotalDifferentPages; $tab_titre="TOP $MaxNbOfPageShown $message[55] $TotalDifferentPages $message[27]"; &tab_head; -print "
\n"; print "
\n"; +print "
\n"; print "