Show
Ignore:
Timestamp:
09/25/08 11:16:41 (5 years ago)
Author:
mizuno_takaaki
Message:

lang/perl/App-Hachero: modified to use HTTP::DetectUserAgent?

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/App-Hachero/trunk/lib/App/Hachero/Plugin/Analyze/UserAgent.pm

    r19768 r19888  
    1111    my $req = $context->currentinfo->{request} or return; 
    1212    my $browser = $context->currentinfo->{useragent} or return; 
    13     my $browser_string = $browser->browser_string || ''; 
     13    my $browser_string = $browser->name || 'Unknown'; 
    1414    my $truncate = $self->config->{config}->{truncate_to} || 'hour'; 
    1515    my $time = $req->{datetime}->clone->truncate(to => $truncate); 
    … …  
    1717 
    1818    $context->result->{UserAgent} ||= App::Hachero::Result::UserAgent->new; 
    19      
    2019    $context->result->{UserAgent}->push( 
    2120        {