Regexp::Log::Helix - A regular expression parser for Helix

    my $foo = Regexp::Log::Helix->new(
	  format  => ':style11_3',
          capture => [qw( ip date req )],
    );
    my $re = $foo->regexp;

   Copyright 2006, Harvard University.  All rights reserved.

   This library is free software; you can redistribute it
   and/or modify it under the same terms as Perl itself.

package Regexp::Log::Helix;

use strict;
use base qw( Regexp::Log );
use vars qw( $VERSION %DEFAULT %FORMAT %REGEXP );

$VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);

# default values
%DEFAULT = ( 
       format => (q(%ip %rfc %authuser %date ).
                  q(%request %status %bytes ).
                  q(%useragent %clientid %clientstats ).
                  q(%filesize %filetime %conntime %resends %failedresends ).
                  q(%streamcomp %starttime %serverip)),

       capture => [qw( ip rfc authuser date
                       request status bytes 
                       ua id stats
                       filesize filetime conntime resends failedresends
                       components startts serverip )]
            );

# predefined format strings
%FORMAT = (
	':default'  => q(%ip %rfc %authuser %date %request %status %bytes %useragent %clientid %clientstats ).
                      q(%filesize %filetime %conntime %resends %failedresends %streamcomp %starttime %serverip),

	':style11_3'  => q(%ip %rfc %authuser %date %request %status %bytes %useragent %clientid %clientstats ).
                      q(%filesize %filetime %conntime %resends %failedresends %streamcomp %starttime %serverip),
);

# the regexps that match the various fields
%REGEXP = ( '%ip'  => '(?#=ip).*?(?#!ip)',
            '%rfc' => '(?#=rfc).*?(?#!rfc)',                                # rfc931
            '%authuser' => '(?#=authuser).*?(?#!authuser)',                 # authuser
	    '%date'     => '(?#=date)\[(?#=ts)\d{2}/\w{3}/\d{4}(?::\d{2}){3} [-+]\d{4}(?#!ts)\](?#!date)\s?',

            '%request'  => '(?#=request)"(?#=req)(?#=req_method)\w+(?#!req_method) (?#=req_file)[^\s\?]+(?#!req_file)(?:\?(?#=req_query)\S+(?#!req_query))? (?#=req_protocol).*?(?#!req_protocol)(?#!req)"(?#!request)',
	    '%status'   => '(?#=status)\d+(?#!status)',
            '%bytes'       => '(?#=bytes)-|\d+(?#!bytes)',                # bytes
            '%useragent'   => '(?#=useragent)\[(?#=ua).*?(?#!ua)\](?#!useragent)',         
            '%clientid'    => '(?#=clientid)\[(?#=id).*?(?#!id)\](?#!clientid)',
            '%clientstats' => '(?#=clientstats)\[(?#=stats).*?(?#!stats)\](?#!clientstats)',
            '%filesize'    => '(?#=filesize)\d*?(?#!filesize)',
            '%filetime'    => '(?#=filetime)\d*?(?#!filetime)',
            '%conntime'    => '(?#=conntime)\d*?(?#!conntime)',
            '%resends'     => '(?#=resends)\d*?(?#!resends)',
            '%failedresends' => '(?#=failedresends)\d*?(?#!failedresends)',
            '%streamcomp'  => '(?#=streamcomp)\[(?#=components).*?(?#!components)\](?#!streamcomp)',
	    '%starttime'   => '(?#=starttime)\[(?#=startts)\d{2}/\w{3}/\d{4}(?::\d{2}){3}(?#!startts)\](?#!starttime)',
            '%serverip'    => '(?#=serverip)\S+(?#!serverip)',
);
1;

__END__