view release on metacpan or  search on metacpan

t/simple.t  view on Meta::CPAN

use_ok('Apache::LogRegex');

my $format = '%h %l %u %t \"%r\" %>s %b \"%{Referer}i\" \"%{User-Agent}i\"';
my @fields = qw/%h %l %u %t %r %>s %b %{Referer}i %{User-Agent}i/;
my $regex;
{
    my $inner_regex = qr/"([^"\\]*(?:\\.[^"\\]*)*)"/;
    $regex = qr/^(\S*)\s(\S*)\s(\S*)\s(\[[^\]]+\])\s$inner_regex\s(\S*)\s(\S*)\s$inner_regex\s+$inner_regex\s*$/;
}
my $line1  = '212.74.15.68 - - [23/Jan/2004:11:36:20 +0000] "GET /images/previous.png HTTP/1.1" 200 2607 "http://peterhi.dyndns.org/bandwidth/index.html" "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2) Gecko/20021202"';
my %record1 = (
    '%h' => '212.74.15.68',
    '%l' => '-',
    '%u' => '-',
    '%t' => '[23/Jan/2004:11:36:20 +0000]',
    '%r' => 'GET /images/previous.png HTTP/1.1',
    '%>s' => '200',
    '%b' => '2607',
    '%{Referer}i' => 'http://peterhi.dyndns.org/bandwidth/index.html',
    '%{User-Agent}i' => 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2) Gecko/20021202',
);

my $line2  = '212.74.15.68 - - [23/Jan/2004:11:36:20 +0000] "GET /images/previous.png=\" HTTP/1.1" 200 2607 "http://peterhi.dyndns.org/bandwidth/index.html" "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2) Gecko/20021202"' . "\n";
my %record2 = (
    '%h' => '212.74.15.68',
    '%l' => '-',
    '%u' => '-',
    '%t' => '[23/Jan/2004:11:36:20 +0000]',
    '%r' => 'GET /images/previous.png=\" HTTP/1.1',
    '%>s' => '200',
    '%b' => '2607',
    '%{Referer}i' => 'http://peterhi.dyndns.org/bandwidth/index.html',
    '%{User-Agent}i' => 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2) Gecko/20021202',
);

my $line3  = '4.224.234.46 - - [20/Jul/2004:13:18:55 -0700] "GET /core/listing/pl_boat_detail.jsp?&units=Feet&checked_boats=1176818&slim=broker&&hosturl=giffordmarine&&ywo=giffordmarine& HTTP/1.1" 200 2888 "http://search.yahoo.com/bin/search?p=\"grad...
my %record3 = (
    '%h' => '4.224.234.46',
    '%l' => '-',
    '%u' => '-',
    '%t' => '[20/Jul/2004:13:18:55 -0700]',
    '%r' => 'GET /core/listing/pl_boat_detail.jsp?&units=Feet&checked_boats=1176818&slim=broker&&hosturl=giffordmarine&&ywo=giffordmarine& HTTP/1.1',
    '%>s' => '200',
    '%b' => '2888',
    '%{Referer}i' => 'http://search.yahoo.com/bin/search?p=\"grady%20white%20306%20bimini\"',
    '%{User-Agent}i' => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; YPC 3.0.3; yplus 4.0.00d)',
);

my $line4  = '212.74.15.68 - - [23/Jan/2004:11:36:20 +0000] "GET /images/previous.png=\" HTTP/1.1" 200 2607 "http://peterhi.dyndns.org/bandwidth/index.html"   "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2) Gecko/20021202"';
my %record4 = (
    '%h' => '212.74.15.68',
    '%l' => '-',
    '%u' => '-',
    '%t' => '[23/Jan/2004:11:36:20 +0000]',
    '%r' => 'GET /images/previous.png=\" HTTP/1.1',
    '%>s' => '200',
    '%b' => '2607',
    '%{Referer}i' => 'http://peterhi.dyndns.org/bandwidth/index.html',
    '%{User-Agent}i' => 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2) Gecko/20021202',
);

my $line5  = ' - - [23/Jan/2004:11:36:20 +0000] "GET /images/previous.png=\" HTTP/1.1" 200  "http://peterhi.dyndns.org/bandwidth/index.html"   "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2) Gecko/20021202"';
my %record5 = (
    '%h' => '',
    '%l' => '-',
    '%u' => '-',
    '%t' => '[23/Jan/2004:11:36:20 +0000]',
    '%r' => 'GET /images/previous.png=\" HTTP/1.1',
    '%>s' => '200',
    '%b' => '',
    '%{Referer}i' => 'http://peterhi.dyndns.org/bandwidth/index.html',
    '%{User-Agent}i' => 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2) Gecko/20021202',
);

my $line6  = '212.74.15.68 - -  "GET /images/previous.png=\" HTTP/1.1" 200 2607 "http://peterhi.dyndns.org/bandwidth/index.html"   "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2) Gecko/20021202"';

################################################################################
# Create a new object
################################################################################

eval { Apache::LogRegex->new(); };
like( $@, qr/^Apache::LogRegex->new\(\) takes 1 argument/, 'Wrong number of arguments' );

eval { Apache::LogRegex->new(1,2); };
like( $@, qr/^Apache::LogRegex->new\(\) takes 1 argument/, 'Wrong number of arguments' );