Changeset ef8b410a1c69084e675a8a870c49305c92afd8d1 in xas-logmon


Ignore:
Timestamp:
12/01/15 09:51:15 (4 years ago)
Author:
Kevin L. Esteb <kevin@…>
Branches:
master
Children:
8496bdb0739806df787c8be0b3c66756ab4a6efa
Parents:
f3e70e2caad093e9497a68d8c4cc525d0756ab51
git-author:
Kevin L. Esteb <kevin@…> (12/01/15 09:51:15)
git-committer:
Kevin L. Esteb <kevin@…> (12/01/15 09:51:15)
Message:

fixed typos

Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/XAS/Apps/Logmon/XAS/Process.pm

    r57ab731dbfc619ab99ce71ac415210d451fc3ba0 ref8b410a1c69084e675a8a870c49305c92afd8d1  
    55use DateTime; 
    66use DateTime::Span; 
    7 use XAS::Logmon::Parser::XAS; 
    87use XAS::Logmon::Input::Tail; 
    98use XAS::Logmon::Filter::Merge; 
    109use XAS::Logmon::Output::Spool; 
    1110use XAS::Logmon::Format::Logstash; 
     11use XAS::Logmon::Parser::XAS::Logs; 
    1212 
    1313use XAS::Class 
     
    6969    my $merge    = XAS::Logmon::Filter::Merge->new(); 
    7070    my $logstash = XAS::Logmon::Format::Logstash->new(); 
    71     my $default  = XAS::Logmon::Parser::XAS->new(); 
    72     my $tasks    = XAS::Logmon::Parser::XAS->new( 
     71    my $default  = XAS::Logmon::Parser::XAS::Logs->new(); 
     72    my $tasks    = XAS::Logmon::Parser::XAS::Logs->new( 
    7373        format => ':tasks' 
    7474    ); 
     
    8383                '@message' => trim($line), 
    8484                hostname   => $self->env->hostname, 
    85                 pid        => 0, 
    86                 tid        => 0, 
    87                 process    => '', 
    8885            }); 
    8986 
     
    9693        } 
    9794 
    98         if (my $data = $task->parse($line)) { 
     95        if (my $data = $tasks->parse($line)) { 
    9996 
    10097            next if ($self->reject($data)); 
     
    103100                '@message' => trim($line), 
    104101                hostname   => $self->env->hostname, 
    105                 pid        => 0, 
    106                 tid        => 0, 
    107                 msgnum     => 0, 
    108                 process    => '', 
    109102            }); 
    110103 
  • trunk/lib/XAS/Lib/Regexp/Log/XAS.pm

    r57ab731dbfc619ab99ce71ac415210d451fc3ba0 ref8b410a1c69084e675a8a870c49305c92afd8d1  
    3232    '%datetime' => '\[(?#=datetime)\d{1,2}/\d{1,2}/\d{2} \d{1,2}:\d{1,2}:\d{2} \w{2}(?#!datetime)\]\s+', 
    3333    '%level'    => '\(?#=level)\w+(?#!level)\s+-\s+', 
    34     '%task'     => '\(?#=task)\w+(?#!task)\:\s+' 
     34    '%task'     => '\(?#=task)\w+(?#!task)\:\s+', 
    3535    '%message'  => '(?#=message).*(?#!message)', 
    3636); 
  • trunk/lib/XAS/Logmon/Input/Tail.pm

    r57ab731dbfc619ab99ce71ac415210d451fc3ba0 ref8b410a1c69084e675a8a870c49305c92afd8d1  
    11package XAS::Logmon::Input::Tail; 
    22 
    3 our $mixin; 
    43our $VERSION = '0.01'; 
     4 
     5my $mixin; 
    56 
    67BEGIN { 
    78    $mixin = 'XAS::Logmon::Input::Tail::Default'; 
    8     $mixin = 'XAS::Logmon::Input::Tail::Linux'   if ($^O eq 'linux'); 
    9     $mixin = 'XAS::Logmon::Input::Tail::Win32'   if ($^O eq 'MSWin32'); 
     9    $mixin = 'XAS::Logmon::Input::Tail::Linux' if ($^O eq 'linux'); 
     10    $mixin = 'XAS::Logmon::Input::Tail::Win32' if ($^O eq 'MSWin32'); 
    1011} 
    1112 
  • trunk/lib/XAS/Logmon/Input/Tail/Linux.pm

    r57ab731dbfc619ab99ce71ac415210d451fc3ba0 ref8b410a1c69084e675a8a870c49305c92afd8d1  
    1 package XAS::Log::Input::Tail::Linux; 
     1package XAS::Logmon::Input::Tail::Linux; 
    22 
    33our $VERSION = '0.01'; 
  • trunk/lib/XAS/Logmon/Output/Spool.pm

    r57ab731dbfc619ab99ce71ac415210d451fc3ba0 ref8b410a1c69084e675a8a870c49305c92afd8d1  
    33our $VERSION = '0.01'; 
    44 
    5 use XAS::Lib::Spool; 
     5use XAS::Factory; 
    66use Try::Tiny::Retry ':all'; 
    77 
     
    1010  version    => $VERSION, 
    1111  base       => 'XAS::Base', 
    12   mixin      => 'XAS::Lib::Mixin::Handlers', 
     12  mixin      => 'XAS::Lib::Mixins::Handlers', 
    1313  utils      => ':validation', 
    1414  constants  => 'TRUE FALSE', 
     
    6565    my $self = $class->SUPER::init(@_); 
    6666 
    67     $self->{'spool'} = XAS::Lib::Spool->new( 
     67    $self->{'spool'} = XAS::Factory->module('spool', { 
    6868        -directory => Dir($self->env->spool, 'logs'), 
    6969        -lock      => Dir($self->env->spool, 'logs', 'locked')->path 
    70     ); 
     70    }); 
    7171 
    7272    return $self; 
  • trunk/t/00-load.t

    r57ab731dbfc619ab99ce71ac415210d451fc3ba0 ref8b410a1c69084e675a8a870c49305c92afd8d1  
    11#!perl -T 
    22 
    3 use Test::More tests => 11; 
     3use Test::More tests => 10; 
    44 
    55BEGIN { 
Note: See TracChangeset for help on using the changeset viewer.