Changeset 244bdd7d3e47c6cc2cbd7858e5ed8a6b6bbeda76 in xas-logmon


Ignore:
Timestamp:
12/10/15 08:31:08 (4 years ago)
Author:
Kevin L. Esteb <kevin@…>
Branches:
master
Children:
9fe8156b53dfebd170ae701a7f8f0d6d483392bb
Parents:
8a80906c03b2b8293c3a4c1f85d8ce9c1f70f41b
git-author:
Kevin L. Esteb <kevin@…> (12/10/15 08:31:08)
git-committer:
Kevin L. Esteb <kevin@…> (12/10/15 08:31:08)
Message:

fixing a formating issue with log files

File:
1 edited

Legend:

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

    rf0843dd161eaba2812d0b64e8feab0c20fd3df84 r244bdd7d3e47c6cc2cbd7858e5ed8a6b6bbeda76  
    1010  base       => 'XAS::Lib::App::Service', 
    1111  mixin      => 'XAS::Lib::Mixins::Configs', 
    12   utils      => 'dotid trim', 
     12  utils      => 'dotid trim :env', 
    1313  constants  => 'TRUE FALSE', 
    1414  accessors  => 'cfg', 
     
    1717    SERVICE_NAME         => 'XAS_Log', 
    1818    SERVICE_DISPLAY_NAME => 'XAS Log Monitor', 
    19     SERVICE_DESCRIPTION  => 'Monitor log files' 
     19    SERVICE_DESCRIPTION  => 'XAS log file monitor' 
    2020  } 
    2121; 
     
    3434        next if ($section !~ /^logmon:/); 
    3535 
     36        my $env      = {}; 
    3637        my ($alias)  = $section =~ /^logmon:(.*)/; 
    3738        my $ignore   = $self->cfg->val($section, 'ignore', '30'); 
     
    5051        $alias = trim($alias); 
    5152 
     53        if (my $e = $self->cfg->val($section, 'environment', undef)) { 
     54 
     55            $env = env_parse($e); 
     56 
     57        } 
     58 
    5259        my $process = XAS::Lib::Process->new( 
    5360            -alias          => $alias, 
     
    5764            -auto_restart   => $self->cfg->val($section, 'auto-restart', TRUE), 
    5865            -directory      => Dir($self->cfg->val($section, 'directory', "/")), 
     66            -environment    => $env, 
    5967            -exit_codes     => $self->cfg->val($section, 'exit-codes', '0,1'), 
    6068            -exit_retries   => $self->cfg->val($section, 'exit-retires', -1), 
     
    6674            -output_handler => sub { 
    6775                my $output = shift; 
    68                 my ($level) = $output =~ /\s+(\w+)\s+-/; 
    69                 my ($line)  = $output =~ /\s+-(.*)/; 
    70                 $level = lc(trim($level)) || 'info'; 
    71                 $line  = trim($line) || ''; 
    72                 $self->log->$level(sprintf('%s: %s', $alias, $line)); 
     76                $output = trim($output); 
     77                if (my ($level, $line) = $output =~/\s+(\w+)\s+-\s+(.*)/ ) { 
     78                    $level = lc(trim($level)); 
     79                    $line  = trim($line); 
     80                    $self->log->$level(sprintf('%s: %s', $alias, $line)); 
     81                } else { 
     82                    $self->log->info(sprintf('%s: -> %s', $alias, $output)); 
     83                } 
    7384            } 
    7485        ); 
Note: See TracChangeset for help on using the changeset viewer.