Skip Menu | will be shut down on March 1st, 2021.

This queue is for tickets about the AnyData CPAN distribution.

Report information
The Basics
Id: 72334
Status: resolved
Priority: 0/
Queue: AnyData

Owner: Nobody in particular
Requestors: wes [...]

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

CC: Wes Brown <wes [...]>
Subject: Greedy Regex in AnyData::Format::Weblog
Date: Wed, 9 Nov 2011 19:57:45 -0500
To: bug-AnyData [...]
From: Wes Brown <wes [...]>
Download (untitled) / with headers
text/plain 971b
There appears to be a "greedy regex" in the parse section of the AnyData::Format::Weblog AnyData-0.10 I can provide the "normally requested" 'perl -v' and system type ('uname -a') if required. The patch below at least allows an Apache weblog to be run if the following line is in the httpd.conf file, but client and referer are not correct: LogFormat "%h %l %u %t \"%r\" %>s %b \"%{Referer}i\" \"%{User-Agent}i\" %T \"JSESSION=%{JSESSIONID}C\"" combined $ diff -u --- 2004-04-18 16:15:50.000000000 -0400 +++ 2011-11-09 18:27:22.000000000 -0500 @@ -89,7 +89,7 @@ $str =~ s/\s+$//; return undef unless $str; my(@row) = $str =~ - /^(\S*) (\S*) (\S*) \[([^\]]*)\] "(.*)" (\S*) (\S*)\s*(.*)$/; + /^(\S*) (\S*) (\S*) \[([^\]]*)\] "([^\"]*)" (\S*) (\S*)\s*(.*)$/; return undef unless defined $row[0]; my($client,$referer) = $row[7] =~ /^(.*) (\S*)$/; $client ||= ''; Wes
I've applied the patch and it should be resolved in 0.11 Cheers Sven

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to