48 |
} |
} |
49 |
} |
} |
50 |
|
|
51 |
|
$log->{tag} =~ s{^/.+/([^/]+)$}{$1}; |
52 |
|
|
53 |
if ( $log->{tag} =~ m{CRON}i && $buf =~ m{^\((\w+)\) (.+) \((.+)\)$} ) { |
if ( $log->{tag} =~ m{CRON}i && $buf =~ m{^\((\w+)\) (.+) \((.+)\)$} ) { |
54 |
$log->{cron} = { |
$log->{cron} = { |
55 |
user => $1, |
user => $1, |
58 |
}; |
}; |
59 |
} |
} |
60 |
|
|
61 |
|
if ( $buf =~ m{(init|error|mount|smart|usb|fs)}i ) { |
62 |
|
$log->{category} = $1; |
63 |
|
} |
64 |
|
|
65 |
$log->{message} = $buf; |
$log->{message} = $buf; |
66 |
} |
} |
67 |
|
|
68 |
warn "log ",dump( $log ); |
warn "log ",dump( $log ); |
69 |
CouchDB::audit( 'syslog', $log ); |
CouchDB::audit( $log->{tag}, $log ); |
70 |
} |
} |
71 |
|
|
72 |
sub start { |
sub start { |