On Fri, Nov 28, 2008 at 06:59:34PM +0000, Sevan / Venture37 wrote:
> giovanni wrote:
>> maybe this is the fix...
>>
>> --- hatchet.orig Fri Nov 7 08:23:37 2008
>> +++ hatchet Fri Nov 28 12:57:35 2008
>> @@ -214,7 +214,7 @@
>> sub insert_table {
>> my ($date, $points, $rulenum, $action, $interface, $src_host,
>> $src_port, $dst_host, $dst_port, $proto) = @_;
>> $date =~ /^(\w+) (\d+) (\d+)\:(\d+)\:(\d+)$/;
>> - my ($month, $mday, $hour, $min, $sec, $year) = ($1, $2, $3,
>> $4, $5, [split(/ /,localtime)]->[5]);
>> + my ($month, $mday, $hour, $min, $sec, $year) = ($1, $2, $3,
>> $4, $5, [localtime]->[5]);
>> my %months = qw( Jan 0 Feb 1 Mar 2 Apr 3 May 4 Jun 5 Jul 6 Aug
>> 7 Sep 8 Oct 9 Nov 10 Dec 11 );
>> my $epoch = timelocal_nocheck($sec, $min, $hour, $mday,
>> $months{$month}, $year);
>> unless ($existing->{"$epoch $points"}) {
>
> Perfect, that did the trick nicely!!!!
> Thank you very much! :)
I've released 0.9.2 which includes this fix, and updated the port as
well.
--
Jason Dixon
DixonGroup Consulting
http://www.dixongroup.net/
