6 |
use IO::Socket; |
use IO::Socket; |
7 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
8 |
use CouchDB; |
use CouchDB; |
9 |
|
use File::Slurp; |
10 |
|
|
11 |
use server; |
use server; |
12 |
|
|
49 |
} |
} |
50 |
} |
} |
51 |
|
|
52 |
|
$log->{tag} =~ s{^/.+/([^/]+)$}{$1}; |
53 |
|
|
54 |
if ( $log->{tag} =~ m{CRON}i && $buf =~ m{^\((\w+)\) (.+) \((.+)\)$} ) { |
if ( $log->{tag} =~ m{CRON}i && $buf =~ m{^\((\w+)\) (.+) \((.+)\)$} ) { |
55 |
$log->{cron} = { |
$log->{cron} = { |
56 |
user => $1, |
user => $1, |
59 |
}; |
}; |
60 |
} |
} |
61 |
|
|
62 |
|
if ( $buf =~ m{(init|error|mount|smart|usb|fs)}i ) { |
63 |
|
$log->{category} = $1; |
64 |
|
} |
65 |
|
|
66 |
$log->{message} = $buf; |
$log->{message} = $buf; |
67 |
} |
} |
68 |
|
|
69 |
warn "log ",dump( $log ); |
warn "log ",dump( $log ); |
70 |
CouchDB::audit( 'syslog', $log ); |
CouchDB::audit( $log->{tag}, $log ); |
71 |
} |
} |
72 |
|
|
73 |
sub start { |
sub start { |
86 |
} |
} |
87 |
} |
} |
88 |
|
|
89 |
|
sub install_local { |
90 |
|
my $rsyslog = '/etc/rsyslog.d'; |
91 |
|
return unless -d $rsyslog; |
92 |
|
$rsyslog .= '/pxelator.conf'; |
93 |
|
warn "# redirect local syslog to pxelator using $rsyslog"; |
94 |
|
write_file $rsyslog, "*.*\t\@$server::ip\n"; |
95 |
|
system "( /etc/init.d/rsyslog stop ; sleep 2 ; /etc/init.d/rsyslog start ; rm $rsyslog ) &"; |
96 |
|
} |
97 |
|
|
98 |
1; |
1; |